随机产生不同数

代码编写：
Option   Explicit
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))
   mystr="要"
For  i=2 to  10
   t=Int(Rnd(0*100+1)
   mystr="要"
For k=1  to  i-1
   If  t=a(k)   Then
      mystr="不要"
   Exit  For
  End  If
Next
   If  mystr="不要"  Then
       i=i-1
  Else
      a(i)=t
   Printstr=printstr+str(t)
  End  If
Next 
Print  Printstr
End  Sub