《vb60实验习题与答案.docx》由会员分享，可在线阅读，更多相关《vb60实验习题与答案.docx（5页珍藏版）》请在三一办公上搜索。
1、vb60实验习题与答案实验八 专业_ 班级_年级_姓名_学号_ 一、实验目的 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 P
2、rivate 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 P
3、rivate Sub Command3_Click Text2.Text = stra End Sub 2、操作题16 3、练习 1）打开工程文件8_2.vbp，运行时，先给Text1和Text2各赋一个数；单击“赋值”按钮；再单击“调用过程”按钮；最后单击“显示结果”按钮。注意Text3和Text4的值与Text1和Text2值的关系。仔细阅读程序代码，说明各个过程的功能。 回答一个问题：若把变量声明语句“Dim x As Integer, y As Integer”放在某一过程中行吗？为什么？ 2）运行以下程序，显示的结果为。 Public Sub F1(n%, ByVal m%) n =
4、 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）运行以下的程序,显示的结果为。 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 Fu
5、nction 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 程序运行后，单击窗体，输出结果为。 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)
6、 = 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 运行后，单击按钮，输出的结果为。 6）窗体上有一个命令按钮Command1，编写如下事件过程： Function fun(x As Integer) Static y As Integer y = y + 1 fun = x + y End Function Private Sub Command1_Click Dim x As Integer For i = 1 To 2 x = x + 1 Print fun(x);
7、 Next i End Sub 运行时，单击命令按钮，窗体将显示。 7）有如下两个过程S1和S2： Sub S1 (ByRef x As Integer, ByRef y As Integer) Dim t As Integer t = x: x = y: y = t End Sub Sub S2(x As Integer, y As Integer) Dim t As Integer t = x: x = y: y = t End Sub 关于S1和S2的区别是。 8）以下函数的功能是。 Function fact(x As Integer) As Long Dim p As Long, i
8、 As Integer p = 1 For i = 1 To x p = p * i Next i fact = p End Function 9）运行下面的程序,x和y的值分别为。 Public Sub F1(m%, ByVal n%) Dim K% if m n then k=m:m=n:n=k End Sub Private Sub Command1_Click Dim x%, y% x = 30: y = 20 Call F1(x, y) End Sub 10）以下函数的功能是。 Public Function F1%(m%, ByVal n%) Dim r% If m 0 n = m: n = r: r = m Mod n Loop F1 = n End Function 11）以下函数的功能是。 Sub p1(b As Integer) Dim n% For i = UBound(b) To LBound(b) Step -1 Print b(i); n = n + 1 If n 3 = n / 3 Then Print Next i End Sub 12）已知过程： Sub p1(ByVal a$, ByVal b$, c%) c = a + b End Sub 且有调用语句： Call P1(5,3,a)；那么变量a的值为。
