随机产生不重复的十个数,剩下的要自己想啦
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 Sub
温馨提示:答案为网友推荐,仅供参考