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 Su