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