1、过程及答案解析(总分：34.00，做题时间：90 分钟)一、B选择题/B(总题数：12，分数：24.00)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（分数：2.00）A.15B.20C.35D.402.单击一次命令按钮之后，窗体中的输出结果为
2、_ 。 Private Sub Command1_ Click() Dim a As Integer, b As Integer For i = 1 To 6 a=i*i+i Next i Call writein(a, b) Print a, b End Sub Sub writein(a, ByVal b) b = 1 For i = 1 To 6 a=b* 4 b = b + 1 Next i End Sub（分数：2.00）A.24 6B.24 0C.12 6D.12 03.单击一次窗体之后，下列程序代码的执行结果为_ 。 Private Sub Command1_ Click() D
3、im 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（分数：2.00）A.21
4、B.23C.19D.354.下面过程定义语句可以使过程调用后不影响主调过程中的实际参数的是_ 。（分数：2.00）A.Sub Com (By Val a，By ValB.Sub Com (a，By ValC.Sub Com (a，D.Sub Com (By Val a，5.单击一次窗体之后，下列程序代码的执行结果为_ 。 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
5、(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（分数：2.00）A.1 2 3 30 39 72B.1 2 3 1 2 3C.30 39 72 1 2 3D.30 3
6、9 72 30 39 726.单击一次命令按钮之后，在对话框中输入 12，2，34，23，窗体中的输出结果为_ 。 Private Sub Command1_ Click() a = 10: b = 20: c = 30 Call check(a, b * 2, (c) Print “Name:“; a; b; c End Sub Private Sub check(a, ByVal b, c) Dim t As Integer a = a + 1: b= b + 1: c = c + 1 t = a a =b b = t End Sub（分数：2.00）A.20 30 40B.40 30 2
7、0C.41 30 10D.41 20 307.单击一次命令按钮之后，窗体中的输出结果为_ 。 Private Sub Command1_ Click() Dim a As Single Dim b As Single a = 10 b = 20 Call Num(a, b) Print a, b End Sub Sub Num(a, b) t = a a = b / t b = t End Sub（分数：2.00）A.20 10B.10 20C.2 10D.10 108.单击一次命令按钮之后，在对话框中输入 12，21，30，3，窗体中的输出结果为_ 。 Private Sub Command
8、1_ Click() For i = 1 To 4 s = InputBox (“请输入”) Call per(i, s) Next i Print s End Sub Sub per(a, ByVal b) b = 1 For i = 1 To 3 a = a * i Next i End Sub（分数：2.00）A.12 21 30 3B.24 42 60 6C.3 30 21 12D.只能输入一个数9.单击一次命令按钮之后，窗体中的输出结果为_ 。 Private Sub Command1_ Click() For i = 1 To 4 x = fun(i) Print x; Next
9、i End Sub Function (n) x = n * n FF = x End Sub（分数：2.00）A.1 4 9 16B.1 3 5 7C.3 6 9 12D.2 4 6 810.下列 Sub 过程中描述错误的是_ 。（分数：2.00）A.Sub 过程只能在窗体模块中定义B.Goto 语句不能用于 Sub 过程C.Sub 过程只能在窗体模块中定义D.Sub 过程中不能嵌套定义 Sub 过程11.单击一次命令按钮之后，在对话框中输入 10，20，30，40，窗体中的输出结果为_ 。 Private Sub Command1_ Click() Dim a(4) As Integer
10、For i = 1 To 4 a(i) = InputBox (“请输入:”) Next i Call subper (a) For i = 1 To 4 Print a(i) Next i End Sub Sub subper (b () As Integer) For i = 1 To 4 b(i) = 2 * i Next i End Sub（分数：2.00）A.10 20 30 40B.1 2 3 4C.2 4 6 8D.5 10 15 2012.单击一次命令按钮之后，在对话框中输入 12，2，34，23，窗体中的输出结果为_ 。 Private Sub Command1_ Click
11、 () 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（分数：2.00）A.14B.71C.
12、48D.37二、B填空题/B(总题数：5，分数：10.00)13.下列函数过程的作用是计算 x 和 y 的最大公约数。请填空。 Private Sub Command1_ Click() Dim x As Integer, y As Integer, Result As Integer x = InputBox (“请输入第一个数”) y = InputBox (“请输入第二个数”) Result =_ Print x; “和“; y; “的最大公约数为: “; Result End Sub Private Function GYS (ByVal A As Integer, ByVal B A
13、s Integer) Dim T As Integer T = A Mod B Do While _ A = B B = T T = A Mod B Loop _ End Function（分数：2.00）填空项 1:_14.通用过程可以放在标准模块中，也可以放在窗体模块中，而 1 只能放在窗体模块中，不同模块中的过程(包括事件过程和通用过程)可以互相调用。（分数：2.00）填空项 1:_15.单击命令按钮后，下列程序代码的执行结果是_ 。 Public Sub fun (Byval a () As Integer) Static n As Integer Do a(n) = a (n) +
14、a(n + 1) n = n + 1 Loop While n 3 End Sub Private Sub command1_ click() Dim m As Integer, n As Integer, a(10) As Integer For n = 0 To 2: a(n) = n + 1: Next n For n = 1 To 2: Call fun(a): Next n For n = 0 To 3: Print a(n): Next n End Sub（分数：2.00）填空项 1:_16.单击命令按钮后，下列程序代码的执行结果是_ 。 Public Sub fun (a As
15、Integer, b As Integer, c As Integer) Do a=b+ c n=n+1 Loop While n 3 End Sub Private Sub command1_ click() Dim m As Integer, n As Integer, i As Integer For i = 0 To 2: m = n + 1: Next i For i = 1 To 2: Call fun (m, n, i): Next i For i = 0 To 3 Print m; Next i End Sub（分数：2.00）填空项 1:_17.运行下列程序后，单击命令按钮，
16、输出结果为_ 。 Function Fin (a As Integer, b As Integer) As Integer Fin = IIf (a b, a, b) End Function Private Sub Command1_ Click() Dim a As Integer, b As Integer a = 1 b = 2 Print Fin(a, b) End Sub（分数：2.00）填空项 1:_过程答案解析(总分：34.00，做题时间：90 分钟)一、B选择题/B(总题数：12，分数：24.00)1.单击一次命令按钮之后，下列程序代码的执行结果为_ 。 Private Su
17、b 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（分数：2.00）A.15B.20C.35 D.40解析：2.单击一次命令按钮之后，窗体中的输出结果为_ 。 Private Sub Command1_ Click() Dim a As Integer, b As Integer For i = 1 To 6 a=i*i+i
18、Next i Call writein(a, b) Print a, b End Sub Sub writein(a, ByVal b) b = 1 For i = 1 To 6 a=b* 4 b = b + 1 Next i End Sub（分数：2.00）A.24 6B.24 0 C.12 6D.12 0解析：3.单击一次窗体之后，下列程序代码的执行结果为_ 。 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)
19、 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（分数：2.00）A.21B.23 C.19D.35解析：4.下面过程定义语句可以使过程调用后不影响主调过程中的实际参数的是_ 。（分数：2.00）A.Sub Com (By Val a，By
20、Val B.Sub Com (a，By ValC.Sub Com (a，D.Sub Com (By Val a，解析：5.单击一次窗体之后，下列程序代码的执行结果为_ 。 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,
21、 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（分数：2.00）A.1 2 3 30 39 72B.1 2 3 1 2 3C.30 39 72 1 2 3D.30 39 72 30 39 72 解析：6.单击一次命令按钮之后，在对话框中输入 12，2，34，23，窗体中的输出结果为_ 。 Private Sub Co
22、mmand1_ Click() a = 10: b = 20: c = 30 Call check(a, b * 2, (c) Print “Name:“; a; b; c End Sub Private Sub check(a, ByVal b, c) Dim t As Integer a = a + 1: b= b + 1: c = c + 1 t = a a =b b = t End Sub（分数：2.00）A.20 30 40B.40 30 20C.41 30 10D.41 20 30 解析：7.单击一次命令按钮之后，窗体中的输出结果为_ 。 Private Sub Command1_
23、 Click() Dim a As Single Dim b As Single a = 10 b = 20 Call Num(a, b) Print a, b End Sub Sub Num(a, b) t = a a = b / t b = t End Sub（分数：2.00）A.20 10B.10 20C.2 10 D.10 10解析：8.单击一次命令按钮之后，在对话框中输入 12，21，30，3，窗体中的输出结果为_ 。 Private Sub Command1_ Click() For i = 1 To 4 s = InputBox (“请输入”) Call per(i, s) Ne
24、xt i Print s End Sub Sub per(a, ByVal b) b = 1 For i = 1 To 3 a = a * i Next i End Sub（分数：2.00）A.12 21 30 3B.24 42 60 6C.3 30 21 12D.只能输入一个数 解析：9.单击一次命令按钮之后，窗体中的输出结果为_ 。 Private Sub Command1_ Click() For i = 1 To 4 x = fun(i) Print x; Next i End Sub Function (n) x = n * n FF = x End Sub（分数：2.00）A.1
25、4 9 16 B.1 3 5 7C.3 6 9 12D.2 4 6 8解析：10.下列 Sub 过程中描述错误的是_ 。（分数：2.00）A.Sub 过程只能在窗体模块中定义 B.Goto 语句不能用于 Sub 过程C.Sub 过程只能在窗体模块中定义D.Sub 过程中不能嵌套定义 Sub 过程解析：11.单击一次命令按钮之后，在对话框中输入 10，20，30，40，窗体中的输出结果为_ 。 Private Sub Command1_ Click() Dim a(4) As Integer For i = 1 To 4 a(i) = InputBox (“请输入:”) Next i Call
26、subper (a) For i = 1 To 4 Print a(i) Next i End Sub Sub subper (b () As Integer) For i = 1 To 4 b(i) = 2 * i Next i End Sub（分数：2.00）A.10 20 30 40B.1 2 3 4C.2 4 6 8 D.5 10 15 20解析：12.单击一次命令按钮之后，在对话框中输入 12，2，34，23，窗体中的输出结果为_ 。 Private Sub Command1_ Click () Dim a(4) As Integer For i = 1 To 4 a (i) = V
27、al (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（分数：2.00）A.14B.71C.48 D.37解析：二、B填空题/B(总题数：5，分数：10.00)13.下列函数过程的作用是计
28、算 x 和 y 的最大公约数。请填空。 Private Sub Command1_ Click() Dim x As Integer, y As Integer, Result As Integer x = InputBox (“请输入第一个数”) y = InputBox (“请输入第二个数”) Result =_ Print x; “和“; y; “的最大公约数为: “; Result End Sub Private Function GYS (ByVal A As Integer, ByVal B As Integer) Dim T As Integer T = A Mod B Do W
29、hile _ A = B B = T T = A Mod B Loop _ End Function（分数：2.00）填空项 1:_ （正确答案：GYS (x，y) T0 GYS=B）解析：14.通用过程可以放在标准模块中，也可以放在窗体模块中，而 1 只能放在窗体模块中，不同模块中的过程(包括事件过程和通用过程)可以互相调用。（分数：2.00）填空项 1:_ （正确答案：事件过程）解析：15.单击命令按钮后，下列程序代码的执行结果是_ 。 Public Sub fun (Byval a () As Integer) Static n As Integer Do a(n) = a (n) +
30、a(n + 1) n = n + 1 Loop While n 3 End Sub Private Sub command1_ click() Dim m As Integer, n As Integer, a(10) As Integer For n = 0 To 2: a(n) = n + 1: Next n For n = 1 To 2: Call fun(a): Next n For n = 0 To 3: Print a(n): Next n End Sub（分数：2.00）填空项 1:_ （正确答案：编译错误）解析：16.单击命令按钮后，下列程序代码的执行结果是_ 。 Public
31、 Sub fun (a As Integer, b As Integer, c As Integer) Do a=b+ c n=n+1 Loop While n 3 End Sub Private Sub command1_ click() Dim m As Integer, n As Integer, i As Integer For i = 0 To 2: m = n + 1: Next i For i = 1 To 2: Call fun (m, n, i): Next i For i = 0 To 3 Print m; Next i End Sub（分数：2.00）填空项 1:_ （正确答案：2 2 2 2）解析：17.运行下列程序后，单击命令按钮，输出结果为_ 。 Function Fin (a As Integer, b As Integer) As Integer Fin = IIf (a b, a, b) End Function Private Sub Command1_ Click() Dim a As Integer, b As Integer a = 1 b = 2 Print Fin(a, b) End Sub（分数：2.00）填空项 1:_ （正确答案：1）解析：
