【计算机类职业资格】国家二级VB机试（过程）模拟试卷7及答案解析.doc

《【计算机类职业资格】国家二级VB机试（过程）模拟试卷7及答案解析.doc》由会员分享，可在线阅读，更多相关《【计算机类职业资格】国家二级VB机试（过程）模拟试卷7及答案解析.doc（17页珍藏版）》请在麦多课文档分享上搜索。

1、国家二级 VB 机试（过程）模拟试卷 7 及答案解析(总分：86.00，做题时间：90 分钟)一、选择题(总题数：43，分数：86.00)1.假定有如下事件过程： Private Sub Form Click() Dim X As Integer,n As Integer x=1：n=0 Do While xA.81 4B.56 3C.28 1D.243 52.以下叙述中错误的是（分数：2.00）A.标准模块文件的扩展名是basB.标准模块文件是纯代码文件C.在标准模块中声明的全局变量可以在整个工程中使用D.在标准模块中不能定义过程3.下面不能在信息框中输出“VB”的是（分数：2.00）A.M

2、sgBox“VB“B.x=MagBox(”VB”)C.MsgBox(“VB“)D.Call MsgBox”VB”4.以下关于过程的叙述中，错误的是（分数：2.00）A.在 Sub 过程中不能再定义 Sub 过程B.事件过程也是 Sub 过程C.过程调用语句的形参个数必须与实参个数相同D.函数过程一定有返回值5.设子程序过程定义的首部为：Public Sub S(X As Integer,YAs Single)则以下正确的调用形式为（分数：2.00）A.Call S 5，48B.Call Sub(5，48)C.Sub 5，48D.S 5；486.在窗体上画两个标签和一个命令按钮，其名称分别为 L

3、abel1、Label2 和 command1，然后编写如下程序：Private Sub func(L As Label) LCaption=”1234”End SubPrivate Sub Form Load() Label1Caption=”ABCDE” Label2Caption=10End SubPrivate Sub Commandl_Click() a=Val(Label2Caption) Call func(Labell) Label2Caption=aEnd Sub 程序运行后，单击命令按钮，则在两个标签中显示的内容分别为（分数：2.00）A.ABCD 和 10B.1234 和

4、 100C.ABCD 和 100D.1234 和 107.设有如下 Commandl 的单击事件过程及 fun 过程：Private Sub Command1_Click() Dim X As Integer x=Val(InputBox(”请输入一个整数”) fun(x)End SubPrivate Sub fun(x As Integer) Ifx Mod 2=0 Then fun(x2) Print x；End Sub 执行上述程序，输入 6，结果是（分数：2.00）A.3 6B.6 3C.6D.程序死循环8.编写如下程序： Private Sub Commandl_Click() Di

5、m str1 As String，str2 As String str1=InputBox(”输入一个字符串”) subf str1，str2：Print str2 End Sub Sub subf(s1 As String，s2 As String) Dim temp As String Static i As Integer i=i+1 temp=Mid(sl，i，1) Iftemp=10 Then t=x+1 Else t=x+2 End If f=tEnd Function 运行程序，则窗体上显示的是（分数：2.00）A.38B.49C.61D.7014.假定有以下通用过程： Func

6、tion Fun(n As Integer)As Integer x=n*n：Fun=x-11 End Function 在窗体上画一个命令按钮，其名称为 Commandl，然后编写如下事件过程： Private Sub Commandl_Click() Dim i As Integer For i=1 To 2 y=Fun(i)Print y： Next i End Sub 程序运行后，单击命令按钮，在窗体上显示的内容是（分数：2.00）A.1 3B.10 8C.-10 7D.0 515.求 1!+2!+10!的程序如下：Private Function s(x As Integer) f=

7、1 For i=1 To x f=f*i Next s=fEnd FunctionPrivate Sub Commandl_Click() Dim i As Integer，y As Long For i=1 To 10 ( ) Next Print yEnd Sub 为实现功能要求，程序的括号中应该填入的内容是（分数：2.00）A.Call s(i)B.Call sC.y=y+s(i)D.y=y+s16.在窗体上画一个名称为 Commandl 的命令按钮，并编写如下程序：Function Fun(x) y=0 If xA.10B.100C.110D.出错信息17.设有如下事件过程：Priva

8、te Sub Commandl_Click()Dim a a=Array(12，3，8，5，10，3，5，9，2，4) For k=1 To 9 Print fun(a(k-1)，a(k)；”； Next kEnd SubPrivate Function fun(x，y)As Integer Do While x=y x=x-y Loop fun=xEnd Function 程序运行时的输出结果是（分数：2.00）A.4 0 1 0 3 0 0 4 0B.0 3 3 5 1 3 5 1 2C.9 -5 3 -5 7 -2 -4 7 -2D.9 3 3 5 7 3 5 7 218.设有如下函数：

9、 Function DelSpace(ch As String)As Integer Dim n，st$，c$ st=”：n=0 For k=1 To Len(ch) c=Mid(ch，k，1) If c0 Then P=True Else P=False End If End Function 关于上述程序，以下叙述中正确的是（分数：2.00）A.程序功能是统计 1-500 范围内能被 7 整除的整数个数B.Commandl_Click 事件过程中 If 语句的条件表达式不完整C.Function 过程定义有误，函数过程 P 的名称与该过程中的变量名 P 相同D.函数过程 P 的返回值为 B

10、oolean 类型20.设有下面程序代码： Private Sub Command1_Click() Dim str As String，ch As String str=”Visual Basic Programming”：ch=”a” n=fun(ch,str)：Print str,n End Sub Private Function fun(ch As String，str As String)As Integer Dim strbuf As String，c As String，n As Integer For k=1 To Len(str) c=Mid$(str,k，1) Ifc0)

11、 Print n Mod 10：n=n10 Wend PrintEnd Sub 此程序功能是：输入 2 个正整数，反序输出这 2 个数的每一位数字，再反序输出这 2 个数之和的每一位数字。例如：若输入 123 和 234，则应该输出： 3 2 1 4 3 2 7 5 3 但调试时发现只输出了前 2 行(即 2 个数的反序)，而未输出第 3 行(即 2 个数之和的反序)，程序需要修改。下面的修改方案中正确的是（分数：2.00）A.把过程 pro 的形式参数 n As Integer 改为 ByVal n As IntegerB.把 Call pro(a+b)改为 pro a+bC.把 n=n10

12、 改为 n=n10D.在 pro b 语句之后增加语句 c=a+b再把 Call pro(a+b)改为 pro c27.有下面程序代码： Private Sub Commandl_Click() Dim x As Integer，s As Integer x=1 For k=1 To 3 x=x+1：proc x：s=s+x Next k Print s End SubPrivate Sub proc(ByVal a As Integer) Static x As Integer x=x+1：a=a+xEnd Sub 程序运行后，单击命令按钮 Commandl，输出结果是（分数：2.00）A.

13、6B.9C.15D.1928.编写如下程序： Private Sub Commandl_Click()Dim x As Integer x=10 Print funl(x，12)+x End Sub Private Function fun l(m As Integer，n As Integer)As Integer Ifn10 Then m=n fun1=m+n End Function 程序运行后，单击命令按钮 Commandl，输出结果为（分数：2.00）A.30B.32C.34D.3629.在窗体上画一个名称为 Commandl 的命令按钮，再画两个名称分别为 Label1、Label

14、2 的标签，然后编写如下程序代码：Private X As IntegerPrivate Sub Commandl_Click() X=5：Y=3 Call proc(X，Y) LabellCaption=XPrivate Sub proc(a As Integer， ByVal b As Integer) X=a*a：Y=b+bEnd Sub Label2Caption=Y End Sub 程序运行后，单击命令按钮，则两个标签中显示的内容分别是（分数：2.00）A.25 和 3B.5 和 3C.25 和 6D.5 和 630.设有如下通用过程： Public Function f(x As

15、Integer) Dim YAs Integer x=20：y=2：f=x*y End Function 在窗体上画一个命令按钮，其名称为 Commandl，然后编写如下事件过程： Private Sub Commandl_Click() Static x As Integer x=10：y=5：y=f(x)Print x：y End Sub 程序运行后，如果单击命令按钮，则在窗体上显示的内容是（分数：2.00）A.10 5B.20 40C.20 5D.10 4031.命任何一个滚动条滚动框件过程如下：Private Sub Commandl_Click() x=10 Print fix)En

16、d SubPrivate Function f(y As Integer) f=y*yEnd Function 运行上述程序，如下叙述中正确的是：（分数：2.00）A.程序运行出错，x 变量的类型与函数参数的类型不符B.在窗体上显示 100C.函数定义错，函数名 f 不能又作为变量名D.在窗体上显示 1032.编写如下程序： Private Sub Commandl_Click() Dim x As Integer,y As Integer x=InputBox(”输入第一个数”)：y=InputBox(”输入第二个数”) Call f(x，y) Print x，y End Sub Sub f

17、(a As Integer，ByVal b As Integer) a=a*2：x=a+b：b=b+100 End Sub 程序运行后，单击命令按钮Command1，并输入数值 10 和 15，则输出结果为（分数：2.00）A.10 115B.20 115C.35 15D.20 1533.现有程序如下：Option Base 1Private Sub Form_Click() Dim x(5，6)As Integer，y(5)As Integer For i=1 To 5 For i=1 To 6 x(i，j)=Int(Rnd*9+1) Next i Next i Call f(5，6，x，y

18、) For i=1 To 5 Print y(i)； Next iEnd SubSub f(m As Integer，n As Integer， a() As Integer，b()As Integer) For i=1 To m b(i)=0 For i=1 To n b(i)=b(i)+a(i，j) Next j Next iEnd Sub 关于上述程序，以下叙述中正确的是（分数：2.00）A.调用过程语句有错，参数不匹配B.程序有错，数组下标越界C.v 数组中保存的是 x 数组每行数据之和D.x 数组中数据的取值范围是 1-1034.窗体上有一个名称为 Commandl 的命令按钮，一个

19、名称为 Textl 的文本框。编写如下程序：Private Sub Command1_Click() Dim x As Integer x=Val(InputBox(”输入数据”) Text1=Str(x+fun(x)+fun(x)End SubPrivate Function fun(ByRef n As Integer) If n Mod 3=0 Then n=n+n Else n=n*n End If fun=nEnd Function 对于上述程序，以下叙述中错误的是（分数：2.00）A.语句 fun=n 有错，因为 n 是整型，fun 没有定义类型B.运行程序，输入值为 5 时，文本

20、框中显示 655C.运行程序，输入值为 6 时，文本框中显示 42D.ByRef 表示参数按址传递35.窗体上有一个名称为 Commandl 的命令按钮，并有如下程序代码：Private Sub Commandl_Click() Static a a=1：b=2：c=3 Call f(a，b，c) Print a：b：cEnd SubSub ffByVal x，ByRefy，z) x=x+1：y=y+1：z=z+1End Sub 运行程序，单击命令按钮，窗体上显示的是（分数：2.00）A.1 3 3B.1 3 4C.2 3 3D.2 3 436.窗体上有一个名称为 Commandl 的命令按钮

21、，其单击事件过程如下： Private Sub Command1_Click() Dim x As Integer,y As Integer Static z As Integer x=3：y=5：z=y Call f(x，y，z) Print x；y；z End Sub Private Sub f(ByVal a As Integer,ByRef b As Integer,c As Integer) a=a+a：b=b+b：c=c+c End Sub 运行程序，单击命令按钮时，3 个标签中显示的内容分别是（分数：2.00）A.3 5 5B.3 5 10C.3 10 5D.3 10 1037.

22、窗体上有一个名称为 Commandl 的命令按钮，其单击事件过程及相关的代码如下： Private Sub Command1_Click() Dim x As Integer,V As Integer x=Val(InputBox(”输入整数”) Y=Val(InputBox(”输入整数”) Print Str(fun(x，y)+x+y) End Sub Private Function fun(ByRef m As Integer,ByVal n As Integer) m=m*m：n=n+n：fun=m+n End Function 运行程序，单击命令按钮时，出现输入对话框，分别输入 3、

23、5，则窗体上显示的是（分数：2.00）A.27B.28C.33D.3838.设有如下程序： Private Sub Inv(ByVal xStr As String，yStr As String) Dim tStr As String Dim L As Integer L=Len(xStr) Do While L=1 tStr=tStr+Mid(xStr,L，1)：L=L-1 Loop yStr=tStr End Sub Private Sub Form_Click() Dim S1 As String，S2 As String S1=”abcdePInv S1S2 Print S2 End

24、Sub 运行程序，单击窗体，输出结果为（分数：2.00）A.abcdefB.afbecdC.fedcbaD.defabc39.设有如下程序： Private Sub sV(ByVal m As Integer，n As Integer) m=m*2：n=n 一 5：Print m：n End Sub Private Sub Form_Click() Dim x As Integer,y As Integer x=10：y=15：sV x,y Print x；y End Sub 运行程序，单击窗体，输出结果为（分数：2.00）A.20 10 10 10B.10 15 20 10C.20 15 1

25、0 15D.20 10 20 1040.由高中数学可知，对于连续函数 f(x)，若 f(x1)与 f(x2)值的符号相反，则在 x1 和 x2 之间必存在x0，使得 f(x0)=0(该点称为“零点”)。设有 VB 函数：Private Function f(x As Single)As Single 可以返回 f(x)的值(函数体没有给出)。下面程序的功能是从键盘输入 2 个实数 x1、x2，判断在 x1、x2 之间是否存在零点。 Private Sub Commandl_Click() Dim xl As Single，x2 As Single x1=InputBox(”请输入一个实数 x1

26、”) x2=InputBox(”请再输入一个实数 x2”) If(_)Then Print”在”：x1；”与”；x2；”之间存在零点” Else Print”不能确定在”；x1；”与”；x2；”之间是否存在零点” End If End Sub Private Function f(x As Single)As Single End Function 为使上面程序可以实现该功能，程序代码中横线处应填写的代码是（分数：2.00）A.f(x1)0 Or f(x2)041.编写如下程序： Private Sub Commandl_Click() Private Function funl(ByVal

27、m As Integer， Dim x As Integer，y As Integer n As Integer)As Integer x=10：y=20 m=m*m：n=n+n Call funl(x，y) End Function Print x；y End Sub 程序运行后，单击命令按钮 Commandl，输出结果为（分数：2.00）A.10 25B.10 40C.100 25D.1 00 4042.设有以下过程： Private Sub proc(x As Integer,Optional y As Integer) Print x，yEnd Sub 针对此过程，下面正确的过程调用语

28、句是（分数：2.00）A.Call proc(a!，23)B.Call proc x，12C.proc bD.x=proc(12)43.以下关于过程及过程参数的描述中，错误的是（分数：2.00）A.过程的参数可以是控件名称B.调用过程时使用的实参的个数应与过程形参的个数相同(假定不含可变参数)C.只有函数过程能够将过程中处理的信息返回到调用程序中D.窗体可以作为过程的参数国家二级 VB 机试（过程）模拟试卷 7 答案解析(总分：86.00，做题时间：90 分钟)一、选择题(总题数：43，分数：86.00)1.假定有如下事件过程： Private Sub Form Click() Dim X A

29、s Integer,n As Integer x=1：n=0 Do While xA.81 4 B.56 3C.28 1D.243 5解析：解析：本题考查 Do While 循环。在窗体的 Click 事件代码里面，定义了变量 x 和 n，分析 Do While 循环可知，n 保存循环次数，x 是循环控制变量，如果 x 的值小于 28 则进入循环体，因此 x 和 n 的变化过程是：3 和 0、9 和 2、27 和 3、81 和 4，经过 4 次循环后 x 值变成 81，循环条件不成立，循环结束。2.以下叙述中错误的是（分数：2.00）A.标准模块文件的扩展名是basB.标准模块文件是纯代码文件

30、C.在标准模块中声明的全局变量可以在整个工程中使用D.在标准模块中不能定义过程 解析：解析：本题考查的考点是有关标准模块的。VB 中的标准模块也称全局模块或总模块，由全局变量声明、模块层声明及通用过程等几部分组成，其扩展名为bas，里面只有代码而没有任何控件。其中全局声明放在标准模块的首部，可以在整个工程中使用。3.下面不能在信息框中输出“VB”的是（分数：2.00）A.MsgBox“VB“B.x=MagBox(”VB”)C.MsgBox(“VB“)D.Call MsgBox”VB” 解析：解析：MsgBox()函数用于显示提示信息，并可返回一个代表用户单击了哪个按钮的 Integer 类型值

31、，当其作为函数使用时必须将参数放在括号内部，而返回值可以赋值给一个变量，也可以单独使用此函数而不将其返回值赋值给变量；MsgBox 过程也用于显示提示信息，作为过程可以独立使用，也可以使用 Call关键字来进行调用，但此时参数需要加括号。4.以下关于过程的叙述中，错误的是（分数：2.00）A.在 Sub 过程中不能再定义 Sub 过程B.事件过程也是 Sub 过程C.过程调用语句的形参个数必须与实参个数相同 D.函数过程一定有返回值解析：解析：Sub 过程分为事件过程和通用过程，过程不允许嵌套定义，即在 Sub 过程中再定义 Sub 过程：函数过程必须有一个返回值，当过程的声明语句中使用了可选

32、参数的时候，允许实参个数与形参不同。5.设子程序过程定义的首部为：Public Sub S(X As Integer,YAs Single)则以下正确的调用形式为（分数：2.00）A.Call S 5，48B.Call Sub(5，48)C.Sub 5，48D.S 5；48 解析：解析：子过程可以独立使用，也可以使用 Call 关键字来进行调用，但此时参数需要加括号。本题中子程序的名字是 S，故此 B、C 选项可以排除，A 选项中缺少参数的括号。6.在窗体上画两个标签和一个命令按钮，其名称分别为 Label1、Label2 和 command1，然后编写如下程序：Private Sub fun

33、c(L As Label) LCaption=”1234”End SubPrivate Sub Form Load() Label1Caption=”ABCDE” Label2Caption=10End SubPrivate Sub Commandl_Click() a=Val(Label2Caption) Call func(Labell) Label2Caption=aEnd Sub 程序运行后，单击命令按钮，则在两个标签中显示的内容分别为（分数：2.00）A.ABCD 和 10B.1234 和 100C.ABCD 和 100D.1234 和 10 解析：解析：本题考查的考点是有关过程调用

34、的。窗体加载时首先执行了 Load 事件里面的代码，设置Labell 的标题为“ABCDE”，Label2 的标题为“10”；当单击命令按钮时，调用了 func 过程，在这个过程中把传入的 Labell 的标题设置为“1234”，Label2 的标题没有发生变化。7.设有如下 Commandl 的单击事件过程及 fun 过程：Private Sub Command1_Click() Dim X As Integer x=Val(InputBox(”请输入一个整数”) fun(x)End SubPrivate Sub fun(x As Integer) Ifx Mod 2=0 Then fun(

35、x2) Print x；End Sub 执行上述程序，输入 6，结果是（分数：2.00）A.3 6 B.6 3C.6D.程序死循环解析：解析：本题中的 fun 过程是一个递归调用，如果参数 x 为偶数则进入递归；本题中的实参 6 传入fun 过程之后，因其是偶数，所以执行 fun(62)也就是先输出 3，然后返回到 fun 中输出 6。8.编写如下程序： Private Sub Commandl_Click() Dim str1 As String，str2 As String str1=InputBox(”输入一个字符串”) subf str1，str2：Print str2 End Sub

36、 Sub subf(s1 As String，s2 As String) Dim temp As String Static i As Integer i=i+1 temp=Mid(sl，i，1) Iftemp=10 Then t=x+1 Else t=x+2 End If f=tEnd Function 运行程序，则窗体上显示的是（分数：2.00）A.38B.49 C.61D.70解析：解析：本题考奄的考点是有关函数调用和 If 语句的。要注意在前 4 次循环中每次调用 f 函数时传递的参数分别为 6、7、8、9，都是小于 10 的，最后一次循环传递参数 10，所以最终结果应该为8+9+10

37、+11+11=49。14.假定有以下通用过程： Function Fun(n As Integer)As Integer x=n*n：Fun=x-11 End Function 在窗体上画一个命令按钮，其名称为 Commandl，然后编写如下事件过程： Private Sub Commandl_Click() Dim i As Integer For i=1 To 2 y=Fun(i)Print y： Next i End Sub 程序运行后，单击命令按钮，在窗体上显示的内容是（分数：2.00）A.1 3B.10 8C.-10 7 D.0 5解析：解析：本题共调用 Fun 函数 2 次，每次的

38、函数值都是参数的平方减去 11 的值，故此输出一 10，-7。15.求 1!+2!+10!的程序如下：Private Function s(x As Integer) f=1 For i=1 To x f=f*i Next s=fEnd FunctionPrivate Sub Commandl_Click() Dim i As Integer，y As Long For i=1 To 10 ( ) Next Print yEnd Sub 为实现功能要求，程序的括号中应该填入的内容是（分数：2.00）A.Call s(i)B.Call sC.y=y+s(i) D.y=y+s解析：解析：函数过程有

39、一个返回值，一般出现在表达式中组成表达式的一部分。本题的题目要求累加各个数的阶乘，而函数 s 的作用是求参数的阶乘，因此应该在每次循环中累加 f 函数的值，参数为循环变量i。16.在窗体上画一个名称为 Commandl 的命令按钮，并编写如下程序：Function Fun(x) y=0 If xA.10 B.100C.110D.出错信息解析：解析：本题是一个简单的函数调用，在函数中会判断参数 x 的值，根据 x 的值不同执行 If 语句的不同分支。由于实际参数为 100 不满足 x=y x=x-y Loop fun=xEnd Function 程序运行时的输出结果是（分数：2.00）A.4 0

40、 1 0 3 0 0 4 0B.0 3 3 5 1 3 5 1 2 C.9 -5 3 -5 7 -2 -4 7 -2D.9 3 3 5 7 3 5 7 2解析：解析：本题中函数 fun 的作用是当第一个形参比第二个形参大或着相等的时候让它减去第二个形参，直到比第二个形参小为止；在按钮的单击事件中循环调用 9 次函数，每次都用数组的前一个元素和后一个元素作为函数的实参，所以应输出的是 12-3333、3、8-5、5、10 一 3、3、5、92、2。18.设有如下函数： Function DelSpace(ch As String)As Integer Dim n，st$，c$ st=”：n=0

41、For k=1 To Len(ch) c=Mid(ch，k，1) If c0 Then P=True Else P=False End If End Function 关于上述程序，以下叙述中正确的是（分数：2.00）A.程序功能是统计 1-500 范围内能被 7 整除的整数个数B.Commandl_Click 事件过程中 If 语句的条件表达式不完整C.Function 过程定义有误，函数过程 P 的名称与该过程中的变量名 P 相同D.函数过程 P 的返回值为 Boolean 类型 解析：解析：调用 Function 过程要返回一个值，因此可以像内部函数一样在表达式中使用。如果在Functi

42、on 过程中省略“过程名=表达式”，则该过程返回一个默认值(数值函数过程返回 0 值；字符串函数过程返回空字符串)。因此，通常要在过程体中给“过程名”赋值。本题中函数 p 的返回值为 Boolean类型，功能是判断参数 x 是否能被 7 整除，如果不能整除返回 True，否则返回 False。Ciomnlandl Click事件过程中使用了单行的 If 语句，不需要 Else 分支和 EndIf 语句。程序功能是统计 1500 范围内不能被 7 整除的整数个数。20.设有下面程序代码： Private Sub Command1_Click() Dim str As String，ch As S

43、tring str=”Visual Basic Programming”：ch=”a” n=fun(ch,str)：Print str,n End Sub Private Function fun(ch As String，str As String)As Integer Dim strbuf As String，c As String，n As Integer For k=1 To Len(str) c=Mid$(str,k，1) Ifc0) Print n Mod 10：n=n10 Wend PrintEnd Sub 此程序功能是：输入 2 个正整数，反序输出这 2 个数的每一位数字，再反

44、序输出这 2 个数之和的每一位数字。例如：若输入 123 和 234，则应该输出： 3 2 1 4 3 2 7 5 3 但调试时发现只输出了前 2 行(即 2 个数的反序)，而未输出第 3 行(即 2 个数之和的反序)，程序需要修改。下面的修改方案中正确的是（分数：2.00）A.把过程 pro 的形式参数 n As Integer 改为 ByVal n As Integer B.把 Call pro(a+b)改为 pro a+bC.把 n=n10 改为 n=n10D.在 pro b 语句之后增加语句 c=a+b再把 Call pro(a+b)改为 pro c解析：解析：本题考查的考点是有关过程

45、调用的。本题题干中的程序之所以不能显示第三行的值，是由于在调用 pro 函数时使用的是默认的传地址调用，这时存 pro 过程中的对形参的更改都会影响到实参。仔细观察 pro 过程，发现每次循环都要对形参 n 整除 10 一直到 n 为 0 为止，所以每次 pro 过程调用结束后都会把对应实参改为 0。修改参数传递方式为传值调用即可使程序正确运行。27.有下面程序代码： Private Sub Commandl_Click() Dim x As Integer，s As Integer x=1 For k=1 To 3 x=x+1：proc x：s=s+x Next k Print s End

46、SubPrivate Sub proc(ByVal a As Integer) Static x As Integer x=x+1：a=a+xEnd Sub 程序运行后，单击命令按钮 Commandl，输出结果是（分数：2.00）A.6B.9 C.15D.19解析：解析：本题中首先要区分在命令按钮的单击事件中定义的 x 是局部变量，仅能在过程内部起作用；在子过程 proc 中定义的静态变量 x 也是局部变量，也只能在本过程中起作用。在 VB 的过程调用时，参数有两种传递方式：传址传递和传值传递。如果在过程声明时形参用 ByVal 声明，说明此参数为传值调用；若用 ByRef 声明，说明此参数为

47、传址调用；没有说明传递类型，则默认为传址传递。即形参的结果会传递给实参。本题中 proc 过程的参数 a 用的是值传递，因此形参的改变不会影响到实参，所以在命令按钮的单击事件中循环累加的是 2+3+4=9。28.编写如下程序： Private Sub Commandl_Click()Dim x As Integer x=10 Print funl(x，12)+x End Sub Private Function fun l(m As Integer，n As Integer)As Integer Ifn10 Then m=n fun1=m+n End Function 程序运行后，单击命令按钮

48、 Commandl，输出结果为（分数：2.00）A.30B.32C.34D.36 解析：解析：本体是一个简单的函数调用，调用 funl 函数时将 x 的值作为实参传送给 funl 函数，由于第二个参数 12 满足 n10，会将形参 m 的值也改变为 12，因返回的函数值为 24；由于函数 funl 的各个参数为地址传递，因此对于形参 m 的值会影响实参 x 的值，即 x 的值也变为 12。29.在窗体上画一个名称为 Commandl 的命令按钮，再画两个名称分别为 Label1、Label2 的标签，然后编写如下程序代码：Private X As IntegerPrivate Sub Comm

49、andl_Click() X=5：Y=3 Call proc(X，Y) LabellCaption=XPrivate Sub proc(a As Integer， ByVal b As Integer) X=a*a：Y=b+bEnd Sub Label2Caption=Y End Sub 程序运行后，单击命令按钮，则两个标签中显示的内容分别是（分数：2.00）A.25 和 3 B.5 和 3C.25 和 6D.5 和 6解析：解析：本题考查的考点是有关参数传递的。在 VB 的过程调用时，参数有两种传递方式：传址传递和传值传递。如果在过程声明时形参用 ByVal 声明，说明此参数为传值调用；若用 ByRef 声明，说叫此参数为传址调用：没有说明传递类型，则默认为传址传递。即形参的结果会传递给实参。由于本题中的实参Y 采用传值传递，实参 X 采用传址传递，而且 X 是全局变量，所以在被调过程中改变了 X 的值而没有改变Y 的值。30.设有如下通用过程： Public Function f(x As Integer) Dim YAs Integer x=20：y=2：f=x*y End Functio