作业帮 > 综合 > 作业

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

来源:学生作业帮 编辑:作业帮 分类:综合作业 时间:2024/11/05 16:36:41
帮忙做个VB的奇偶性判断的程序,
要求:1.能够判断奇偶性(最基本的了- ) 2.输入非数字时,奇偶性对话框提示"输入不合法"
3.输入非整数或负数和0的时候,奇偶性对话框提示"输入不合法"
只有这点分了,
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