随机产生10个不重复的100-120的随机数,存放在数组中,并显示结果

记住,是要不重复的。。

随机产生不重复的十个数,剩下的要自己想啦

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
温馨提示:答案为网友推荐,仅供参考
第1个回答  2011-05-26
定义个是数组,然后用随机函数就行了
相似回答