Question

判断奇偶数的vb程序段

Answer 1

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

Answer 2

首先创建一个窗体，里面有一个Command控件，命名为Command1
Pravite Sub Command1_Click
’n年没整VB了，可能有的单词都忘了，如果你用的是Visual Basic2003及以上版本，代码可能会不同
x=inputbox("","")
'通过inputbox函数获得要求的这个数
If x mod 2=0
print "偶数"
else
print "奇数"
End If
End Sub

Answer 3

if x mod 2 =0 then msgbox "是偶数" else msgbox "是奇数"

Answer 4

dim n as integer
n=val(inputbox("请输入一个整数"))
if n mod 2=0 then
print 偶数
else
print 奇数
end if

Answer 5

求女王之刃：螺旋混沌+模拟器！