二级VB笔试分类练习题 过程.docVIP

12．3 实战练习 一、选择题 1．单击一次命令按钮之后，下列程序代码的执行结果为______ 。 Private Sub Command1_ Click() a = fun(4) + fun(5) Print a; End Sub Public Function fun (n As Integer) Static Num For i = 1 To n Num = Num + i Next i fun = Num End Function A． 15 B．20 C．35 D．40 2．下面过程定义语句可以使过程调用后不影响主调过程中的实际参数的是______ 。 A．Sub Com (By Val a，By Val b) B．Sub Com (a，By Val b) C．Sub Com (a，b) D．Sub Com (By Val a，b) 3．单击一次窗体之后，下列程序代码的执行结果为______ 。 Private Sub Command1_ Click() Dim x As Integer, y As Integer, z As Integer x = 1: y = 2: z = 3 Call fun1 (x, y, z) Print x; y; z Call fun2(x, y, z) Print x; y; z End Sub Private Sub fun1(x As Integer, y As Integer, z As Integer) x = 10 * z y=z*z+ x z=x+ y+ z End Sub Private Sub fun2 (ByVal x As Integer, ByVal y As Integer, ByVal z As Integer) x=10*z y=z*z+ x z=x+ y +z End Sub A．1 2 3 30 39 72 B．1 2 3 1 2 3 C．30 39 72 1 2 3 D．30 39 72 30 39 72 4．单击一次窗体之后，下列程序代码的执行结果为______ 。 Private Sub Command1_ Click() Dim a As Integer, b As Integer, c As Integer a = 1: b = 2: c = 4 Print Value(a, b, c) End Sub Function Num(x As Integer, y As Integer, z As Integer) Num = x * x + y * y + z * z End Function Function Value(x As Integer, y As Integer, z As Integer) Value = Num(x, y, z) + 2 * x End Function A． 21 B． 23 C． 19 D． 35 5．单击一次命令按钮之后，在对话框中输入12，2，34，23，窗体中的输出结果为______ 。 Private Sub Command1_ Click () Dim a(4) As Integer For i = 1 To 4 a (i) = Val (InputBox (“请输入元素”)) Next i plus a(1), a(2), a(3) End Sub Sub plus(first As Integer, second As Integer, third As Integer, Optional forth) n = first + second + third If Not IsMissing (forth) Then n = n + forth End If Print n End Sub