用不着象楼上那么复杂的程序,看我的:
Private Sub Command1_Click()
Dim Aa(10) As Integer
Cls
Randomize
For I = 1 To 10
A = Int(Rnd * 10)
Print A
Aa(I) = A
Next I
End Sub
再看运行结果,就知道这个程序是对的,我运行了好多遍,结果都是0-9间。只是我用的是10次,如果想产生100次,也只要改一点程序。
如果你只想4次,你会知道改吧?最后再把数组分别赋给a,b,c,d就可以了。
![](https://video.ask-data.xyz/img.php?b=https://iknow-pic.cdn.bcebos.com/908fa0ec08fa513d6c7cbe4f3d6d55fbb3fbd949?x-bce-process=image%2Fresize%2Cm_lfit%2Cw_600%2Ch_800%2Climit_1%2Fquality%2Cq_85%2Fformat%2Cf_auto)
本回答被网友采纳