UC知道VB循环的应用，会的帮忙~~
来源：百度知道 编辑：UC知道 时间：2024/05/25 20:54:34
统计随机产生的20个两位正整数中偶数和奇数的个数及各自的总和。
运行时窗体上显示：第一、二行分别显示十个随机数，第三、四行分别显示奇数、偶数的个数及总和，形如“奇数个数是5，奇数总和是234”。
运行时窗体上显示：第一、二行分别显示十个随机数，第三、四行分别显示奇数、偶数的个数及总和，形如“奇数个数是5，奇数总和是234”。
Option Base 1
Dim S(1 To 20) '定义一个数组S
Private Sub Form_Click()
For i = 1 To 20
S(i) = Int(Rnd(1) * 90 + 10) '随机产生一个2位数
If i = 11 Then '当出现10个数后换行打印后面10个数
Print vbCrLf
End If
Print S(i);
If S(i) Mod 2 = 0 Then '判断奇数或者偶数
n = n + 1 '记录出现偶数的个数
M = M + S(i) '求和
Else
a = a + 1 '同上
b = b + S(i)
End If
Next i
Print
Print "奇数的个数为" & n & "个，奇数的总和为：" & M:
Print "偶数的个数为" & a & "个，奇数的总和为：" & b;
Print
End Sub