求一个随机生成5位数不重复的VB脚本或任意程序

显示全部楼层 · 2012-7-17 22:02:26

Private Sub Command1_Click()ClsRandomize '随机数初始化For i = 1 To 20
a = Rnd(1)'产生与前一次不一样的随机小数
b = Int(a * 10000 + 0.1) '将小数放大一万倍，即产生一个0-10000的随机整数
Print bNext iEnd Sub结果如图，如果你想产生其它范围的随机数，我想你自己会改吧？ ...

千问 · 2012-7-17 22:02:26

Private Sub Form_Load()ShowDim I As Integer, J As IntegerDim A(5) As SingleFor I = 1 To 5
Randomize
A(I) = Int(Rnd * 90000) + 10000
For J = 1 To I - 1
...

千问 · 2012-7-17 22:02:26

egerg...