随机生成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