计算机VB题 在窗体的click事件中编写程序：利用随机函数Rnd生成N个[10，100]之间的整数，

Question

将他们在窗体上输出，并统计其中偶数的个数和奇数的个数并显示在窗体上面

Answer 1

所要的程序如下：

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