随机生成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这门课的门，不知道从何下手。

 

四·遇到的问题及解决办法

遇到的问题还没有解决

 

五·没有解决的问题

在运行程序中遇到缺少子程序，函数或属性。