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 Sub proc2() For i = 9 To 0 Step -1 stra = stra b(i) Next i End Sub Private Sub Command3_Click() Text2.Text = stra End Sub 2、操作题1~6 3、练习 1）打开工程文件8_2.vbp，运行时，先给Text1和Text2各赋一个数；单击“赋值”按钮；再单击“调用过程”按钮；最后单击“显示结果”按钮。注意Text3和Text4的值与Text1和Text2值的关系。仔细阅读程序代码，说明各个过程的功能。 回答一个问题：若把变量声明语句“Dim x As Integer, y As Integer”放在某一过程中行吗？为什么？ 2）运行以下程序，显示的结果为（4，12 ）。 Public Sub F1(n%, ByVal m%) n = n mod 10 m = m \ 10 End Sub Private Sub Command1_Click() Dim x%, y% x = 34: y = 12 Call F1(x, y) Print x, y End Sub 3）运行以下的程序,显示的结果为（ 1 ）。 Private Sub Command1_Click() Print p1(3, 9) End Sub Public Function p1!(x!, n%) If n = 0 Then p1 = 1 Else If n Mod 2 = 0 Then p1 = x * 5 Else p1 = 5 \ x End If End If End Function 4）阅读以下程序： Sub Yu(x%, y%) x = 5 * x: y = x + y End Sub Private Sub Form_Click() Dim a%, b% a = 5: b = 10 Yu a, b Print a, b End Sub 程序运行后，单击窗体，输出结果为（25，35 ）。 5）窗体上有命令按钮Command1，编写如下事件过程： Sub p(b() As Integer) For i = 1 To 4 b(i) = 2 ^ i Next i End Sub Private Sub Command1_Click() Dim a(1 To 4) As Integer a(1) = 1: a(2) = 3 a(3) = 5: a(4) = 7 p a() For i = 1 To 4 Print a(i); Spc(1); Next i End Sub 运行后，单击按钮，输出的结果为（2 4 8 16 ）。 6）窗体上有一个命令按钮Command1，编写如下事件过程： Function fun(x As Integ