Question

有些VB编程题求解，谢谢了

1、编写一个程序，当单击窗体时，用输入框输入一个自然数，判断是否为“整数”、“负数”或“零”，并根据输入的数用消息框显示“整数”、“负数”或“零”。
2、编程求1-100之间所有偶数的和。

Answer 1

Private Sub Command1_Click()
Sum = 0
For i = 2 To 100 Step 2
Sum = Sum + i
Next
MsgBox "1-100之间所有偶数的和为 " & Sum
End Sub

Private Sub Form_Click()
Dim a
a = Val(InputBox("请输入一个数"))
If a = 0 Then MsgBox "你输入的是 零"
If a < 0 Then MsgBox "你输入的是 复数"
If Round(a, 0) < a Then MsgBox "你输入的是 小数"
End Sub