判断奇偶数的vb程序段

vb程序段如下：

Private Sub Command1_Clicko

If Val（Text1.Text）Mod 2 = 1 And Val（Text1.Text）= Int（Val（Text1.Text）Then

Label1.Caption="这是奇数"

Else

If Val（Text1.Text）Mod 2= 0 And Val（Text1.Text）= Int（Val（Text1.Text））Then

Label1.Caption ="这是偶数"

Else

Label1.Caption ="非奇非偶"

End If

End If

End Sub

扩展资料：

判断奇偶数时，主要是使用运算符-Mod和if语句，Mod可以对一个数取余数。例如10/3= 3....11则10 Mod 3=1，所以如果任意一个数n Mod 2=1这个数就是奇数。

If语句格式：如果条件1成立 做代码1  否则  做代码2 帆橡 结渗轿世束

代丛肢码格式：

IfA1 Then

语句1

Else

语句2

End if

Hex2 = "戚拦1111011"  '任意二进制

If Hex2 Mod 10 = 0 Then

MsgBox 高此胡"这个二进制数是偶数"

Else

MsgBox "这个二进制数是奇数"扒轮

End If

二进制的2是10 直接用二进制值mod 10即可得出10进制mod2一样的结果  0是偶数 1 是奇数

dim x as integer

x=Val(inputbox("输入一个蔽谨山整数："))

if x mod 2 =0 then

msgbox "偶数！"

else

msgbox "奇数！"宏中

end of

If x >0 Then msgbox "正数！"

If x <晌誉0 Then msgbox "负数！"

---