设计一个输出10位不同的数的程序

今天老师要求我们设计一个输出数组的程序，且这十个数不能重复。
下面是我编写的代码：
Private Sub Command1_Click()

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

今天的作业是在听了老师详细的讲解后自己完成的，一开始是听不懂，但通过老师讲的类比的例子感觉一下子突然就明白了，明确要干什么，然后按照顺序一步步地来，结果就显而易见了。

还有，今天听老师说他自己有时间就在网上学习，突然觉得老师好厉害，自己也该努力了，好好利用网上资源，该加油勒、、、