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 = 0N2 = 0Randomize '产生随机系列,保证每次运行不同
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
ElseN2 = N2 + 1 '奇数＋1
End IfNext iPrint
Print 偶数有: & N1 & 个
Print 奇数有: & N2 & 个
End Sub