随机生成十个不相同的数

Option Explicit

Private Sub Command1_Click()

  Dima(10) As Integer, i As Integer, k As Integer, t As Integer

  DimFlag As String

  Dimprintstr As String

 

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

 printstr = Str(a(1))

  Fori = 2 To 10

       'mystr = "要"

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

       For k = 1 To i - 1

           If t = a(k) Then

               'mystr = "不要"

                Exit For

           End If

       Next

       If k = i Then          

           a(i) = t

           'mystr = "要"

           printstr = printstr + Str(t)

       Else

           i = i - 1

       End If

   Next

   Print printstr

End Sub