高考问答ios11.2 公测版固件:用VB编写：把两个text中数之间所有偶数加起来
来源：百度文库 编辑：高考问答 时间：2024/04/25 06:17:29
输入两个数，自动算出两个数之间所有偶数的和
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
感觉一楼的下面这几个语句用得不错:
If a < b Then
e = 1
Else
e = -1
End If
For c = a To b Step e
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