如何用VB判断数学是奇数还是偶数 [VB]输入一个数？判断他是奇数还是偶数。应该怎么编写？
VB\u4e2d\u5224\u65ad\u5947\u6570\u548c\u5076\u6570\u600e\u4e48\u5224\u65ad\u548c\u7edf\u8ba1\u4e2a\u6570Private Sub Form_Click() '\u70b9\u51fb\u7a97\u4f53\u8fd0\u884cDim js As Integer, os As IntegerDim i As Integer, x As IntegerFor i = 1 To 10 '\u4ea7\u751f\u5341\u4e2a\u968f\u673a\u6574\u6570 x = Int(Rnd * 100) Print x; If x Mod 2 = 1 Then '\u5982\u679c\u662f\u5947\u6570 js = js + 1 Else '\u5982\u679c\u662f\u5076\u6570 os = os + 1 End IfNextPrintPrint "\u5947\u6570\u6709"; js; "\u4e2a"Print "\u5076\u6570\u6709"; os; "\u4e2a"End Sub
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
Private Sub Command1_Click()
If Val(Text1.Text) Mod 2 = 0 Then
Label2.Caption = "该数为偶数！"
Else
Label2.Caption = "该数为奇数！"
End If
End Sub
如果这个数除以2余数为零就是偶数，余数不为0就是奇数
绛旓細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...
绛旓細鍋氭垚鏁扮粍鎺т欢锛宨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
绛旓細Dim A Do A = InputBox("璇疯緭鍏ヤ竴涓暣鏁")Loop While IsNumeric(A) = False Or Val(A) <> Int(A)If A Mod 2 = 1 Then MsgBox A & "鏄鏁"Else MsgBox A & "鏄伓鏁"End If
绛旓細棣栧厛鍒ゆ柇鏁皒鏄惁澶т簬绛変簬0锛屽ぇ浜庣瓑浜0浜嗗啀闄や互2鍙栦綑鏁帮紙x%2锛夛紝浣欐暟寰1灏鏄鏁鍚﹀垯鏄伓鏁
绛旓細棣栧厛鐪嬫槸涓嶆槸姝ｆ暣鏁帮紝鐒跺悗鍐鍒ゆ柇鑳戒笉鑳借2鏁撮櫎灏辫浜嗐俰f n=int(n) and n>=0 and n mod 2=0 then 鍋舵暟 else 濂囨暟 endif
绛旓細浣跨敤mod杩愮畻绗﹀幓鍒ゆ柇 濡傛灉i mod 2=0閭ｄ箞i灏辨槸鍋舵暟锛屽惁鍒欏氨鏄鏁 i<0鎴愮珛鏃跺氨鏄礋鏁
绛旓細寰堜箙娌＄湅涔︿簡..澶ф杩欐牱,浣犲幓缈荤炕鍏抽敭瀛 濂:if x/2=1 then 濂=濂+1 鍋:if x/2=0 then 鏄繖涓剰鎬濊屽凡
绛旓細Private Sub Command1_Click()If CInt(Text1.Text) Mod 2 = 0 Then MsgBox "鏂囨湰妗嗗唴鐨勬暟鍊间负鍋舵暟锛", , "鎻愮ず"Else MsgBox "鏂囨湰妗嗗唴鐨勬暟鍊涓哄鏁锛", , "鎻愮ず"End If End Sub Private Sub Command2_Click()Dim a As Integer Action1:Randomize a = CInt(Rnd * 100)If a < 1 Or...
绛旓細浣犵殑鏂规硶鏄鐨勶紝鍒ゆ柇闄や互2鐨勪綑鏁帮紝缁撴灉涓0灏辨槸鍋舵暟锛屽惁鍒鏄鏁銆傛敞鎰忎竴锛屽彇浣欐暟鐨勮繍绠楁槸MOD锛屼緥濡 5 MOD 3鐨勭粨鏋滃氨鏄2 娉ㄦ剰浜岋紝鏂囨湰妗嗚緭鍏ョ殑鍐呭鏄瓧绗︿覆锛岄渶瑕佽浆鎹负鏁板瓧绫诲瀷鎵嶅彲浠ヨ繍绠
绛旓細b) Mod 2 = 0 Then c = c + 1 Label1.Caption = "浣犺緭鍏ヤ簡" & c & "鍋舵暟"ElseIf a(b) Mod 2 <> 0 Then d = d + 1 Label2.Caption = "浣犺緭鍏ヤ簡" & d & "濂囨暟"End If Next b End Sub Private Sub Form_Load()Label1.Caption = ""Label2.Caption = ""End Sub ...
