vb60实验八习题与答案.docVIP

实验八 专业_____________ 班级________年级________姓名______________学号_______________ 一、实验目的 1、掌握通用过程和函数的定义及调用方法 2、了解参数的传递 3、掌握简单的递归算法 二、实验内容 1、在窗体层编写过程Proc1(a() as integer)其功能：给数组a赋[0，99]的随机整数，并显示在Text1中；Proc2(a() as integer)其功能是把数组a进行逆序存放。单击“生成随机数”按钮用于调用Proc1过程；单击“调用proc”按钮，调用Proc2过程；单击“输出结果”按钮，将调用Proc2的结果显示在Text2中。 Dim b(9) As Integer Dim stra As String Private Sub Command1_Click() Call proc1(b()) End Sub Sub proc1(a() As Integer) Randomize For i = 0 To UBound(a) a(i) = Int(Rnd * 100) Text1.Text = LTrim(Text1.Text) + Str(a(i)) Next i End Sub Private Sub Command2_Click() Call proc2 End Sub