Question

编写程序：在文本框TEXT1上任意输入一个整数判断该数的奇偶性 要文本框TEXT2输出相应的信息

Answer 1

Private Sub Text1_Change(Index As Integer)
text2.Text = IIf(Val(Text1.Text) Mod 2 = 1, "奇数", "偶数")
End Sub

Answer 2

Private Sub Text1_Change()
Dim a As Integer
a = Val(Text1.Text)
If a Mod 2 = 1 Then
Text2.Text = "奇数"
End If
If a Mod 2 = 0 Then
Text2.Text = "偶数"
End If
End Sub