随机生成10个不重复的整数

 

Dim a(1 To 10) As Integer

Private Sub Command1_Click()

Form_Load

End Sub

 

Private Sub Form_Load()

   Dim p As String

   Randomize

    p= ""

   For i = 1 To 10

   Do

    X= Int(Rnd * 90) + 10

   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)) & ","

   Next

   Label1.Caption = LTrim(Left(p, Len(p) - 1))

   End Sub