vb判断任意一个数是奇数偶数的代码是什么？ [VB]输入一个数？判断他是奇数还是偶数。应该怎么编写？
\u5224\u65ad\u5947\u5076\u6570\u7684vb\u7a0b\u5e8f\u6bb5vb\u7a0b\u5e8f\u6bb5\u5982\u4e0b\uff1a
Private Sub Command1_Clicko
If Val\uff08Text1.Text\uff09Mod 2 = 1 And Val\uff08Text1.Text\uff09= Int\uff08Val\uff08Text1.Text\uff09Then
Label1.Caption="\u8fd9\u662f\u5947\u6570"
Else
If Val\uff08Text1.Text\uff09Mod 2= 0 And Val\uff08Text1.Text\uff09= Int\uff08Val\uff08Text1.Text\uff09\uff09Then
Label1.Caption ="\u8fd9\u662f\u5076\u6570"
Else
Label1.Caption ="\u975e\u5947\u975e\u5076"
End If
End If
End Sub
\u6269\u5c55\u8d44\u6599\uff1a
\u5224\u65ad\u5947\u5076\u6570\u65f6\uff0c\u4e3b\u8981\u662f\u4f7f\u7528\u8fd0\u7b97\u7b26-Mod\u548cif\u8bed\u53e5\uff0cMod\u53ef\u4ee5\u5bf9\u4e00\u4e2a\u6570\u53d6\u4f59\u6570\u3002\u4f8b\u598210/3= 3....11\u521910 Mod 3=1\uff0c\u6240\u4ee5\u5982\u679c\u4efb\u610f\u4e00\u4e2a\u6570n Mod 2=1\u8fd9\u4e2a\u6570\u5c31\u662f\u5947\u6570\u3002
If\u8bed\u53e5\u683c\u5f0f\uff1a\u5982\u679c\u6761\u4ef61\u6210\u7acb \u505a\u4ee3\u78011 \u5426\u5219 \u505a\u4ee3\u78012 \u7ed3\u675f
\u4ee3\u7801\u683c\u5f0f\uff1a
IfA1 Then
\u8bed\u53e51
Else
\u8bed\u53e52
End if
Private Sub Command1_Click()
Dim n
n = InputBox("\u8bf7\u8f93\u5165\u6570\u5b57")
If Trim(n) = "" Then Exit Sub
If n Mod 2 = 0 Then
MsgBox n & "\u662f\u5076\u6570"
Else
MsgBox n & "\u662f\u5947\u6570"
End If
End Sub
if x mod 2 <>0 then msgbox "是奇数"
绛旓細Text1.Text = Text1.Text & "a(" & i & ")= " & a(i) & " 鏄鏁" & vbCrLf Else Text1.Text = Text1.Text & "a(" & i & ")= " & a(i) & " 鏄鍋舵暟" & vbCrLf End If Next End Sub Private Sub Form_Load()Dim i As Integer Randomize For i = 1 To 10 a(...
绛旓細棣栧厛鐪嬫槸涓嶆槸姝鏁存暟锛岀劧鍚庡啀鍒ゆ柇鑳戒笉鑳借2鏁撮櫎灏辫浜嗐俰f n=int(n) and n>=0 and n mod 2=0 then 鍋舵暟 else 濂囨暟 endif
绛旓細a = InputBox("璇疯緭鍏ヤ綘瑕鍒ゆ柇鐨勬暟瀛")If a > 100 Or a < 0 Then MsgBox ("浣犺緭鍏ョ殑鏁板瓧涓嶅啀0~100涔嬮棿锛岃閲嶆柊杈撳叆锛")End If Loop Until a >= 0 And a <= 100 If a Mod 2 = 0 Then Print "浣犺緭鍏ョ殑鏁板瓧" & a & "鏄鍋舵暟."Else Print "浣犺緭鍏ョ殑鏁板瓧" & a & "鏄鏁....
绛旓細Dim a As Single a = Val(Text1.Text)Select Case True Case a Mod 2 = 0 Text2.Text = "璇ユ暟涓鍋舵暟"Case a Mod 2 = 1 Text2.Text = "璇鏁颁负濂囨暟"End Select End Sub 鏂规硶2锛歅rivate Sub Form_Load()Dim a As Single x = InputBox("璇疯緭鍏", "濂囧伓鎬鍒ゆ柇")Select Case True...
绛旓細寰堜箙娌＄湅涔︿簡..澶ф杩欐牱,浣犲幓缈荤炕鍏抽敭瀛 濂:if x/2=1 then 濂=濂+1 鍋:if x/2=0 then 鏄繖涓剰鎬濊屽凡
绛旓細i=val(inputbox("杈撳叆鏁"))if i mod 2 = 0 then msgbox "鍋舵暟"else msgbox "濂囨暟"end if
绛旓細浣跨敤mod杩愮畻绗﹀幓鍒ゆ柇 濡傛灉i mod 2=0閭ｄ箞i灏辨槸鍋舵暟锛屽惁鍒欏氨鏄鏁 i<0鎴愮珛鏃跺氨鏄礋鏁
绛旓細鍋氭垚鏁扮粍鎺т欢锛宨ndex琛ㄧず鎺т欢鍙凤紙.net涓慨鏀+=锛変吉浠ｇ爜锛歴1=2*int(rnd)'淇鍋舵暟 s2=2*int(rnd)select case index case 0 s1=s1+1鈥欎咯濂囨暟 s2=s2+1 case 2 s1=s1+1'1涓鏁 case 3 s2=s2+1'1涓鏁 end select
绛旓細Private Sub Command1_Click() Dim n As Long n = Val(Text1.Text) If n Mod 2 = 0 Then Label2.Caption = "鏄鍋舵暟" Else Label2.Caption = "鏄鏁" End If End Sub 甯屾湜閲囩撼
绛旓細Command2.Caption="鍒ゆ柇"Text1.Locked=False a=False EndSub PrivateSubCommand1_Click()Text1.Text=Int(Rnd()*100)EndSub PrivateSubCommand2_Click()IfNotaThen MsgBox"璇蜂骇鐢涓涓闅忔満鏁帮紒",vbExclamation ExitSub Else MsgBoxIIf(Val(Text1.Text)Mod2=0,"鏄鍋舵暟","鏄鏁"),vbInformation a=...
