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

第一篇：

Private Sub Form_Load()

Me.FontSize = 18

Dim a(100) As Integer, b(100) As Integer

Dim i As Integer, j As Integer, k AsInteger

Form1.AutoRedraw = True

Randomize

For i = 1 To 100

a(i) = i

Next

For i = 1 To 99

k = Int(Rnd * (100 - i + 1) + 1)

b(i) = a(k)

For j = k To 100 - i

a(j) = a(j + 1)

Next

Next

b(100) = a(1)

For i = 1 To 10

Print b(i)

If i Mod 10 = 0 Then Print

Next

End Sub

 

第二篇：

Private Sub Command1_Click()

   Dim a() As Integer

   ReDim a(100)

   a(1) = Int(Rnd() * 1000 + 1)

   Print a(1)

   For i = 2 To 10

    For k = 1 To i - 1

    t= Int(Rnd() * 1000 + 1)

    Ifa(k) = t Then

    i= i - 1

    ExitFor

    EndIf

    Next

    a(i)= t

    Print t

   Next

End Sub