判断整除或求和

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语言都还不认识。因此我到百度上去找了相关的知识，但解释得也不是很清楚，而且我发现百度上设计的这个程序和实验册上设计得根本就不一样，我就感到很郁闷。我又问了一下我以前的几个同学，他们告诉我VB其实是很灵活的，只要你的思维理念在那里，你怎么设计都可以。他们说，VB考察的是我们思维的严谨性，逻辑的条理性。我自从学了VB之后，我也觉得是这样。同时，我也相信VB有那个能力。