Question

VB程序问题

利用随机函数产生20个10~99之间（包括10和99）的随机整数存入一维数组A，统计其中奇数和偶数的个数。
输入100个实数，求出其和输出。

Answer 1

Private Sub Form_Click()
'1
Dim i As Integer, n1 As Integer, n2 As Integer
Dim A(1 To 20) As Integer
For i = 1 To 20
 A(i) = 10 + Int(Rnd * 90)
 If A(i) Mod 2 <> 0 Then
  n1 = n1 + 1
 Else
  n2 = n2 + 1
 End If
 Print A(i);
 If i Mod 10 = 0 Then Print
 
Next
Print "odd:"; n1, "even:"; n2

End Sub