判断整除并求和
来源:互联网 发布:ftp服务器的控制端口 编辑:程序博客网 时间:2024/05/18 17:02
Private Sub Command1_Click()
Dim m As Integer, n As Integer, d AsInteger
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
'sub过程:求m到n之间能被d整除的数之和
Public Sub sum(x As Integer, y As Integer,z As Integer, w As Long)
Dim i As Integer
'若x>y,交换
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 AsInteger) '文本框键盘事件过程
'若按键非数字键或回删键,取消按键
If Not IsNumeric(Chr(keyascii)) Andkeyascii <> 8 Then
keyascii = 0
End If
End Sub
Private Sub text2_keypress(keyascii AsInteger) '文本框键盘事件过程
'若按键非数字键或回删键,取消按键
If Not IsNumeric(Chr(keyascii)) Andkeyascii <> 8 Then
keyascii = 0
End If
End Sub
Private Sub text3_keypress(keyascii AsInteger) '文本框键盘事件过程
'若按键非数字键或回删键,取消按键
If Not IsNumeric(Chr(keyascii)) Andkeyascii <> 8 Then
keyascii = 0
End If
End Sub
- 判断整除并求和
- 判断整除并求和
- 判断整除并求和
- 判断整除并求和
- 判断整除并求和
- 判断整除并求和
- 判断整除并求和
- 判断整除并求和
- 判断整除并求和
- 判断整除并求和
- 判断整除并求和
- 判断整除并求和
- 判断整除或求和
- VB判断整除并整除
- 判断整除
- 判断整除
- 1-100之间不能被7整除的数,并求和,JAVA
- 判断素数并求和用平方根算法(C语言)
- 1001. 什么,语法错误!?
- android 如何设置图片颜色的透明度
- 10个数的比较
- mysql复制表结构、表数据
- javascript中绑定带参数的事件响应函数
- 判断整除并求和
- php,你可能不知道的“死亡”陷阱
- java代理
- 硬盘接口简介
- 随机生成十个不重复的整数
- 带参数的响应函数
- eclipse中调试nutch2.0+cassandra
- Hadoop in Action Note
- SATA是串口为何速度比IDE并口还快?