一道关于VB的题目如何用VB判奇偶我这个代码为什么不行为什么什么数都是偶数?Private Sub Command1_Click()a = Val(Text1.Text)If Int(n / 2) = n / 2 Thenb = "这个数是偶数"ElseIf Int(n / 1) = n / 1 Thenb = "这个数是

一道关于VB的题目如何用VB判奇偶我这个代码为什么不行为什么什么数都是偶数?Private Sub Command1_Click()a = Val(Text1.Text)If Int(n / 2) = n / 2 Thenb = "这个数是偶数"ElseIf Int(n / 1) = n / 1 Thenb = "这个数是
一道关于VB的题目
如何用VB判奇偶
我这个代码为什么不行
为什么什么数都是偶数?
Private Sub Command1_Click()
a = Val(Text1.Text)
If Int(n / 2) = n / 2 Then
b = "这个数是偶数"
Else
If Int(n / 1) = n / 1 Then
b = "这个数是奇数"
Else
b = "这个数不是整数"
End If
End If
Label2.Caption = b
End Sub
Private Sub Command2_Click()
Text1.Text = ""
Label2.Caption = ""
End Sub

一道关于VB的题目如何用VB判奇偶我这个代码为什么不行为什么什么数都是偶数?Private Sub Command1_Click()a = Val(Text1.Text)If Int(n / 2) = n / 2 Thenb = "这个数是偶数"ElseIf Int(n / 1) = n / 1 Thenb = "这个数是
a = Val(Text1.Text) '你这里读的是a
If Int(n / 2) = n / 2 Then '到这里变成n了
改为
n = Val(Text1.Text)
就可以了