1、二级 VISUAL+BASIC 笔试 343 及答案解析(总分：100.00，做题时间：90 分钟)一、B选择题/B(总题数：35，分数：70.00)1.有下列事件过程： Private Sub Command1_Click() b=10 Do Until b=-1 a=InputBox(“请输入 a 的值“) a=Val(a) b=InputBox(“请输入 b 的值“) b=Val(b) a=a*b Loop Print a End Sub 程序运行后，依次输入数值 30,20,10,-1 后，输出结果是( )。（分数：2.00）A.6000B.-10C.200D.-60002.关系数据库
2、管理系统能实现的专门关系运算包括( )。（分数：2.00）A.排序、索引、统计B.选择、投影、连接C.关联、更新、排序D.显示、打印、制表3.设计数据库的存储结构属于( )。（分数：2.00）A.需求分析B.概念设计C.逻辑设计D.物理设计4.已知 a=5，b=8，c=12，下列表达式的值为 True 的是( )。（分数：2.00）A.ab And caB.ab Or caC.ab Xor caD.ab Eqv ca5.在窗体下画两个文本框 Text1 和 Text2，一个命令按钮 Command1，请阅读下列程序段： Private Sub Command1_Click() x=0 Do U
3、ntil x=50 x=(x+4)*(x+3) n=n+1 Loop Text1.Text=Str(n) Text2.Text=Str(x) End Sub 运行程序后，单击命令按钮，在两个文本框中显示的值分别为( )。（分数：2.00）A.1 和 0B.2 和 240C.3 和 50D.4 和 1686.为了使用窗体输出，使 Print 方法在 Form_Load 事件中起作用，必须设置窗体的( )属性。（分数：2.00）A.AutoReDrawB.BackColorC.MoveableD.Caption7.数据的存储结构是指( )。（分数：2.00）A.数据所占的存储空间B.数据的逻辑结构
4、在计算机中的存放形式C.数据在计算机中的顺序存储方式D.存储在计算机外存中的数据8.在窗体上画一个名称为“Command1”、标题为“计算”的命令按钮，再画 7 个标签，其中 5 个标签组成名称为 Label1 的控件数组；名称为 Label2 的标签用于显示计算结果，其 Caption 属性的初始值为空，标签 Label3 的标题为“计算结果”。运行程序时会自动生成 5 个随机数，分别显示在标签控件数组的各个标签中。单击“计算”按钮，则将标签数组各元素的值累加，然后计算结果显示在 Label2。下列为“计算”按钮的事件过程，请为空白处选择合适的语句( )。 Private Sub Comma
5、nd1_Click() Sum=0 For i=0 To 4 Sum=Sum+_ Next _=Sum End Sub （分数：2.00）A.Label1(.Caption Label2.CaptionB.label1(.Caption label3.CaptionC.label1.Caption label2.CaphOnD.label1.Caption label3.Caption9.在一个窗体上添加一命令按钮控件，名为 Command1，事件过程如下，则执行结果是( )。 Option Base 1 Private Sub Command1_Click() Dim a(5) As Int
6、eger Dim k As Integer Dim total As Integer a(1)=2 a(2)=5 a(3)=4 a(4)=10 a(5)=6 For k=1 To 5 total=total+a(k) Next k Print total End Sub（分数：2.00）A.10B.15C.27D.3510.有下列二叉树，对此二叉树前序遍历的结果是( )。 （分数：2.00）A.ACFHIBEDGB.ABCDEFGHIC.ABDEGCFHID.ABCDEFHGI11.下列描述中止确的是( )。（分数：2.00）A.程序就是软件B.软件开发不受计算机系统的限制C.软件既是逻辑实体
7、，又是物理实体D.软件是程序、数据和相关文档的集合12.单击命令按钮执行下列程序，其输出结果是( )。 Private Sub Command1_Click() Dim a As Integer,b As Integer,c As Integer a=3 b=4 c=5 Prim SecProc(c,b,a) End Sub Function FirProc(x As Integer,y As Integer,z As Integer) FirProc=2*x+y+3*z End Function Function SecProc(x As Integer,y As Integer,z As
8、Integer) SecProc=FirProc(z,x,y)+x End Function（分数：2.00）A.20B.22C.28D.3013.程序运行时，向图片框 P1 中加载“C:/WINDOWS/Car.bmp”图像文件，应使用( )：（分数：2.00）A.Picture1.Picture=(“C:/WlNDOWS/Cabmp“)B.Picture1.Picture=LoadPicture(“C:/WINDOWS/Cabmp“)C.P1.Picture1=LoadPicture(C:/WINDOWS/CabmD.P1.Picture=LoadPicture(“C:/W1NDOWS/C
9、abmp“)14.下列控件中，具有 Caption 属性的是( )。（分数：2.00）A.组合框B.列表框C.计时器D.单选按钮15.算法的空间复杂度是指( )。（分数：2.00）A.算法程序的长度B.算法程序中的指令条数C.算法程序所占的存储空间D.算法执行过程中所需要的存储空间16.Visual Basic 应用程序中，下列关于过程的说法正确的是( )。（分数：2.00）A.过程的定义可以嵌套，但过程的调用不能嵌套B.过程的定义不可以嵌套，但过程的调用可以嵌套C.过程的定义和调用都可以嵌套D.过程的定义和调用都不能嵌套17.设在工程中定义了下列类型： Type Stutype ino As
10、 Integer strname As String*20 strsex As String*1 smark As Single End Type 在窗体上正确使用这个类型的是下列哪个操作( )。（分数：2.00）A.Sub Command1_Click() Dim student As Stutype With student .ino=12 .Strname=smith .strsex=男 .smark=89 End With End SubB.Sub Command1_Click() Dim Student As Stutype With student .ino=12 .strname
11、=“smith“ .strsex=“男“ .smark=89 End With End SubC.Sub Comnland1_Click() Dim student As Stutype With Stutype .ino=12 .strname=“smith“ .strsex=“男“ .smark=89 End With End SubD.Sub Command1_Click() Dim student As Stutype With student .ino=12 .Strname=“smith“ .strsex=“男“ .smark=89 End student End Sub18.为了
12、使一个窗体从屏幕上消失但仍在内存中，所使用的方法或语句为( )。（分数：2.00）A.ShowB.HideC.LoadD.UnLoad19.要在文本框获得焦点时操作文本框中的内容，应该在( )事件过程中编写程序。（分数：2.00）A.GoFocusB.LostFocusC.ChangeD.SetFoeus20.下列程序段的执行结果是( )。 Dim A(3,3) For M=1 To 3 For N=1 To 3 If N=M Or N=3-M+1 Then A(M,N)=1 Else A(N,N)=0 End If Next N Next M For M=1 To 3 For N=1 To
13、3 Print A(M,N) Next N Print Next M（分数：2.00）A.1 0 0 0 1 0 0 0 1B.1 1 1 1 1 1 1 1 1C.0 0 0 0 0 0 0 0 0D.1 0 1 0 1 0 1 0 121.在窗体上画一个名称为 List1 的列表框，一个名称为 Label1 的标签。列表框中显示若干国家的名称，当单击列表中的某个国家名时，在标签中显示选中国家的名称。下列正确实现上述功能的程序是( )。（分数：2.00）A.Private Sub List_Click() Label1.Caption=List1.ListIndex End SubB.Pri
14、vate Sub List1_Click() Label1.Name=List1.ListIndex End SubC.Private Sub List1_Click() Label1.Name=List1.Text End SubD.Private Sub List1_Click() Label1.Caption=List1.Text End Sub22.两个或两个以上模块之间联系的紧密程度称为( )。（分数：2.00）A.耦合性B.内聚性C.复杂性D.数据传输特性23.窗体上有一个命令桉钮，命令按钮的单击事件过程如下。运行程序后，单击命令按钮，输出结果是( )。Private Sub Co
15、mmand1_click() Dim a a=Array(1,2,3,4,5) Fork=1 To 4 S=S+a(k) Next k Print S End Sub（分数：2.00）A.10B.14C.15D.12024.下列程序段，运行后窗体上输出结果是( )。 Private Sub Command1_Click() a=5:b=4:c=3:d=2 x=32*b Or a=c And bc Or cd Printx End Sub（分数：2.00）A.1B.TrueC.FalseD.225.若要建立一个学生管理系统的输入界面，其中要求选择学生的性别、政治面貌(党/团/群众)及选课情况(共
16、有 5 门课，可任选)，下列设置方法正确的是( )。（分数：2.00）A.将 5 门课程用一组 5 个选择框来表示，将性别和政治面貌用 5 个单选按钮来表示B.在一个框架上绘制有 5 个复选框的控件数组表示 5 门课程，在一个框架上绘制两个单选按钮表示性别，在一个框架上绘制 3 个单选按钮表示政治面貌的 3 种情况C.将 5 门课程用一组 5 个单选按钮来表示，将性别和政治面貌用 5 个选择框来表示D.用一组 10 个选择框来表示课程、性别和政治面貌26.表达式 Val(“.123E2“)的值是( )。（分数：2.00）A.123B.12.3C.0D.123e2CD27.有下列函数过程： Fu
17、nction fun1(ByVal x As Integer,ByVal y As Integer)As Integer Do While y0 reminder=x Mod y x=y y=reminder Loop fun1=x End Function 在下列按钮单击事件中调用该函数，则该程序的运行结果是( )。 Private Sub Command1_Click() Dim a As Integer Dim b As Integer a=100 b=25 x=fun1(a,b) Print x End Sub（分数：2.00）A.0B.25C.50D.10028.下列程序执行后，输出
18、结果是( )。 For n=3 To 1 Step-1 x=String(n,“#“) Print x Next n（分数：2.00）A.1# 2# 3#B.# # #C.# # #D.3# 2# 1#29.下列不属于软件工程 3 个要素的是( )。（分数：2.00）A.工具B.过程C.方法D.环境30.在窗体上放一个文本框 Text1，在文本框中输入 456，并有下列事件过程： Private Sub Form_Click() x=InputBox(“请输入一个整数“) Print x+Text1.Text End Sub 单击该窗体，在输入对话框中输入 123，单击“确定”按钮后，窗体上显
19、示的是( )。（分数：2.00）A.123B.456C.579D.12345631.将 E-R 图转换到关系模式时，实体与实体间的联系可以表示成( )。（分数：2.00）A.属性B.关系C.键D.域32.下列不能打开菜单编辑器的操作是( )。（分数：2.00）A.按Ctrl+E组合键B.单击工具栏中的“菜单编辑器”按钮C.执行“工具”菜单中的“菜单编辑器”命令D.按Shift+Alt+M组合键33.数据库技术的根本目标是要解决数据的( )。（分数：2.00）A.存储问题B.共事问题C.安全问题D.保护问题34.在窗体中放置控件，对该控件的操作错误的是( )。（分数：2.00）A.单击窗体上没有
20、控件处，可把活动控件变为不活动控件B.双击任一个控件内部，可激活该控件的代码窗口C.双击一个控件内部，可把活动控件变为不活动控件D.拖动一个活动控件四周的控制小方块可缩放控件35.在窗体上放置一个命令按钮 Command1，并编写下列单击事件的程序： Option Base1 Private Sub Command1_Click() Dim c As Integer,d As Integer d=0 c=6 X=Array(2,4,6,8,10,12) For i=1 To 6 If X(i)c Then d=d+X(i) c=X(i) Else d=d-c End If Next i Pri
21、nt d End Sub 程序运行后，单击命令按钮，则在窗体上输出的内容为( )。（分数：2.00）A.10B.12C.16D.20二、B填空题/B(总题数：12，分数：30.00)36.数据结构分为逻辑结构和存储结构，循环队列属于 1 结构。（分数：2.00）填空项 1:_37.队列是限定在表的一端进行插入和在另一端进行删除操作的线性表。允许插入的一端称作 1。（分数：2.00）填空项 1:_38.在一个容量为 32 的循环队列中，若头指针 front=3，尾指针 rear=2，则该循环队列中共有 1 个元素。（分数：2.00）填空项 1:_39.一棵二叉树第 6 层(根结点为第一层)的结点
22、最多为 1 个。（分数：2.00）填空项 1:_40.度为 10 的线性表进行冒泡排序，最坏情况下需要比较的次数为 1。（分数：2.00）填空项 1:_41.变量未赋值时，数值型变量的值为 1，字符串变量的值为 2。（分数：4.00）填空项 1:_填空项 1:_42.下列程序中，a，b，c 代表一个三角形的三条边，程序的作用是判断一个三角形是否成立，请填写空白处。 If a+bc _ b+ca _ a+cb Then MsgBox(“这三条边不能构成一个三角形“) End If（分数：4.00）填空项 1:_43.设 A=2，B=-4，则表达式 3*A5 Or B+80 的值是_。（分数：2.
23、00）填空项 1:_44.组合框有 3 种不同的类型，这 3 种类型是下拉式列表框、简单组合框和下拉式组合框，分别通过把Style 属性设置为 1 来实现。（分数：2.00）填空项 1:_45.在程序运行时，可以通过 1 方法来移动滚动条的位置。（分数：2.00）填空项 1:_46.下列程序弹山对话框中按钮的个数为_。 MsgBox“确认!“,vbAbortRetryIgnore+vbMsgBoxHelpButton+vbQuestion,“提示“（分数：2.00）填空项 1:_47.下列程序的功能是将字符串“abcde”逆序打印出来。请填写空白处以完善程序。 Function rev(str
24、1) As String B=Mid(_,1,1) If B=“Then rev=“ Else rev=rev(Mid(str1,2)+_ End If End Function Private Sub Form_Click() old=“abedE“ Print rev(old) End Sub（分数：4.00）填空项 1:_二级 VISUAL+BASIC 笔试 343 答案解析(总分：100.00，做题时间：90 分钟)一、B选择题/B(总题数：35，分数：70.00)1.有下列事件过程： Private Sub Command1_Click() b=10 Do Until b=-1 a=
25、InputBox(“请输入 a 的值“) a=Val(a) b=InputBox(“请输入 b 的值“) b=Val(b) a=a*b Loop Print a End Sub 程序运行后，依次输入数值 30,20,10,-1 后，输出结果是( )。（分数：2.00）A.6000B.-10 C.200D.-6000解析：解析 本段程序的执行过程如下： 第 1 次输入 30，并给变量 a 赋值为 30；第 2 次输入 20，并给变量 b 赋值为 20，这是执行语句 a=a*b=600，接着判断 b=20 条件不成立，因此继续循环：第 3 次输入10，给 a 赋值为 10；第 4 次输入-1 并赋
26、值给变量 b，再执行语句 a=a*b=-10；然后判断循环条件，b=-1条件为真，所以退出循环。2.关系数据库管理系统能实现的专门关系运算包括( )。（分数：2.00）A.排序、索引、统计B.选择、投影、连接 C.关联、更新、排序D.显示、打印、制表解析：解析 关系数据库管理系统的专门关系运算包括选择运算、投影运算和连接运算。3.设计数据库的存储结构属于( )。（分数：2.00）A.需求分析B.概念设计C.逻辑设计D.物理设计 解析：解析 物理设计阶段主要解决选择文件存储结构和确定文件存取方法的问题，包括：选择存储结构、确定存取方法、选择存取路径、确定数据的存放位置。4.已知 a=5，b=8，
27、c=12，下列表达式的值为 True 的是( )。（分数：2.00）A.ab And caB.ab Or caC.ab Xor caD.ab Eqv ca 解析：解析 And 逻辑运算符刘两个关系表达式的值进行比较，如果两个表达式的值均为 True，则结果为 True，否则为 False。Or 逻辑运算符对两个关系表达式的值进行比较，如果两个关系表达式的值均为True 或其中的一个表达式为 True，则结果为 True：如果两个表达式的值均为 False，则结果为False。Xor 逻辑运算付，如果两个表达式同时为 True 或同时为 False，则结果为 False，否则为True。Eqv
28、逻辑运算符，如果两个表达式同时为 True 或同时为 False，则结果为 True。5.在窗体下画两个文本框 Text1 和 Text2，一个命令按钮 Command1，请阅读下列程序段： Private Sub Command1_Click() x=0 Do Until x=50 x=(x+4)*(x+3) n=n+1 Loop Text1.Text=Str(n) Text2.Text=Str(x) End Sub 运行程序后，单击命令按钮，在两个文本框中显示的值分别为( )。（分数：2.00）A.1 和 0B.2 和 240 C.3 和 50D.4 和 168解析：解析 仔细阅读程序，x
29、 是循环变量，n 是用来累计循环次数的变量。第一次循环结束后，x=12，n=1：第二次循环结束后，x=240，n=2；第 3 次循环开始时，x=24050，退出循环，所以最后 x 的值为 240，n 的值为 2。6.为了使用窗体输出，使 Print 方法在 Form_Load 事件中起作用，必须设置窗体的( )属性。（分数：2.00）A.AutoReDraw B.BackColorC.MoveableD.Caption解析：解析 要在窗体上使用如 Circle、Cis、Line、Point、Print 和 Pset 等绘制图形的方法，必须设置窗体的 AutoReDmw 属性，当 AutoReD
30、raw 属性设置为 True 时，使用这些方法，可以在窗体或PictureBox 控件中自动重绘输出。7.数据的存储结构是指( )。（分数：2.00）A.数据所占的存储空间B.数据的逻辑结构在计算机中的存放形式 C.数据在计算机中的顺序存储方式D.存储在计算机外存中的数据解析：解析 数据的存储结构，又称为数据的物理结构，是数据的逻辑结构在计算机中的存放形式。数据的存储结构有顺序结构、链式结构、散列结构和索引结构等。8.在窗体上画一个名称为“Command1”、标题为“计算”的命令按钮，再画 7 个标签，其中 5 个标签组成名称为 Label1 的控件数组；名称为 Label2 的标签用于显示计
31、算结果，其 Caption 属性的初始值为空，标签 Label3 的标题为“计算结果”。运行程序时会自动生成 5 个随机数，分别显示在标签控件数组的各个标签中。单击“计算”按钮，则将标签数组各元素的值累加，然后计算结果显示在 Label2。下列为“计算”按钮的事件过程，请为空白处选择合适的语句( )。 Private Sub Command1_Click() Sum=0 For i=0 To 4 Sum=Sum+_ Next _=Sum End Sub （分数：2.00）A.Label1(.Caption Label2.Caption B.label1(.Caption label3.Capt
32、ionC.label1.Caption label2.CaphOnD.label1.Caption label3.Caption解析：解析 本题看似复杂，实际比较简单，只要读懂了题意就能很快地解答本题。题中要求单击“计算”按钮后，累加标签数组各元素的值，那么 sum 的值就应该是标签数组中各元素值的累加，用下标引用各数组元素 label1(i).Caption；题目最后要求将和显示在 Label2 中，因此第 2 个空应该填写label2.Caption。9.在一个窗体上添加一命令按钮控件，名为 Command1，事件过程如下，则执行结果是( )。 Option Base 1 Private
33、Sub Command1_Click() Dim a(5) As Integer Dim k As Integer Dim total As Integer a(1)=2 a(2)=5 a(3)=4 a(4)=10 a(5)=6 For k=1 To 5 total=total+a(k) Next k Print total End Sub（分数：2.00）A.10B.15C.27 D.35解析：解析 要得到数组中的每个元素时，可以通过数组的下标来分别引用数组中的各个元素。本程序的作用是通过一个 for 循环，计算数组中各个元素值的总和并输出，for 循环条件是 15，因此循环了 5次，即将数
34、组元素 a(1)a(5)累加起来，所以最后输出结果为：2+5+4+10+6=27。10.有下列二叉树，对此二叉树前序遍历的结果是( )。 （分数：2.00）A.ACFHIBEDGB.ABCDEFGHIC.ABDEGCFHI D.ABCDEFHGI解析：解析 对二叉树的前序遍历是指：先访问根结点，然后访问左子树，最后访问右子树，并且，在访问左、右子树时，先访问根结点，再依次访问其左、右子树。11.下列描述中止确的是( )。（分数：2.00）A.程序就是软件B.软件开发不受计算机系统的限制C.软件既是逻辑实体，又是物理实体D.软件是程序、数据和相关文档的集合 解析：解析 软件是运行在计算机硬件之上
35、的逻辑实体，包括程序、数据和相关的文档，软件的开发、运行对计算机系统具有依赖性，受计算机系统的限制。12.单击命令按钮执行下列程序，其输出结果是( )。 Private Sub Command1_Click() Dim a As Integer,b As Integer,c As Integer a=3 b=4 c=5 Prim SecProc(c,b,a) End Sub Function FirProc(x As Integer,y As Integer,z As Integer) FirProc=2*x+y+3*z End Function Function SecProc(x As I
36、nteger,y As Integer,z As Integer) SecProc=FirProc(z,x,y)+x End Function（分数：2.00）A.20B.22C.28 D.30解析：解析 本题是在 Command1 过程中调用 SecProc 函数，而在 SecProc 函数中又调用了 FirPmc 函数。函数调用时，实参和形参要一一对应传递。程序运行过程是：Ptint SecProc(c,b,s)Print SecProc(5,4,3)；Sec Proc=FinProc(z,x,y)+xSecProc=FirProc(3,5,4)+5；FirProc=2*x+y+3*zFi
37、rProz=3*3+5+3*4=23；SecProc=28Print SeProc(c,b,a)Print28。形参是在被调用的 Sub、Function 过程中定义的参数名；实参则是在调用的 Sub 或 Function 过程中定义的参数名。13.程序运行时，向图片框 P1 中加载“C:/WINDOWS/Car.bmp”图像文件，应使用( )：（分数：2.00）A.Picture1.Picture=(“C:/WlNDOWS/Cabmp“)B.Picture1.Picture=LoadPicture(“C:/WINDOWS/Cabmp“)C.P1.Picture1=LoadPicture(C:
38、/WINDOWS/CabmD.P1.Picture=LoadPicture(“C:/W1NDOWS/Cabmp“) 解析：解析 在运行期间，可以使用 LoadPicture 函数载入图形文件，其格式为：对象名.Picture=LoadPicture(“文件完整路径”) 其中，“对象名”指控件名称(即 Name 属性值)，如本题的图片框名为 P1，因此这里的对象名为“PI”；“文件完整路径”指图形文件的正确路径和文件名，要注意的是文件完整路径一定要用双引号括起来。14.下列控件中，具有 Caption 属性的是( )。（分数：2.00）A.组合框B.列表框C.计时器D.单选按钮 解析：解析 单选
39、按钮的 Coptior 属性用来显示附在控件之后的文本。其他 3 个选项没有这个属性。15.算法的空间复杂度是指( )。（分数：2.00）A.算法程序的长度B.算法程序中的指令条数C.算法程序所占的存储空间D.算法执行过程中所需要的存储空间 解析：解析 一个算法的空间复杂度一般是指执行这个算法所需的存储空间。一个算祛所占用的存储空间包括算法程序所占用的空间、输入的初始数据所占用的存储空间及算法执行过程中所需要的额外空间。16.Visual Basic 应用程序中，下列关于过程的说法正确的是( )。（分数：2.00）A.过程的定义可以嵌套，但过程的调用不能嵌套B.过程的定义不可以嵌套，但过程的调
40、用可以嵌套 C.过程的定义和调用都可以嵌套D.过程的定义和调用都不能嵌套解析：解析 Sub 过程的定义不能嵌套。在 Sub 过程内，不能定义 Sub 过程或 Function 过程，但可以通过调用形式来执行其他的 Sub 过程，在调用时还可以嵌套调用。17.设在工程中定义了下列类型： Type Stutype ino As Integer strname As String*20 strsex As String*1 smark As Single End Type 在窗体上正确使用这个类型的是下列哪个操作( )。（分数：2.00）A.Sub Command1_Click() Dim stud
41、ent As Stutype With student .ino=12 .Strname=smith .strsex=男 .smark=89 End With End SubB.Sub Command1_Click() Dim Student As Stutype With student .ino=12 .strname=“smith“ .strsex=“男“ .smark=89 End With End Sub C.Sub Comnland1_Click() Dim student As Stutype With Stutype .ino=12 .strname=“smith“ .strs
42、ex=“男“ .smark=89 End With End SubD.Sub Command1_Click() Dim student As Stutype With student .ino=12 .Strname=“smith“ .strsex=“男“ .smark=89 End student End Sub解析：解析 本题考查为记录类型变量 student 赋值。使用 With 语句可以对某个对象执行一系列的语句，而不用重复指出对象的名称。其语法如下： With 记录类型变量 .记录类型变量成员名=要赋的值 End With 给记录类型变量中的字符串型成员赋值时要加双引号。18.为了使
43、一个窗体从屏幕上消失但仍在内存中，所使用的方法或语句为( )。（分数：2.00）A.ShowB.Hide C.LoadD.UnLoad解析：解析 Show 方法用来显示一个窗体：Hide 方法正好相反，它便窗体隐藏，不显示在屏幕上，但仍存在内存中：UnLoad 方法的功能是清除内存中指定的宙体：Load 方法正好相反，它把个宙体装入内存。19.要在文本框获得焦点时操作文本框中的内容，应该在( )事件过程中编写程序。（分数：2.00）A.GoFocus B.LostFocusC.ChangeD.SetFoeus解析：解析 当对象得到焦点时，会产生 GotFocus 事件。当对象失去焦点时，会产生
44、 LostFocos 事件。SetFocus 方法用于将焦点移到指定的文本框中。当用户向文本框输入新信息，或当程序把 Text 属性设置为新值从而改变文本框的 Text 属性时，将触发 Change 事件。20.下列程序段的执行结果是( )。 Dim A(3,3) For M=1 To 3 For N=1 To 3 If N=M Or N=3-M+1 Then A(M,N)=1 Else A(N,N)=0 End If Next N Next M For M=1 To 3 For N=1 To 3 Print A(M,N) Next N Print Next M（分数：2.00）A.1 0 0
45、 0 1 0 0 0 1B.1 1 1 1 1 1 1 1 1C.0 0 0 0 0 0 0 0 0D.1 0 1 0 1 0 1 0 1 解析：解析 For 循环的一般格式是： Forcounter=start To end Step step statements Exit For statements Next counter 当所有循环中的语句都执行后，step 的值会加到 counter 中。此时，循环中的语句可能会再次执行，也可能是退出循环并从 Next 语句之后的语句继续执行。可以将一个ForNext 循环放置在另一个 ForNext 循环中，组成嵌套循环。不过在每个循环中的 c
46、ounter 要使用不同的变量名。 根据题目中的意思，在 If N=M Or N=3-M+1 Then 条件成立时，给数组元素赋值为 1；否则给数组元素赋值为 0。当 N=1，M=1；N=1，M=3；N=2，M=2；N=3，M=3；N=3，M=1 时，数组元素为 1，其他的数组元素为 0。21.在窗体上画一个名称为 List1 的列表框，一个名称为 Label1 的标签。列表框中显示若干国家的名称，当单击列表中的某个国家名时，在标签中显示选中国家的名称。下列正确实现上述功能的程序是( )。（分数：2.00）A.Private Sub List_Click() Label1.Caption=Li
47、st1.ListIndex End SubB.Private Sub List1_Click() Label1.Name=List1.ListIndex End SubC.Private Sub List1_Click() Label1.Name=List1.Text End SubD.Private Sub List1_Click() Label1.Caption=List1.Text End Sub 解析：解析 ListIndex 属性返回或设置控件中当前列表项的索引号；Text 属性返回列表框中当前列表项的文本内容；Label1 标签在 Caption 属性中显示内容，而 Name 属性
48、代表 Label1 的名字。22.两个或两个以上模块之间联系的紧密程度称为( )。（分数：2.00）A.耦合性 B.内聚性C.复杂性D.数据传输特性解析：解析 耦合性是模块间互相连接的紧密程度的度量，取决于各个模块之间接口的复杂度、调用方式以及哪些信息通过接口。23.窗体上有一个命令桉钮，命令按钮的单击事件过程如下。运行程序后，单击命令按钮，输出结果是( )。Private Sub Command1_click() Dim a a=Array(1,2,3,4,5) Fork=1 To 4 S=S+a(k) Next k Print S End Sub（分数：2.00）A.10B.14C.15D.120 解析：解析 解答本题的关键是读懂程序程序中首先通过赋值语句定义一个有，个元素的数组(数组的下标从零开始)：接下来是通过 For 循环来循环绐变量 S 赋值(即对数组元素求和)，循环中 k 从 1 开始，因此 a(k)从 2 开始取值，到 a(4)也就是 5 结束，计算结果为 14。24.下列程序段，运行后窗
