Private Sub Command1_Click()
a = CInt(InputBox("A="))
b = CInt(InputBox("B="))
If a > b Then t = a: a = b: b = t
If a Mod 2 = 1 Then a1 = a + 1 Else a1 = a
If b Mod 2 = 1 Then b1 = b - 1 Else b1 = b
MsgBox (a & " ~ " & b & " 之间有 " & (b1 - a1) \ 2 + 1 & " 个偶数")
End Sub
请问一下 包括100和200边界值吗
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024