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 AsInteger)
If Not IsNumeric(Chr(KeyAscii)) AndKeyAscii <> 8 Then
KeyAscii = 0
End If
End Sub
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
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