vb编写一个程序，随机赋值一个有100个元素的一维数组，并计算数组中元素的奇数个数

更新时间2019-04-18 08:45:43

参考程序：

Private Sub Command1_Click()
Dim a(100) As Integer
Dim ct As Integer
ct = 0
Randomize
For i = 0 To 99
 a(i) = Int(Rnd * 100) + 1
 If a(i) Mod 2 = 1 Then
   ct = ct + 1
 End If
Next
 Print ct
End Sub