Visual Basic题目判断奇偶求大佬解答

要求:在TextBox1中输入一个正整数，单击“判断”按钮后判断是奇数或偶数。
提示:若x为偶数，则x mod 2＝0

对象 属性 值
Form1 Text 判断奇偶
Label1 Text

TextBox1 Text

Button1 Text 判断

Private Sub Command1_Click()
Dim n As Integer
n = Int(Val(Text1.Text))
If n Mod 2 <> 0 Then
Text2.Text = "奇数"
Else
Text2.Text = "偶数"
End If
End Sub