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

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

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

这下我知道了

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息