Question

帮忙做个VB的奇偶性判断的程序,

Answer 1

Private Sub Command1_Click()

If IsNumeric(Text1.Text) Then '是否数字

If Sgn(Val(Text1.Text)) > 0 Then '是否正数

If CLng(Val(Text1.Text)) = Val(Text1.Text) Then '是否整数

If Val(Text1.Text) Mod 2 = 0 Then '奇偶性

Text2.Text = "偶数"

Else

Text2.Text = "奇数"

End If

Else

Text2.Text = "输入不合法"

End If

Else

Text2.Text = "输入不合法"

End If

Else

Text2.Text = "输入不合法"

End If

End Su