如何用vb判断奇偶 如何用VB判断数学是奇数还是偶数
VB\u5224\u65ad\u5947\u5076\u6027\u7f16\u7a0b\uff1f\u7b97\u6cd5\u5206\u6790\uff1a \u6839\u636e\u9898\u76ee\u5224\u65ad\u5947\u5076\u6027\uff0c\u53ef\u4ee5\u7528mod\u51fd\u6570\uff0cn mod 2 \u5982\u679c\u662f1 \u5219\u662f\u5947\u6570\uff0c\u5982\u679c\u662f0\u5219\u662f\u5076\u6570\u3002\u7a0b\u5e8f\uff1aPrivate Sub Command1_Click()
dim n as integern=inputbox("\u8f93\u5165\u9700\u8981\u5224\u65ad\u7684\u6570\u636e\uff1a")If n Mod 2 = 0 Then
Print "\u4f60\u8f93\u5165\u7684\u6570\u5b57\u662f\u5076\u6570\u3002"
Else
Print "\u4f60\u8f93\u5165\u7684\u6570\u5b57\u662f\u5947\u6570\u3002"
End IfEnd Sub\u5509\u00b7\u00b7\u00b7\u56de\u7b54\u8fd9\u4e2a\u95ee\u9898\u771f\u4e0d\u597d\u610f\u601d\u3002
Private Sub Command1_Click()If Val(Text1.Text) Mod 2 = 0 ThenLabel2.Caption = "\u8be5\u6570\u4e3a\u5076\u6570\uff01"ElseLabel2.Caption = "\u8be5\u6570\u4e3a\u5947\u6570\uff01"End IfEnd Sub
If Abs(m) Mod 2 = 1 Then
Print m & "是奇数"
Else
Print m & "是偶数"
End If
绛旓細鍙互鐢╥f鎴栬卻elect case 锛岀敤鍙栦綑鐨勬妧宸у垽鏂鍋舵暟锛屼緥濡傦紝5 mod 2 =1锛岄偅涔堣繖涓氨鏄鏁銆傛楠/鏂规硶 鎵撳紑VB杞欢锛屽缓绔嬩竴涓爣鍑咵XE銆寤虹珛涓や釜鏂囨湰妗嗭紝鍚嶇О鏀逛负T1锛孴2锛岃缃竴涓懡浠ゆ寜閽紝caption鏀逛负鍒ゆ柇濂囧伓銆傜偣鍑绘寜閽繘鍏ヤ唬鐮佺紪杈戝櫒锛 A = T1.Text Select Case A Mod 2 Case 1 T2.Text = ...
绛旓細閫氳繃Abs()鍑芥暟瀵规暣鏁板彇缁濆鍊硷紝鐒跺悗閫氳繃Mod 2鍙栦綑璁＄畻鍒ゆ柇锛屽嵆闄や互2锛浣欐暟鏄1锛岄偅涔堝氨鏄鏁帮紝浣欐暟鏄0灏辨槸鍋舵暟銆傚涓嬶細If Abs(m) Mod 2 = 1 Then Print m & "鏄鏁"Else Print m & "鏄伓鏁"End If
绛旓細浠庨敭鐩樿緭鍏ヤ竴涓暟,鍒ゆ柇鍏舵槸濂囨暟杩樻槸鍋舵暟,搴旇浣跨敤VB鐨勯夋嫨绋嬪簭缁撴瀯銆傚彲浠ヤ娇鐢╥f...else...璇彞锛屼篃鍙互浣跨敤 鍧梚f璇彞锛岃繕鍙互浣跨敤iif()鍑芥暟銆
绛旓細VB涓伓鏁般佸鏁扮殑鍐欐硶锛歅rivate Sub Command1_Click()Dim s As Integer On Error GoTo err s = InputBox("璇疯緭鍏ヤ竴涓暣鏁", "濂囧伓妫娴")s = s Mod 2 If s = 0 Then Label1.Caption = "浣犺緭鍏ョ殑鏄伓鏁"Else Label1.Caption = "浣犺緭鍏ョ殑鏄鏁"End If err:End Sub Visual Basic婧愯嚜浜...
绛旓細绠楁硶鍒嗘瀽锛 鏍规嵁棰樼洰鍒ゆ柇濂囧伓鎬э紝鍙互鐢╩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 ...
绛旓細棣栧厛鍒ゆ柇鏁皒鏄惁澶т簬绛変簬0锛屽ぇ浜庣瓑浜0浜嗗啀闄や互2鍙栦綑鏁帮紙x%2锛夛紝浣欐暟寰1灏辨槸濂囨暟鍚﹀垯鏄伓鏁
绛旓細鐢⊿ub杩囩▼鍒嗗埆瀵瑰鏁板拰鍋舵暟杩涜鎺掑簭,濂囨暟鐢ㄩ夋嫨娉曟帓搴,鍋舵暟鐢ㄥ啋娉℃硶鎺掑簭,鐒跺悗鍦ㄨ皟鐢ㄨ繃绋嬪唴,灏嗘帓濂藉簭鐨勫鏁板拰鍋舵暟鎸夋瘡琛10涓暟鍒嗗埆杈撳嚭鍒板浘鐗囨鍜屾爣绛句腑銆3.鐢‵unction杩囩▼鍒ゆ柇闅忔満鏁存暟鏄惁涓虹礌鏁般傚湪璋冪敤杩囩▼鍐,灏嗘壘鍑虹殑绱犳暟(鎸夋瘡琛10涓暟)鍙婃眰鍜岀粨鏋滆緭鍑哄埌鏂囨湰妗嗕腑銆4.Sub杩囩▼鍜孎unction杩囩▼鍧囧缓绔嬪湪鏍囧噯妯″潡涓
绛旓細鍋氱潃鍋氱潃鍙戠幇锛屽綋鎴戜滑杈撳叆灏忔暟鐨勬椂鍊欙紝绋嬪簭渚濈劧浼氳緭鍑濂囧伓锛屽彲灏忔暟鏃犲鍋朵箣鍒嗭紒鎵浠ユ垜浠鐢ㄤ竴鏉″嚱鏁版潵鍒ゆ柇鏄惁鏁存暟鈥斺擨nt()銆傝鍑芥暟鍙互灏嗕竴涓暟鍙樹负鏁存暟銆傛墍浠ュ鏋 n = Int(n)閭ｄ箞杩欎釜鏁板氨鏄暣鏁颁簡銆備负浜嗘妸杩欎釜鏉′欢鍔犲叆鍒ゆ柇锛屽垯搴旇浣跨敤閫昏緫杩愮畻绗 And 杩炴帴涓や釜鏉′欢銆傚繀椤讳袱涓潯浠跺悓鏃舵垚绔嬶紝鎵嶈兘...
绛旓細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 & ")= " & a(i) & " 鏄伓鏁" & vbCrLf End If Next End ...
绛旓細dim x as integer x=Val(inputbox("杈撳叆涓涓暣鏁帮細"))if x mod 2 =0 then msgbox "鍋舵暟锛"else msgbox "濂囨暟锛"end of If x >0 Then msgbox "姝ｆ暟锛"If x <0 Then msgbox "璐熸暟锛"
