随机生成十个不同的数

Private Sub Command1_Click()

Me.FontSize = 18

Dim a(10) As Integer

Dim mystr As String

 

Dim printstr As String

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

mystr = "不要"

For i = 2 To 10

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

  For k = 1 To i - 1

  If t = a(k) Then

  mystr = "不要"

  Exit For

End If

Next

 

If mystr = "不要" Then

j = i - 1

Else

a(i) = t

printstr

End If

 

End Sub