VB中判断奇数和偶数怎么判断和统计个数 如何用VB判断数学是奇数还是偶数
[VB]\u8f93\u5165\u4e00\u4e2a\u6570\uff1f\u5224\u65ad\u4ed6\u662f\u5947\u6570\u8fd8\u662f\u5076\u6570\u3002\u5e94\u8be5\u600e\u4e48\u7f16\u5199\uff1fPrivate 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 ThenLabel2.Caption = "\u8be5\u6570\u4e3a\u5076\u6570\uff01"ElseLabel2.Caption = "\u8be5\u6570\u4e3a\u5947\u6570\uff01"End IfEnd Sub
在窗体上,放一个按钮,一个文本框,三个标签
代码如下
Private Sub Command1_Click()
If Val(Text1.Text) Mod 2 = 0 Then
Label1.Caption = "该数为偶数！"
Label2.Caption = Label2.Caption +1
Else
Label1.Caption = "该数为奇数！"
Label3.Caption = Label3.Caption +1
End If
End Sub
用两个计算器 各自循环 先判断再计数就行
不会再追 代码
例，求1 到100之间偶数和奇数的数量
dim i as integer,a as integer,b as integer
for i=1 to 100
if i mod 2=0 '偶数
a=a+1 '偶数奇数
else '奇数
b=b+1 ‘奇数计数
end if
next
if x mod 2=0 then msgbox x & "是偶数" :os=os+1 else msgbox x & "是奇数":js=js+1
绛旓細' 濡傛灉 N 鏄鍋舵暟锛岃绠 N 鐨勯樁涔 Dim factorial As Long = 1 For i As Integer = 2 To N Step 2 factorial *= i Next Console.WriteLine("N 鐨勯樁涔樹负锛" & factorial)Else ' 濡傛灉 N 鏄濂囨暟锛岃绠 1 鍒 N 鐨勭疮鍔犲拰 Dim sum As Long = 0 For i As Integer = 1 To N sum += ...
绛旓細鍦ㄧ獥鍙ｄ笂寤虹珛涓涓寜閽細Function Total(Num1,Num2)As String 'Num1 涓濂囨暟鍜 'Num2 涓鍋舵暟鍜 For i = 1 To 100 If i Mod 2 <> 0 Then Num1 = Num1 + i Else Num2 = Num2 + i End If Next Total = "濂囨暟鍜岋細"& Num1 & "鍋舵暟鍜岋細"& Num2 End Function Private Sub Comman...
绛旓細Private Sub command1_click()Dim a(20) As Integer For i = 1 To 20 a(i) = CInt(InputBox("璇疯緭鍏ョ" & i & "涓暣鏁:"))If a(i) Mod 2 = 1 Then js = js + a(i) Else os = os + a(i)Next i MsgBox ("濂囨暟鐨鎬诲拰涓" & js & vbCrLf & "鍋舵暟鐨鎬诲拰涓" & os)...
绛旓細绠楁硶鍒嗘瀽锛 鏍规嵁棰樼洰鍒ゆ柇濂囧伓鎬э紝鍙互鐢╩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 sumJ As Integer, sumO As Integer, sumZ As Integer, i As Integer Private Sub Form_Load()For i = 1 To 100 sumZ = sumZ + i If i Mod 2 = 0 Then sumO = sumO + i Else sumJ = sumJ + i End If Next Text1.Text = sumZ & vbCrLf & sumJ & vbCrLf & sumO En...
绛旓細x=inputbox("杈撳叆鏁板瓧")if x mod 2=0 then msgbox "杈撳叆鏁颁负鍋舵暟"else msgbox "杈撳叆鏁颁负濂囨暟"end if for i = 0 to x if i mod 2=0 sumo=sumo+i else sumj=sumj+i next i msgbox "濂囨暟鍜:" & sumj & "濂囨暟鍜:" & sumo ...
绛旓細Private Sub Command1_Click()Dim x As Long, y As Long, sumX As Long, sumY As Long x = Val(InputBox("杈撳叆濂囨暟鑼冨洿"))y = Val(InputBox("杈撳叆鍋舵暟鑼冨洿"))For i = 1 To x Step 2 sumX = sumX + i Next For i = 2 To y Step 2 sumY = sumY + i Next Print "濂囨暟...
绛旓細Dim i As Long Dim j As Long Dim k As Long For i = 0 To 100 If i Mod 2 = 0 Then j = j + i Else k = k + i Next MsgBox "鍋舵暟鍜锛" & j & vbCrLf & "濂囨暟鍜锛" & k 甯屾湜浣犳弧鎰
绛旓細閫愯鎵嬫暡锛屼翰娴嬪彲鐢ㄣ傛湁闂鍙互闂垜銆侾rivate Sub Command1_Click()Dim a, bText3.Text = Val(Text1.Text) + Val(Text2.Text)Text4.Text = Val(Text1.Text) * Val(Text2.Text)If Val(Text1.Text) Mod 10 = 1 Thena = "绗竴涓暟涓濂囨暟"Elsea = "绗竴涓暟涓鍋舵暟"End IfIf ...
绛旓細ji = ji + i Print i; Else ou = ou + i End If Next PrintPrint "濂囨暟鍜涓猴細" + Str(ji) + "鍋舵暟浣曚负锛" + Str(ou)Else MsgBox "璇风‘淇濆墠闈㈡暟瀛楀皬锛屽悗闈㈡暟瀛楀ぇ"End IfEnd Sub
