VB判断奇偶性编程？

VB判断奇偶性编程？

算法分析： 根据题目判断奇偶性，可以用mod函数，n mod 2 如果是1 则是奇数，如果是0则是偶数。程序：Private Sub Command1_Click()
dim n as integern=inputbox("输入需要判断的数据：")If n Mod 2 = 0 Then
Print "你输入的数字是偶数。"
Else
Print "你输入的数字是奇数。"
End IfEnd Sub唉···回答这个问题真不好意思。

Private Sub Command1_Click()
Dim a%
a = InputBox("请输入你要判断的数字")
If a Mod 2 = 0 Then
Print "你输入的数字" & a & "是偶数."
Else
Print "你输入的数字" & a & "是奇数."
End If
End Sub

dim a as Integer,b as Integera=text1.textb=text2.textmsgbox iif((a mod 2)=0,"是偶数","是奇数")