1、二级 VISUAL+BASIC 笔试 13 及答案解析(总分：90.00，做题时间：90 分钟)一、B选择题/B(总题数：35，分数：70.00)1.用于获得字符串 s 从第 3 个字符开始的 3 个字符的函数是（分数：2.00）A.Mid(s，2，3)B.Middle(s，2，3)C.Right(s，2，3)D.Left(s，1，3)2.在窗体中添加两个文本框(其 Name 属性分别为 Text1 和 Text2)和一个命令按钮(其 Name 属性为 Com- mand1)，然后编写如下程序： Private Sub Command1_Click( ) x=0 Do While x20 x=
2、(x+1) *(x+2) n=n+1 Loop Text1.Text=Str(n) Text2.Text=Str(x) End Sub 程序运行后，单击命令按钮，在两个文本框 Text1 和 Text2 中分别显示的值是（分数：2.00）A.1 和 0B.2 和 12C.3 和 182D.3 和 123.单击按钮时，以下列程序运行后的输出结果是 Private Sub proc1(x As Integer，y As Integer，z As Integer) x=3*z y=2*z z=X+y End Sub Private Sub Command1_Click( ) Dim x As Int
3、eger，y As Integer，z As Integer x=1：y=2：z=3 Call proc1(x，x，2) Print x；x；z Call proc1(x，y，y) Print x；y；y End Sub（分数：2.00）A.6 6 12 6 6 10B.9 5 10 5 10 10C.9 6 12 9 10 15D.9 5 10 5 4 104.单击窗口时，下列程序代码的执行结果为 Private Sub Form_Click( ) Text1 End Sub Private Sub Text(x As Integer) x=x*3+1 if x6 Then call Tex
4、t(x) End if x=x*2+1 Print x； End Sub（分数：2.00）A.27 55B.11 35C.22 45D.24 515.下列程序段的执行结果为 X=5 Y=-20 If Not X0 Then X=Y-3 Else Y=X+3 Print X-Y；（分数：2.00）A.-3B.5C.3D.256.设有下列二叉树： （分数：2.00）A.ABCDEFB.DBEAFCC.ABDECFD.DEBFCA7.在软件生命周期中，能准确确定软件系统必须做什么和必须具备哪些功能的阶段是（分数：2.00）A.概要设计B.详细设计C.可行性分析D.需求分析8.以下能够正确计算 1+2
5、+3+10 的程序是（分数：2.00）A.Private sub Command1_Click( ) sum=0 For 1=1 To 10 Sum=sum+1， Next I Print Sum End SubB.Private sub Command1_Click( ) Sum=0,I=1 Do While l=10 Sum=Sum+1 I=I+1 Print Sum End SubC.Private Sub command1_click( ) Sum=0：I=1 Do Sum=Sum+1 I=I+1 Loop While I10 Print Sum End SubD.Private Su
6、b command1_Click( ) Sum=0：I=1 Do Sum=Sum+1 l=I+1 Loop Until I10 Print Sum End Sub9.在数据结构中，从逻辑上可以把数据结构分成（分数：2.00）A.动态结构和静态结构B.线性结构和非线性结构C.集合结构和非集合结构D.树状结构和图状结构10.在窗体上画一个命令按钮，然后编写如下程序 Private Sub Command1_Click( ) Dim a As Integer，b As hiteger a=1 b=2 Print N(a，b) End Sub Function N(x As Integer，y As
7、Integer)As Integer N=IIf(xy，x，y) End Function 程序运行后，单击命令按钮，输出结果为（分数：2.00）A.1B.2C.5D.811.采用面向对象技术开发的应用系统的特点是（分数：2.00）A.重用性更强B.运行速度更快C.占用存储量小D.维护更复杂12.定义过程的格式中，Static 关键字的作用是指定过程中的局部变量在内存中的存储方式。若使用了Staff 关键字，则（分数：2.00）A.每次调用此过程，该过程中的局部变量都会被重新初始化B.在本过程中使用到的，在其他过程中定义的变量也为 Static 型C.每次调用此过程时，该过程中的局部变量的值保
8、持在上一次调用后的值D.定义了该过程中定义的局部变量为“自动”变量13.单击命令按钮时，下列程序代码的执行结果为 Public Sub proc1(n As Integer，Byva1 m As Integer) n=n Mod 10 m=m Mod 10 End Sub Private Sub Cmmand1_Click( ) Dim x As Integer，y As lngeger x=12：y=12 Call Proe1(x，y) Print x；y End Sub（分数：2.00）A.12 2B.2 12C.2 2D.12 1214.编制一个好的程序，首先要保证它的正确性和可靠性，还
9、应强调良好的编程风格，在选择标识符的名字时应考虑（分数：2.00）A.名字长度越短越好，以减少源程序的输入量B.多个变量共用一个名字，以减少变量名的数目C.选择含义明确的名字，以正确提示所代表的实体D.尽量用关键字作名字，以使名字标准化15.有以下函数过程： Function Gys(ByVal x As Integer，ByVal y As Integer)As Integer Do While y 0 Remender=x Mod v x=y Y=Reminder Loop Gys=x End Function 以下是调用该函数的事件过程，该程序的运行结果是 Private Sub Com
10、mand1_Click( ) Dim a As Integer Dim b As Integer a=50 b=10 x=Cys(a，b) Print x End sub（分数：2.00）A.0B.10C.50D.10016.单击命令按钮时，下列程序的运行结果为 Private Sub Command1_Click( ) Print MyFund(20，18) End Sub Public Function MyFund(m As Integer，n As Integer)As Integer Do While mn Do While mn：m=m-n:Loop Do While mn：n=n
11、-m:Loop Loop MyFund=m End Function（分数：2.00）A.0B.2C.4D.617.下列程序段的执行结果为 Dim M(10) For k=1 To 10 M(K)=11-k Ncxt k x=6 Print M(2+M(x) A 2 B3 c4 D5（分数：2.00）A.B.C.D.18.单击命令按钮时，下列程序代码的执行结果为 Private Sub Command1_Click( ) Print MyFunc(24，18) End Sub Public Function MyFunc(m As Integer，n As Integer)As Integer
12、 Do While m n Do While mn：m=mn：Loop DO While mn：n=n-m：Loop Loop My Func=m End Function（分数：2.00）A.2B.4C.6D.819.在窗体中添加一个命令按钮，然后编写如下代码： Private Sub Command1_Click( ) For i=l To 4 x=4 For j=1 To 3 x=3 For k=l To 3 x=x+6 Next k Next j Next i Print x End Sub 程序运行后，单击命令按钮，输出结果是（分数：2.00）A.7B.15C.21D.53820.D
13、im a(3，-3 to 0，3 to 8)As String 语句定义的数组元素有（分数：2.00）A.12 个B.96 个C.120 个D.80 个21.执行以下语句后，输出的结果是 s=“ABCDEFGHI” Print Mid(s，3，4) Print Len(s)（分数：2.00）A.ABCD 11B.CDEF 11C.EFGH 11D.HIJK 1122.有如下程序段，该程序段执行完后，共执行循环的次数是 Private Sub Command1_Click( ) Tota1=0 Counter=1 Do Print Counter Tota1=tota1+Counter Prin
14、t total Counter=Counter+1 If total=10 Then Exit Do End lf Loop While Counter=10 End Sub（分数：2.00）A.5 B.10 C.12 D。2023.算法的时间复杂度是指（分数：2.00）A.执行算法程序所需要的时间B.算法程序的长度C.算法执行过程中所需要的基本运算次数D.算法程序中的指令条数24.常用的关系运算是关系代数和（分数：2.00）A.集合代数B.逻辑演算C.关系演算D.字段25.编写了如下事件过程： Private Sub Form_KeyDown(KeyCode As Integer，Shift
15、 As lnteger) If(Button And 3)=3 Then Print“AAAA” End lf End Sub 程序运行后，为了窗体上输出“AAAA”，应按下的鼠标键是（分数：2.00）A.左B.右C.同时按下左和右D.按鼠标键没有反应26.有关多文档界面(Multiple Document Interface)的不正确描述是（分数：2.00）A.多文档界面(MD 是指在一个父窗口下面可以同时打开多个子窗口B.子窗口归属于父窗口C.如果父窗口关闭，则所有子窗口全部关闭D.如果所有子窗口全部关闭，则父窗口关闭27.当一个工程含有多个窗体时，其中的启动窗体是（分数：2.00）A.启
16、动 VB 时建立的窗体B.第一个添加的窗体C.最后一个添加的窗体工程属性D.在工程属性对话框中指定的窗体28.单击命令按钮时，下列程序的执行结果为 Private Sub Command1_Click( ) Dim x As Integer，y As Integer x=50：y=78 Call PPP(x，y) Print x；y End Sub Public Sub PPP(ByVM n As Integer，ByVal m As Integer) n=n/l0 m=m/l0 End Sub（分数：2.00）A.08B.50 78C.450D.78 5029.在数据库管理技术的发展过程中，
17、经历了人工管理阶段、文件系统阶段和数据库系统阶段，其中数据独立性最高的阶段是（分数：2.00）A.数据库系统阶段B.文件系统阶段C.人工管理阶段D.数据项管理30.以下关于保存工程的说法正确的是（分数：2.00）A.保存工程时只保存窗体文件即可B.保存工程时只保存工程文件即可C.先保存窗体文件，再保存工程文件D.先保存工程文件，再保存窗体文件31.在窗体上面画一个命令按钮，然后编写如下事件过程： Private Sub Command1_Click( ) a=“321“：b=“abc“ For j=l To 5 Print Mid(a，6-j，1)+Mid(b，j，1)； Next j End
18、 Sub 程序运行后，输出的结果是（分数：2.00）A.alb2c3B.ablc23C.clb2a3D.a12bcl32.设有如下程序： Private Static Function Fac(n As Integer)As Integer Dim f As Integer f=f+n Fac=f End Function Private Sub Form_Click( ) Dim I As Integer For 1=2 To 3 Print“#“；I&“=”&Fac(1) Next I End Sub 程序运行后，单击窗体，在窗体上显示的是（分数：2.00）A.#2=2 #3=3B.#2=
19、2 #3=5C.#；2=2 #；3=3D.#；2=2 #3；=533.下面关于数据库系统的叙述正确的是（分数：2.00）A.数据库系统减少了数据冗余B.数据库系统避免了一切冗余C.数据库系统中数据的一致性是指数据类型的一致D.数据库系统比文件能管理更多的数据34.设在工程中有一个标准模块，其中定义了如下记录类型： TyPe Record ID A3 Integer Name As String*20 End TyPe 在窗体中添加一个名为 Command1 的命令按钮，假设 d：/F1.dat 文件中含有 5 个用户自定义类型的记录。要求当执行事件过程 Command1_Click 时，随机访
20、问该文件，并把文件中的第 4 条记录读出。下列能够完成该操作的程序段是（分数：2.00）A.Private Sub Command1_Click( ) Dim MyRecord As Record，Position Open“d：/F1.dat“For Random As#1 Len=Len(My Recor Position=4 Get#1，Position，Myrecord Close #1 End SubB.Private Sub Command1_Click( ) Dim MyRecord As Record，Position Open“d：/F1.dat“For Random As
21、#1 Len=Len(MyRecor Position=4 Put #1，Position，MyRecord Close#1 End SubC.Private Sub Command1_Click( ) Dim MyRecord As Record，Position Open“d：/F1.dar“For OutPut As #1 Len=Len(My Recor Position=4 Get #1，Position，MyRecord Close#1 End SubD.Private Sub Command1_Click( ) Dim MyRecord As record，Position Op
22、en“d：/F1.dat“For lnput As #1 Len=Len(MyRecor Position=4 Get #1，Position，MyRecord Close#1 End Sub35.软件测试的目的是（分数：2.00）A.证明软件系统中存在错误B.找出软件系统中的所有错误C.尽可能多地发现系统中的错误和缺陷D.证明软件的正确性二、B填空题/B(总题数：10，分数：20.00)36.将算法的 5 个特性中，算法必须能在执行有限个步骤之后终止指的是算法的U 【1】 /U性。（分数：2.00）填空项 1:_37.在数据结构中，用组地址连续的存储单元一次存储数据元素的方式是U 【2】 /
23、U结构。（分数：2.00）填空项 1:_38.软件生命周期一般可以分为以下阶段：问题定义、可行性研究、U 【3】 /U、设计、编码、测试、运行和维护。（分数：2.00）填空项 1:_39.数据库理论中，数据的独立性一般可分为U 【4】 /U和逻辑独立性。（分数：2.00）填空项 1:_40.数据库是指按照一定的规则存储在计算机中的U 【5】 /U的集合，它能被各种用户共享。（分数：2.00）填空项 1:_41.下面的程序用于根据文本框 Text 中输入的内容进行以下处理： 若 Text 为 4，6，则打印“Text 的值为 4，6”；若 Text 为 1，3，5，7，则打印“Text 的值为
24、1，3，5，7”；若 Text 为 8， 9，则打印“Text 的值为 8，9”；否则打印“Text 的值不在范围内”。请填空。 Private Sub Command1_Click( ) Select Case Val(Text.Text) CaseU 【6】 /U Print“Text 的值为 4，6” CaseU 【7】 /U Print“Text 的值为 1，3，5，7” CaseU 【8】 /U Print“Text 的值为 8，9” CaseU 【9】 /U Print“Text 的值不在范围内” End Select End Sub（分数：2.00）填空项 1:_42.建立随机文
25、件 TEST.DAT，存放学生的姓名和总分，然后把该文件中的数据读出来显示。请在U 【10】 /U和U 【11】 /U处填适当的内容，将程序补充完整， Type Record Student As String*20 Score As Single End Type Dim Class As Record Open“TEXT.DAT“ForU 【10】 /UAs #1 Len=Len(Class) Class.Student=“LiuMin”：Class.Score=596 Put #1，1，Class Close #1 Open“TEXT.DAT“For Random As #1 Len(C
26、lass) U 【11】 /U Print“STUDENT：“，Class.Student Print“SCORE：“，Class.Score Close #1 End（分数：2.00）填空项 1:_43.程序是一个窗体双击事件代码，窗体的名称是 Mywindow。窗体上有一个名为 Text1 的文本框，用来显示文本。 程序段首先在文本框中显示“窗体能够触发双击事件”然后将滚文本清除；重复上述过程 5 次。Option Explicit PrivateU 【12】 /U Dim k As Integer For k=1 to 100 If k Mod 20 Then U 【13】 /U Els
27、e Text1.Text=“ End lf Print“程序运行完毕，可再双击窗体” End Sub（分数：2.00）填空项 1:_44.设在工程中有一个标准模块，其中定义了如下记录类型： Type Books Name As String*10 telNum As String*20 End Type 在窗体上添加一个名为 Command1 的命名按钮，要求当执行事件过程Command1_Click 时，在顺序文件 Person.txt 中写入一条记录。请在U 【14】 /U中填入适当的内容，将程序被补充完整。 Private Sub Command1_Click( ) Dim B AsU
28、【14】 /U Open“c：/person.txt“For Output As #1 B.Name=Input Box(“输入姓名”) B.TelNum=InputBox(“输入学号”) Write#I，B，Name，B.TelNum Close #1 End Sub（分数：2.00）填空项 1:_45.在窗体中添加一个名称为 Lablel1 的标签、两个名称为 Text1 和 Text2 的文本框以及名称为 Command1的按钮。程序运行后，在两个文本框中输入数据，当单个按钮时，标签 Label1 中显示运算的结果。程序的功能是计算，n!+(n+1)!+(n+2)!+(n+m)!。 请在
29、U 【15】 /U处填入适当的内容，将程序补充完整。 Private Sub Command1_Click( ) Dim a，b，c，d As Double Dim i，n，m As Integer n=Val(Text1.Text):m=Val(U 【15】 /U) a=0： b=1： c=0： d=1 For i=1 TO m b=b*i a=a+b Next i For i=1 To n d=d*i C=c+d Next i Label1.Caption=a-c End Sub（分数：2.00）填空项 1:_二级 VISUAL+BASIC 笔试 13 答案解析(总分：90.00，做题时间
30、：90 分钟)一、B选择题/B(总题数：35，分数：70.00)1.用于获得字符串 s 从第 3 个字符开始的 3 个字符的函数是（分数：2.00）A.Mid(s，2，3) B.Middle(s，2，3)C.Right(s，2，3)D.Left(s，1，3)解析：解析 为了获得字符串 S 自 n 个字符开始的 n 个字符，可以用 Mid(S，n，n)表达，故本题选 A。其中 C、D 项的用法有误，Visual Basic 中没有 B 项描述的函数。2.在窗体中添加两个文本框(其 Name 属性分别为 Text1 和 Text2)和一个命令按钮(其 Name 属性为 Com- mand1)，然后
31、编写如下程序： Private Sub Command1_Click( ) x=0 Do While x20 x=(x+1) *(x+2) n=n+1 Loop Text1.Text=Str(n) Text2.Text=Str(x) End Sub 程序运行后，单击命令按钮，在两个文本框 Text1 和 Text2 中分别显示的值是（分数：2.00）A.1 和 0B.2 和 12C.3 和 182 D.3 和 12解析：解析 根据题意，当 x20 时，Do 循环执行。第 1 次执行完 Do 循环，x 的值为 2。故再执行 1 次，此时 x 值变为 12，此时仍符合条件，故执行第 3 次 Do
32、循环，x 值变为 182，循环就此结束。n 的值加了三次 1。3.单击按钮时，以下列程序运行后的输出结果是 Private Sub proc1(x As Integer，y As Integer，z As Integer) x=3*z y=2*z z=X+y End Sub Private Sub Command1_Click( ) Dim x As Integer，y As Integer，z As Integer x=1：y=2：z=3 Call proc1(x，x，2) Print x；x；z Call proc1(x，y，y) Print x；y；y End Sub（分数：2.00）A
33、.6 6 12 6 6 10 B.9 5 10 5 10 10C.9 6 12 9 10 15D.9 5 10 5 4 10解析：解析 从整体上看，主调过程将两次调用过程 Proc1 后，实参的值将随形参变化而变化，现在分析一下这两次调用实参和形参是怎么变化的。 第一次调用被调过程 proc1，主调过程把实参 x，x，z 的地址分别传给形参 x，y，z，此时形参 x，y，z 值分别为 1，1，3，执行语句 x=3*z 后，形参 x 值变为9，此时相对应的实参，也变为 9，执行语句 y=2*z 后，形参 y 值变为 6，则相对应的实参 x 值为 6。执行z=x+y 后，形参。值应为 12，当然这
34、次调用后，程序代码输出的数值为 6，6，12。 第二次调用被调过程proc1，主调过程把实参 x，x，x 的地址分别传给形参 x，y，z。我们应注意一下，此时实参 x 的值为 6而不是 1，所以此时形参 x，y，z 值分别为 6，2 和 2，执行语句 x=3*z 后，形参 x 值为 6，相对实参 x 值也相应的变为 6。执行语句 y=2*z 后，形参 y 值变为 4，相应的实参 y 值也变为 4，执行 z=x+y 后，形参z 值就为 10，相应的实参 Y 的值变为 10，而形参 y 和。的地址相同，最后它们值都应为 10，所以此次调用后，程序代码将输出的数值为 6，10 和 10。4.单击窗口
35、时，下列程序代码的执行结果为 Private Sub Form_Click( ) Text1 End Sub Private Sub Text(x As Integer) x=x*3+1 if x6 Then call Text(x) End if x=x*2+1 Print x； End Sub（分数：2.00）A.27 55 B.11 35C.22 45D.24 51解析：解析 难点在于 Sub 过程 Text 中嵌套了一个 Text 过程。根据 Text 的描述，当把 1 以传地址的方式传送给 x 时，x 的值为 4，此时 x 的值满足 If 条件，所以再次执行 1 次 Text 过程。
36、第 2 次执行时，x的值变为 13，此时跳过 If 语句，执行 x=x*2+1 语句，x 值变为 27，随后用 Print 方法输出。注意，到此时，整个 Text 过程仅仅执行完了 call Text(x)这一语句块，结束这个语句块，系统接着执行 x=x*2+1 语句，由于 x 参数的传地址的方式传送，此时在执行该句前，x 的值为 27，执行完之后 x 的值为 55，再将这一值输出。窗体上显示 27 与 55。5.下列程序段的执行结果为 X=5 Y=-20 If Not X0 Then X=Y-3 Else Y=X+3 Print X-Y；（分数：2.00）A.-3 B.5C.3D.25解析：
37、解析 根据题意，当 X，0 为非真时，执行 Then 后面的语句，否则执行 Else 后面的语句。据此，Y 的值为 8，X 的值仍为 5。Print 语句先计算 X-Y 的值，再输出。6.设有下列二叉树： （分数：2.00）A.ABCDEFB.DBEAFC C.ABDECFD.DEBFCA解析：解析 二叉树的遍历分为先序、中序、后序三种不同方式。本题要求中序遍历，其遍历顺序应该为：中序遍历左子树一访问根结点一中序遍历右子树。按照定义，中序遍历序列是 DBEAFC。7.在软件生命周期中，能准确确定软件系统必须做什么和必须具备哪些功能的阶段是（分数：2.00）A.概要设计B.详细设计C.可行性分析
38、D.需求分析 解析：解析 需求分析阶段是对待开发软件提出的需求进行分析并给出详细定义，写软件规格说明书及初步的用户手册，提交评审。所以能准确确定软件系统必须做什么和必须具备哪些功能的阶段是需求分析阶段。8.以下能够正确计算 1+2+3+10 的程序是（分数：2.00）A.Private sub Command1_Click( ) sum=0 For 1=1 To 10 Sum=sum+1， Next I Print Sum End Sub B.Private sub Command1_Click( ) Sum=0,I=1 Do While l=10 Sum=Sum+1 I=I+1 Print
39、Sum End SubC.Private Sub command1_click( ) Sum=0：I=1 Do Sum=Sum+1 I=I+1 Loop While I10 Print Sum End SubD.Private Sub command1_Click( ) Sum=0：I=1 Do Sum=Sum+1 l=I+1 Loop Until I10 Print Sum End Sub解析：解析 A 选项进行 10 次循环，分别将 1 至 10 累加给 Sum，故正确。选项 B 缺少 Loop 关键词，否则也是正确的。选项 C 与 D 由于受条件“Iclo限制，Do 循环只能进行一次。9
40、.在数据结构中，从逻辑上可以把数据结构分成（分数：2.00）A.动态结构和静态结构B.线性结构和非线性结构 C.集合结构和非集合结构D.树状结构和图状结构解析：解析 逻辑结构即数据元素之间的逻辑关系，与数据的存储无关。根据数据元素之间的关系，逻辑结构被分为两大类：线性结构和非线性结构。而集合结构和非集合结构、树形结合和图状结构都是特定的数据结构类型。10.在窗体上画一个命令按钮，然后编写如下程序 Private Sub Command1_Click( ) Dim a As Integer，b As hiteger a=1 b=2 Print N(a，b) End Sub Function N(
41、x As Integer，y As Integer)As Integer N=IIf(xy，x，y) End Function 程序运行后，单击命令按钮，输出结果为（分数：2.00）A.1B.2 C.5D.8解析：解析 事件过程 N 的作用是输出两个数中最大的，它调用了 IIF 函数，条件部分是(xy)，如果满足，那么 N 的值即为 x 的值，否则为 y 的值。在 Sub 过程中，定义了两个变量 a，b，并赋给它们初值1，2，并调用 Print 函数，输出 N(a，b)的值，因为 xy，所以输出 y=2。11.采用面向对象技术开发的应用系统的特点是（分数：2.00）A.重用性更强 B.运行速度
42、更快C.占用存储量小D.维护更复杂解析：解析 面向对象方法具有很多特点，比如多态、继承等。这些特点都决定了面向对象方法支持软件复用。对象类可以派出生新类，类可以产生实例对象，从而实现了对象类数据结构和操作代码的软件复用。可重用性是面向对象思想的一个重要特征。12.定义过程的格式中，Static 关键字的作用是指定过程中的局部变量在内存中的存储方式。若使用了Staff 关键字，则（分数：2.00）A.每次调用此过程，该过程中的局部变量都会被重新初始化B.在本过程中使用到的，在其他过程中定义的变量也为 Static 型C.每次调用此过程时，该过程中的局部变量的值保持在上一次调用后的值 D.定义了该
43、过程中定义的局部变量为“自动”变量解析：解析 static 关键字用于指定局部变量在内存中的存储方式。变量的存储方式有两种：静态的和自动的。静态存储方式是指当过程运行完毕后，变量所占的内存单元不释放，而变量的值被保存下来，该变量为静态变量。Static 型变量所占存储空间只初始化一次，且变量的值在整个程序运行期间都存在；Static 关键字对过程之外定义的变量没有影响；Static 关键字是定义该过程中定义的局部变量为静态变量。13.单击命令按钮时，下列程序代码的执行结果为 Public Sub proc1(n As Integer，Byva1 m As Integer) n=n Mod 10
44、 m=m Mod 10 End Sub Private Sub Cmmand1_Click( ) Dim x As Integer，y As lngeger x=12：y=12 Call Proe1(x，y) Print x；y End Sub（分数：2.00）A.12 2B.2 12 C.2 2D.12 12解析：解析 由于 n 为默认的传地址参数，m 为传值参数，故在调用 Proc1 过程后， x 值为经过处理后的值，y 为原值，不发生改变。14.编制一个好的程序，首先要保证它的正确性和可靠性，还应强调良好的编程风格，在选择标识符的名字时应考虑（分数：2.00）A.名字长度越短越好，以减少
45、源程序的输入量B.多个变量共用一个名字，以减少变量名的数目C.选择含义明确的名字，以正确提示所代表的实体 D.尽量用关键字作名字，以使名字标准化解析：解析 标识符的名字应该能反映出它所代表的实际东西，应有一定的意义。名字不是越长越好，应当选择精练的意义明确的名字。必要时可以使用缩写名字，但这时要注意缩写规则要一致，并且给每个名字加注释。同时，在一个程序中，一个变量只有一种用途。15.有以下函数过程： Function Gys(ByVal x As Integer，ByVal y As Integer)As Integer Do While y 0 Remender=x Mod v x=y Y=
46、Reminder Loop Gys=x End Function 以下是调用该函数的事件过程，该程序的运行结果是 Private Sub Command1_Click( ) Dim a As Integer Dim b As Integer a=50 b=10 x=Cys(a，b) Print x End sub（分数：2.00）A.0B.10 C.50D.100解析：解析 首先要读懂 Gys 函数过程的意思，Gys 函数过程返回参数 y 的值，具体过程是先令参数 x的值为 y 的值，y 的值为 xMody 的值，再令 Gys 值为 x 的值，据此本题的正确结果为 10。16.单击命令按钮时，
47、下列程序的运行结果为 Private Sub Command1_Click( ) Print MyFund(20，18) End Sub Public Function MyFund(m As Integer，n As Integer)As Integer Do While mn Do While mn：m=m-n:Loop Do While mn：n=n-m:Loop Loop MyFund=m End Function（分数：2.00）A.0B.2 C.4D.6解析：解析 程序代码被调过程采用了 Do WhileLoop 的嵌套语句结构，主调过程只调用了次被调过程，Print MyFund
48、(20，18)语句表明，程序最后输出的只是被调过程的返回值。主调过程在调用被调过程MyFund 时，把数值 20，18 分另“专给形参 m 和 n，从被调过程中的循环语句来看，因为此时 m 的值大于 n的值，所以执行语句 m=m-n，m 值变为 2，而由语句 MyFund=m 可以看出，此过程的返回值就是 m 的值，即2。17.下列程序段的执行结果为 Dim M(10) For k=1 To 10 M(K)=11-k Ncxt k x=6 Print M(2+M(x) A 2 B3 c4 D5（分数：2.00）A.B.C. D.解析：解析 通过 For k 循环，数组 M(10)被逐一赋值，结果是要显示(通过 Print 语句)M(2+M(x)的值。根据 M(k)=11-k，不难得出当 x=6 时，M(2+M(x)=M(2 +5)=M(7)=11-7=4，故答案为 C。18.单击命令按钮时，下列程序代码的执行结果为 Private Sub Command1_Cli
