vb 中用for循环产生不重复的随机数（任一数都不等）

fifayuer 1年前 已收到1个回答 举报
赞

就在那 幼苗

共回答了20个问题采纳率：85% 举报

Private Sub Form_Load()
Me.AutoRedraw = True
Dim a(1 To 10)
For i = 1 To 10
Randomize
a(i) = Int(Rnd * 50 + 1)
For j = 1 To i - 1
If a(i) = a(j) Then i = i - 1: Exit For
Next j

Next i
For i = 1 To 10
Print a(i);
Next i
End Su

1年前

9
可能相似的问题

你能帮帮他们吗

精彩回答

Copyright © 2024 YULUCN.COM - 雨露学习互助 - 16 q. 0.032 s. - webmaster@yulucn.com