将他们在窗体上输出,并统计其中偶数的个数和奇数的个数并显示在窗体上面
所要的程序如下:
Private Sub Form_Click()
n = Val(InputBox("N="))
Print n; "个随机数:"
For i = 1 To n
x = 10 + Int(90 * Rnd)
Print x;
If i Mod 10 = 0 Then Print
If x Mod 2 = 0 Then ou = ou + 1 Else ji = ji + 1
Next i
Print
Print "其中偶数有"; ou; "个,奇数有"; ji; "个"
End Sub