一·实验目的
使用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这门课的门,不知道从何下手。
四·遇到的问题及解决办法
遇到的问题还没有解决
五·没有解决的问题
在运行程序中遇到缺少子程序,函数或属性。