设计一个输出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

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

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