单击窗体,随机产生10个两位整数放入数组中,统计其中偶数的个数,并用消息框输出

Dim a(0 To 9) As Long

Private Sub Form_Click()
Randomize
Form1.Cls
For i = 0 To 9
a(i) = Int(Rnd * 10) + 10 '随机生成10个两位数
Print a(i)
Next
Dim o_num As Integer
o_num = 0
For i = 0 To 9
If a(i) / 2 = a(i) \ 2 Then o_num = o_num + 1 '如果能被2整除，是偶数
Next
MsgBox "偶数一共有" & o_num & "个"

End Sub