判断整除并求和
来源:互联网 发布:数控火焰切割机编程 编辑:程序博客网 时间:2024/05/17 07:53
Private Sub Command1_Click()
Dim m As Integer, n As Integer, d As Integer
Dim s As Long
m = Val(Text1.Text)
n = Val(Text2.Text)
d = Val(Text3.Text)
s = 0
Sum m, n, d, s
Label4.Caption = m & " 到 " & n & "之间能被" & d & "整除的数之和" & s
End Sub
Private Sub Command2_Click()
End
End Sub
Public Sub Sum(x As Integer, y As Integer, z As Integer, w As Long)
Dim i As Integer
If x > y Then
t = x: x = y: y = t
End If
For i = x To y
If i Mod z = 0 Then
w = w + i
End If
Next i
End Sub
Private Sub Text1_Keypress(keyAscii As Integer)
If Not IsNumeric(Chr(keyAscii)) And keyAscii <> 8 Then
keyAscii = 0
End If
End Sub
Private Sub Text2_KeyPress(keyAscii As Integer)
If Not IsNumeric(Chr(keyAscii)) And keyAscii <> 8 Then
keyAscii = 0
End If
End Sub
Private Sub Text3_keyPress(keyAscii As Integer)
If Not IsNumeric(Chr(keyAscii)) And keyAscii <> 8 Then
keyAscii = 0
End If
End Sub
- 判断整除并求和
- 判断整除并求和
- 判断整除并求和
- 判断整除并求和
- 判断整除并求和
- 判断整除并求和
- 判断整除并求和
- 判断整除并求和
- 判断整除并求和
- 判断整除并求和
- 判断整除并求和
- 判断整除并求和
- 判断整除或求和
- VB判断整除并整除
- 判断整除
- 判断整除
- 1-100之间不能被7整除的数,并求和,JAVA
- 判断素数并求和用平方根算法(C语言)
- MFC对话框美化使其具有Vista/Win7风格
- 动画设计
- 金箍棒变长
- 残疾人公务员比例低,谈何平等•参与•共享?
- automake生成静态链接库
- 判断整除并求和
- 主动语态形式表示被动意义
- 日期
- 关于行政机关带头履行法定义务,招录不少于1.5%比例的残疾人致国家人社部的建议信
- 8--12指向多维数组元素的指针变量之指向二维数组的指针
- xbmc软件技术构成分析
- 实验报告一
- php empty()和isset()的区别
- c语言基础(六)之类型