vb2014第一次测试.docVIP

vb2014第一次测试 VB学习测试（45分钟） 专业_____________ 班级________年级________姓名______________学号_______________ 一、实验目的 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）运行以下程序，显示的结果为（ ）。 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 2）运行以下的程序,显示的结果为（ ）。 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 3）阅读以下程序： 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 程序运行后，单击窗体，输出结果为（ ）。 4）窗体上有命令按钮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 运行后，单击按钮，输出的结果为（ ）。 5）窗体上有一个命令按钮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);