随机产生并显示10个1～10之间的整数，分别求出其中的所有奇数之和和偶数之积 。利用For/Next、Do/Loop两种

Question

vb问题！！！随机产生并显示10个1～10之间的整数，分别求出其中的所有奇数之和和偶数之积 。利用For/Next、Do/Loop两种循环。

Answer 1

Private Sub Form_Click()
Dim a(10), b(10), c, d, i, j, Num As Integer
c = 0
d = 0
Randomize
For i = 1 To 10
Num = Int(Rnd * 10 + 1)
If Num Mod 2 = 0 Then
c = c + 1
a(c) = Num '定义偶数数组
Else
d = d + 1
b(d) = Num '定义奇数数组
End If
Print Num;
Next i
Print

i = 0
j = 1
Do Until i >= c
i = i + 1
j = j * a(i)
Loop
Print "偶数之积"; j

i = 0
j = 0
Do Until i >= d
i = i + 1
j = j + b(i)
Loop
Print "奇数之和"; j

End Sub