VB：随机生成20个2位随机奇数和偶数,分2行显示：这20个随机数中偶数有 ；奇数有 ；偶数共 个；奇数共 个

VB：随机生成20个2位随机奇数和偶数,分2行显示：这20个随机数中偶数有 ；奇数有 ；偶数共 个；奇数共 个
VB：随机生成20个2位随机奇数和偶数,分2行显示：这20个随机数中偶数有 ；奇数有 ；偶数共 个；奇数共 个

VB：随机生成20个2位随机奇数和偶数,分2行显示：这20个随机数中偶数有 ；奇数有 ；偶数共 个；奇数共 个
是不是这样：（fomr的autodraw属性要设定为true）
Private Sub Command1_Click()
Dim i As Integer
Dim RndNUm As Integer '定义随机数
Dim N1 As Integer '偶数个数
Dim N2 As Integer '奇数个数
N1 = 0
N2 = 0
Randomize '产生随机系列,保证每次运行不同
For i = 1 To 20
RndNUm = 10 + 89 * Rnd() '产生10-99随机数
Print RndNUm & " ";
If i = 10 Then Print "" '第11个换行
If RndNUm Mod 2 = 0 Then '如果是偶数（被2整除)
N1 = N1 + 1
Else
N2 = N2 + 1 '奇数＋1
End If
Next i
Print ""
Print "偶数有:" & N1 & "个"
Print "奇数有:" & N2 & "个"
End Sub