VB:产生20个30到50之间的随机数，并以每行4个进行排列。 要求代码尽可能简洁易懂，谢谢！

Question

如题所述

Answer 1

Private Sub Command1_Click()
Randomize
For i = 1 To 20
a = Int(Rnd() * 21 + 30)
Print a;
If i Mod 4 = 0 Then Print
Next
End Sub

这里的区间是[30,50]
如果是[30，50)请将上面的21改为20

Answer 2

Private Sub Command1_Click()
Randomize

For m = 1 To 5'外部循环共输出5行
For i = 1 To 4 '内部循环 每输出4个数字换行
a = Int(Rnd() * 21 + 30)
Print a;
Next
Print '换行打印
Next
End Sub