用vb程序输出10个随机数

代码：

Private Sub Command1_Click()


Dim i As Integer, t As Integer
Dim k As Integer
Dim a(10) As Integer
Dim mystr As String
Dim youstr As String
 
 a(1) = Int(Rnd * 100 + 1)
  mystr = "要"
  youstr = a(1)
  
For i = 2 To 10
  
  t = Rnd * 100 + 1
    For k = 1 To 10
      If t = a(k) Then
         mystr = "不要"
         Exit For
         
      Else
         mystr = "要"
      End If
    Next k
  If mystr = "要" Then
    a(i) = t
  Else
     i = i - 1
  End If
  youstr = youstr & "," & a(i)
  
Next i
  
  print youstr
End Sub

心得体会：通过老师的讲解，和课上的印象，自己编出了程序，刚开始总是出错，经过修改，才好了。