Question

用VB编写：把两个text中数之间所有偶数加起来

输入两个数，自动算出两个数之间所有偶数的和

Answer 1

Private Sub Command1_Click()
Dim a, b, c, d, e As Integer
a = CInt(Text1.Text)
b = CInt(Text2.Text)

If a < b Then
e = 1
Else
e = -1
End If

For c = a To b Step e
If c Mod 2 = 0 Then
d = d + c
End If
Next

MsgBox a & "到" & b & "之间的所有偶数和为" & d
End Sub

Answer 2

感觉一楼的下面这几个语句用得不错:
If a < b Then
e = 1
Else
e = -1
End If

For c = a To b Step e

Answer 3

Private Sub Command1_Click()
Dim a, b, c, temp, i As Integer
a = Val(Text1.Text)
b = Val(Text2.Text)
If a > b Then temp = b: b = a: a = temp
For i = a To b
If i Mod 2 = 0 Then c = c + i
Next i
Text3.Text = c
End Sub