VB判断奇偶性编程？ 判断奇偶数的vb程序段
\u7528vb\u7f16\u7a0b \u4efb\u610f\u8f93\u5165\u4e00\u6574\u6570\uff0c\u5224\u65ad\u5176\u5947\u5076\u6027\u3002Dim A
Do
A = InputBox("\u8bf7\u8f93\u5165\u4e00\u4e2a\u6574\u6570")
Loop While IsNumeric(A) = False Or Val(A) Int(A)
If A Mod 2 = 1 Then
MsgBox A & "\u662f\u5947\u6570"
Else
MsgBox A & "\u662f\u5076\u6570"
End If
vb\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
dim n as integern=inputbox("输入需要判断的数据：")If n Mod 2 = 0 Then
Print "你输入的数字是偶数。"
Else
Print "你输入的数字是奇数。"
End IfEnd Sub唉···回答这个问题真不好意思。
Private Sub Command1_Click()
Dim a%
a = InputBox("请输入你要判断的数字")
If a Mod 2 = 0 Then
Print "你输入的数字" & a & "是偶数."
Else
Print "你输入的数字" & a & "是奇数."
End If
End Sub
dim a as Integer,b as Integera=text1.textb=text2.textmsgbox iif((a mod 2)=0,"是偶数","是奇数")
绛旓細vb绋嬪簭娈靛涓嬶細Private Sub Command1_Clicko If Val锛圱ext1.Text锛塎od 2 = 1 And Val锛圱ext1.Text锛= Int锛圴al锛圱ext1.Text锛塗hen Label1.Caption="杩欐槸濂囨暟"Else If Val锛圱ext1.Text锛塎od 2= 0 And Val锛圱ext1.Text锛= Int锛圴al锛圱ext1.Text锛夛級Then Label1.Caption ="杩欐槸鍋舵暟"Else...
绛旓細绠楁硶鍒嗘瀽锛 鏍规嵁棰樼洰鍒ゆ柇濂囧伓鎬э紝鍙互鐢╩od鍑芥暟锛宯 mod 2 濡傛灉鏄1 鍒欐槸濂囨暟锛屽鏋滄槸0鍒欐槸鍋舵暟銆傜▼搴忥細Private Sub Command1_Click()dim n as integern=inputbox("杈撳叆闇瑕佸垽鏂殑鏁版嵁锛")If n Mod 2 = 0 Then Print "浣犺緭鍏ョ殑鏁板瓧鏄伓鏁般"Else Print "浣犺緭鍏ョ殑鏁板瓧鏄鏁般"End IfEnd ...
绛旓細Dim a(1 To 10) As Integer Private Sub Command1_Click()Dim i As Integer Text1.Text = ""For i = 1 To 10 If odd(a(i)) Then Text1.Text = Text1.Text & "a(" & i & ")= " & a(i) & " 鏄鏁" & vbCrLf Else Text1.Text = Text1.Text & "a(" & i & ")...
绛旓細Private Sub Command1_Click()Dim a Do 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 P...
绛旓細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 Case x Mod 2 = 0 y = MsgBox("璇...
绛旓細鍋氭垚鏁扮粍鎺т欢锛宨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()If IsNumeric(Text1.Text) Then '鏄惁鏁板瓧 If Sgn(Val(Text1.Text)) > 0 Then '鏄惁姝ｆ暟 If CLng(Val(Text1.Text)) = Val(Text1.Text) Then '鏄惁鏁存暟 If Val(Text1.Text) Mod 2 = 0 Then '濂囧伓鎬 Text2.Text = "鍋舵暟"Else Text2.Text = "濂囨暟"E...
绛旓細function isProme (num as interger) as boolean if num mod 2=0 then isProme = true \'num 鏄伓鏁帮紝鍑芥暟杩斿洖true else isProme = false \'num 鏄鏁帮紝鍑芥暟杩斿洖false end if end function
绛旓細Dim a(1 To 10)Dim b Dim c As Integer Dim d As Integer Private Sub Command1_Click()For b = 1 To 10 a(b) = InputBox("杈撳叆鏁版嵁", "", "")If a(b) Mod 2 = 0 Then c = c + 1 Label1.Caption = "浣犺緭鍏ヤ簡" & c & "鍋舵暟"ElseIf a(b) Mod 2 <> 0 Then d ...
绛旓細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
