VB中判断奇数和偶数怎么判断和统计个数

2024-11-01 18:28:15

推荐回答（4个）

回答（1）：

在窗体上,放一个按钮,一个文本框,三个标签

代码如下

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

回答（2）：

用两个计算器各自循环先判断再计数就行
不会再追代码

回答（3）：

例，求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

回答（4）：

if x mod 2=0 then msgbox x & "是偶数" :os=os+1 else msgbox x & "是奇数":js=js+1