随机生成10个数

一·实验目的
使用vb程序实现随机生成十个数。
 
二·实验内容
在vb的窗体上画出一个command按钮，单击command按钮，编写如下程序语言：
Private Sub Command1_Click()
Me.FontSize = 18
Dim a(10) As Integer
Dim mystr As String
 
Dim printstr As String
a(i) = Int(Rnd() * 100 + 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
Next
 
If mystr = "不要"
Then
j = i - 1
Else
a(i) = t
printstr
End If
 
End Sub
 最后单击运行即可，但是程序始终出现了一个错误就是缺少子程序，函数或属性。
 
三·心得体会
快接近期末尾声了，回过头来想一想，学了一学期的vb语言了，但似乎自己什么也没有学到，除了知道要充分利用网络资源就不知道自己还会写什么，遇到问题上网搜寻答案或者等待老是下节课的解答，我觉就没什么自主性了，不是说我们只涨着脑袋不懂，而是我们不知道怎么把脑袋和这个vb语言灵活的结合在一起，换句话说就是我们还没有真正地入vb这门课的门，不知道从何下手。
 
四·遇到的问题及解决办法
遇到的问题还没有解决
 
五·没有解决的问题
在运行程序中遇到缺少子程序，函数或属性。