如何生成6位不重复的随机数

Question

如题所述

Answer 1

下面我给你一个示例来演示如何生成的不重复的随机数的

Private Sub Command1_Click()
Dim p As String
Randomize '初始化
p = ""
For i = 1 To 10
 Do                       'Do循环的作用是避免产生相同的数
  x = Int(Rnd * 90) + 10  '生成10到100之间的随机整数
  yes = 0                  '作标记
   For j = 1 To i - 1      '与已经产生的数作比较
    If x = a(j) Then yes = 1: Exit For '如遇雷同，则退出此层循环，重新再生成新数
   Next
 Loop While yes = 1
 a(i) = x                     '将生成的随机数赋给数组
 p = p & Str(a(i)) & "，"     '产生的随机数转换成字符串后累连到变量p中暂存
Next
Label1.Caption = LTrim(Left(p, Len(p) - 1)) '将全部随机数放到标签上显示
Label2.Caption = ""          '清空
End Sub