作业帮 > 数学 > 作业

1.随机生成20个位于[1,100]间的整数,分别统计并显示其中的奇数和偶数的个数.

来源:学生作业帮 编辑:作业帮 分类:数学作业 时间:2024/05/23 10:36:13
1.随机生成20个位于[1,100]间的整数,分别统计并显示其中的奇数和偶数的个数.
Private Sub Command1_Click()
For k = 1 To 20 Step 1
Print "K="; k;
t = Rnd()
t = Rnd() * 100
t = Int(t)
Print t,
If Int(t / 2) = t / 2 Then
oushu = oushu + 1
Else
jishu = jishu + 1
End If
Print "JISHU="; jishu,
Print "OUSHU="; oushu
Print
Next k
End Su