VB编制子过程，通过调用子过程：（1）产生30个1到100之间的随机数；（2）统计并输出其中奇数和偶数的个数

Private Function os(a As Integer) As Boolean
os = True
If a Mod 2 <> 0 Then os = False
End Function

Private Sub Form_Click()
Dim s(1 To 30) As Integer
Dim j As Integer
Dim o As Integer
Randomize
For i = 1 To 30
s(i) = Int(Rnd * 100) + 1
List1.AddItem s(i)
If os(s(i)) = False Then
j = j + 1
Else: o = o + 1
End If
Next
Print "偶数的个数是：" & o
Print "可数的个数是：" & j
End Sub