生成十个随机数

Dim a(10) As Integer
Dim mystr As String
Dim printstr As String
a(i) = Int(Rnd() * 100 + 1)
printstr = Str(a(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
If mystr = "不要" Then
i = i - 1
Else
a(i) = t
printstr = Str(a(i))
End If
Next
Print printstr
Next

End Sub
靠，晕啦，还是慢慢体会吧