1、二级 VISUAL+BASIC-73 及答案解析(总分：100.00，做题时间：90 分钟)一、选择题(总题数：40，分数：100.00)1.下列叙述中正确的是_。（分数：2.50）A.程序设计就是编制程序B.程序的测试必须由程序员自己去完成C.程序经调试改错后还应进行再测试D.程序经调试改错后不必进行再测试2.下列数据结构中，能用二分法进行查找的是_。（分数：2.50）A.顺序存储的有序线性表B.线性链表C.二叉链表D.有序线性链表3.下列关于栈的描述正确的是_。（分数：2.50）A.在栈中只能插入元素而不能删除元素B.在栈中只能删除元素而不能插入元素C.栈是特殊的线性表，只能在一端插入或删
2、除元素D.栈是特殊的线性表，只能在一端插入元素，而在另一端删除元素4.下列叙述中正确的是_。（分数：2.50）A.一个逻辑数据结构只能有一种存储结构B.数据的逻辑结构属于线性结构，存储结构属于非线性结构C.一个逻辑数据结构可以有多种存储结构，且各种存储结构不影响数据处理的效率D.一个逻辑数据结构可以有多种存储结构，且各种存储结构影响数据处理的效率5.下列描述中正确的是_。（分数：2.50）A.软件工程只是解决软件项目的管理问题B.软件工程主要解决软件产品的生产率问题C.软件工程的主要思想是强调在软件开发过程中需要应用工程化原则D.软件工程只是解决软件开发中的技术问题6.在软件设计中，不属于过程
3、设计工具的是_。（分数：2.50）A.PDL(过程设计语言)B.PAD 图C.N-S 图D.DFD 图7.下列叙述中正确的是_。（分数：2.50）A.软件交付使用后还需要进行维护B.软件一旦交付使用就不需要再进行维护C.软件交付使用后其生命周期就结束D.软件维护是指修复程序中被破坏的指令8.数据库设计的根本目标是要解决_。（分数：2.50）A.数据共享问题B.数据安全问题C.大量数据存储问题D.简化数据维护9.设有如下关系表： （分数：2.50）A.T=RSB.T=RSC.T=RSD.T=R/S10.数据库系统的核心是_。（分数：2.50）A.数据模型B.数据库管理系统C.数据库D.数据库管理
4、员11.假定一个 Visual Basic 应用程序由一个窗体模块和一个标准模块构成。为了保存该应用程序，以下正确的操作是_。（分数：2.50）A.只保存窗体模块文件B.分别保存窗体模块、标准模块和工程文件C.只保存窗体模块和标准模块文件D.只保存工程文件12.为了清除窗体上的一个控件，下列正确的操作是_。（分数：2.50）A.按 Enter 键B.按 Esc 键C.选择(单击)要清除的控件，然后按 Del 键D.选择(单击)要清除的控件，然后按 Enter 键13.以下叙述中错误的是_。（分数：2.50）A.打开一个工程文件时，系统自动装入与该工程有关的窗体、标准模块等文件B.当程序运行时，
5、双击一个窗体，则触发该窗体的 DblClick 事件C.Visual Basic 应用程序只能以解释方式执行D.事件可以由用户引发，也可以由系统引发14.设 a=2，b=3，c=4，d=5，下列表达式的值是_。 NOt a=c Or 4*c=b2 And ba+c（分数：2.50）A.-1B.1C.TrueD.False15.设 a=5，b=10，则执行 c=Int(b-a)*Rnd+a)+1 后，c 值的范围为_。（分数：2.50）A.510B.69C.610D.5916.在窗体上画一个命令按钮，名称为 Command1，然后编写如下事件过程： Private Sub Command1_Cl
6、ick() a$=“software and hardware“ b$=Right(a$,8) c$=Mid(a$,1,8) MsgBox a$,b$.C$,1 End Sub 运行程序，单击命令按钮，则在弹出的信息框的标题栏中显示的是_。（分数：2.50）A.software and hardwareB.softwareC.hardwareD.117.在窗体上画一个命令按钮和一个文本框，其名称分别为 Command1 和 Text1，把文本框的 Text 属性设置为空白，然后编写如下事件过程： Private Sub Command1_Click() a=InputBox(“Enter an
7、 integer“) b=InputBox(“Enter an integer“) Text1.Text=b+a End Sub 程序运行后。单击命令按钮，如果在输入对话框中分别输入 8 和 10，则文本框中显示的内容是_。（分数：2.50）A.108B.18C.810D.出错18.在窗体上画两个文本框，其名称分别为 Text1 和 Text2，然后编写如下程序： Private Sub Form_Load() Show Text1.Text=“ Text2.Text=“ Text1.SetFocus End Sub Private Sub Text1_Change() Text2.Text=
8、Mid(Text1.Text,8) End Sub 程序运行后，如果在文本框 Text1 中输入 BeijingChina，则在文本框 Text2 中显示的内容是_。（分数：2.50）A.BeijingChinaB.ChinaC.BeijingD.BeijingC19.在窗体上画一个列表框和一个命令按钮，其名称分别为 List1 和 Command1，然后编写如下事件过程： Private Sub Form_Load() List1.AddItem “Item 1“ List1.AddItem “Item 2“ List1.AddItem “Item 3“ End Sub Private Su
9、b Command1_Click() List1.List(List1.ListCount)=“AAAA“ End Sub 程序运行后，单击命令按钮，其结果为_。（分数：2.50）A.把字符串“AAAA”添加到列表框中，但位置不能确定B.把字符串“AAAA”添加到列表框的最后(即“Item 3”的后面)C.把列表框中原有的最后一项改为“AAAA”D.把字符串“AAAA”插入到列表框的最前面(即“Item 1”的前面)20.假定有如下事件过程： Private Sub Form Click() Dim x As Integer, n As Integer x=1 n=0 Do While x28
10、 x=x*3 n=n+1 Loop Print x, n End Sub 程序运行后，单击窗体，输出结果是_。（分数：2.50）A.81 4B.56 3C.28 1D.243 521.有如下程序： Private Sub Form_Click() Dim Check, Counter Check=True Counter=0 Do Do While Counter20 Counter=Counter+1 If Counter=10 Then Check=False Exit Do End If Loop Loop Until Check=False Print Counter, Check E
11、nd Sub 程序运行后，单击窗体，输出结果为_。（分数：2.50）A.15 0B.20 -1C.10 TrueD.10 False22.有如下程序： Private Sub Form_Click() Dim i As Integer, sum As Integer sum=0 For i=2 To 10 If i Mod 20 And i Mod 3=0 Then sum=sum+i End If Next i Print sum End Sub 程序运行后，单击窗体，输出结果为_。（分数：2.50）A.12B.30C.24D.1823.在窗体上画一个名称为 Text1 的义本框和一个名称为
12、 Command1 的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() Dim arrayl(10,10)As Integer Dim i As Integer, j As Integer For i=1 To 3 For J=2 To 4 arrayl(i, j)=i+j Next j Next i Text1.Text=array1(2, 3)+array1(3,4) End Sub 程序运行后，单击命令按钮，在文本框中显示的值是_。（分数：2.50）A.12B.13C.14D.1524.在窗体上画一个命令按钮，其名称为 Command1，然后编写
13、如下事件过程： Private Sub Command1_Click() Dim a1(4,4),a2(4,4) For i=1 To 4 For j=1 To 4 al(i,j)=i+j a2(i,j)=a1(i,j)+i+j Next j Next i Print a1(3,3);a2(3,3) End Sub 程序运行后，单击命令按钮，在窗体上输出的是_。（分数：2.50）A.6 6B.10 5C.7 21D.6 1225.有如下程序： Option Base 1 Private Sub Form_Click() Dim arr,Sum Sum=0 art=Array(1,3,5.7,9
14、,11,13,15,17,19) For i=1 To 10 If arr(i)/3=arr(i)/3 Then Sum=Sum+arr(i) End If Next i Print Sum End Sub 程序运行后，单击窗体，输出结果为_。（分数：2.50）A.25B.26C.27D.2826.在窗体上画一个命令按钮，然后编写如下事件过程： Private Sub Command1_Click() Dim a(5)As String For i=1 To 5 a(i)=Chr(Asc(“A“)+(i-1) Next i For Each b In a Print b; Next End S
15、ub 程序运行后，单击命令按钮，输出结果是_。（分数：2.50）A.ABCDEB.1 2 3 4 5C.abcdeD.出错信息27.以下关于函数过程的叙述中，正确的是_。（分数：2.50）A.如果不指明函数过程参数的类型，则该参数没有数据类型B.函数过程的返回值可以有多个C.当数组作为函数过程的参数时，既能以传值方式传递，也能以引用方式传递D.函数过程形参的类型与函数返回值的类型没有关系28.函数过程 F1 的功能是：如果参数 b 为奇数，则返回值为 1，否则返回值为 0。以下能正确实现上述功能的代码是_。（分数：2.50）A.Function F1(b As Integer)If b Mod
16、 2=0 ThenReturn 0ElseReturn 1End IfEnd FunctionB.Function F1(b As Integer)If b Mod 2=0 ThenF1=0ElseF1=1End IfEnd FunctionC.Function F1(b As Integer)If b Mod 2=0 ThenF1=1ElseF1=0End IfEnd FunctionD.Function F1(b As Integer)If b Mod 20 ThenReturn 0ElseReturn 1End IfEnd Function29.以下关于 KeyPress 事件过程中参数
17、 KeyAscii 的叙述中正确的是_。（分数：2.50）A.KeyAscii 参数是所按键的 ASCII 码B.KeyAscii 参数的数据类型为字符串C.KeyAscii 参数可以省略D.KeyAscii 参数是所按键上标注的字符30.设窗体上有一个名为 Text1 的文本框，并编写如下程序： Private Sub Form_Load() Show Text1.Text=“ Text1.SetFocus End Sub Private Sub Form_MouseUp(Button As Integer, _ Shift As Integer, X As Single, Y As Sin
18、gle) Print“程序设计“ End Sub Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer) Print “Visual Basic“; End Sub 程序运行后，如果在文本框中输入字母“a”，然后单击窗体，则在窗体上显示的内容是_。（分数：2.50）A.Visual BasicB.程序设计C.Visual Basic 程序设计D.a 程序设计31.假定有下表所列的菜单结构： 标题 名称 层次 显示 appear 1(主菜单) 大图标 bigicon 2(子菜单) 小图标 smallicon 2(子菜单) 要
19、求程序运行后，如果单击菜单项“大图标”，则在该菜单项前添加一个“”。以下正确的事件过程是_。（分数：2.50）A.Private Sub bigicon_Click()bigicon.Checked=FalseEnd SubB.Private Sub bigicon_Click()Me.appear.bigicon.Checked=TrueEnd SubC.Private Sub bigicon_Click()bigicon.Checked=TrueEnd SubD.Private Sub bigicon_Click()appear.bigicon.Checked=TrueEnd Sub32.
20、假定通用对话框的名称为 CommonDialog1，命令按钮的名称为 Command1，则单击命令按钮后，能使打开的对话框的标题为“New Title”的事件过程是_。（分数：2.50）A.Private Sub Command1_Click()CommonDialog1.DialogTitle=“New Title“CommonDialog1.ShowPrinterEnd SubB.Private Sub Command1_Click()CommonDialog1.DialogTitle=“New Title“CommonDialog1.ShowFontEnd SubC.Private Su
21、b Coramand1_Click()CommonDialog1.DialogTitle=“New Title“CommonDialog1.ShowOpenEnd SubD.Private Sub Command1_Click()CommonDialog1.DialogTitle=“New Title“CommonDialog1.ShowColorEnd Sub33.如果一个工程含有多个窗体及标准模块，则以下叙述中错误的是_。（分数：2.50）A.任何时刻最多只有一个窗体是活动窗体B.不能把标准模块设置为启动模块C.用 Hide 方法只是隐藏一个窗体，不能从内存中清除该窗体D.如果 T 程中含
22、有 Sub Main 过程，则程序一定首先执行该过程34.假定在工程文件中有一个标准模块，其中定义了如下记录类型： Type Books Name As String*10 TelNum As String*20 End Type 要求当执行事件过程 Command1_Click 时，在顺序文件 Person.txt 中写入一条记录。下列能够完成该操作的事件过程是_。（分数：2.50）A.Private Sub Command1_Click()Dim B As BooksOpen “c:/Person.txt“ For Output As #1.Name=InputBox(“输入姓名“).Te
23、lNum=inputBox(“输入电话号码“)Write#1, .Name, .TelNumClose #1End SubB.Private Sub Command1_Click()Dim B As BooksOpen “c:/Person.txt“ For Input As #1.Name=InputBox(“输入姓名“).TelNum=InputBox(“输入电话号码“)Print#1, .Name, .TelNumClose #1End SubC.Private Sub Command1_Click()Dim B As BooksOpen “c:/Person.txt“ For Outp
24、ut As #1Name=InputBox(“输入姓名“)TelNum=InputBox(“输入电话号码“)Write #1,BClose #1End SubD.Private Sub Command1_Click()Dim B As BookOpen “c:/Person.txt“ For Input As #1Name=InputBox(“输入姓名“)TelNum=InputBox(“输入电话号码“)Print #1, .Name, .TelNumClose #1End Sub35.目录列表框的 Path 属性的作用是_。（分数：2.50）A.显示当前驱动器或指定驱动器上的某目录下的文件名
25、B.显示当前驱动器或指定驱动器上的目录结构C.显示根目录下的文件名D.显示指定路径下的文件36.要对顺序文件进行写操作，下列打开文件语句中正确的是_。（分数：2.50）A.Open “file1.txt“ for Output As #1B.Open “file1.txt“ for Input As #1C.Open “file1.txt“ for Random As #1D.Open “file1.txt“ for Binary As #137.在窗体上画一个命令按钮，名称为 Command1，然后编写如下程序： Private Sub Command1_Click() Dim a As I
26、nteger, b As Integer do while b100 b=b+5 a=a+b if b20 then exit do Loop Print a,b End Sub 程序运行后，如果单击命令按钮，则在窗体上显示的内容是_。（分数：2.50）A.50 20B.75 25C.50 25D.75 2038.在窗体上画一个命令按钮，名称为 Command1。然后编写如下程序： Private Sub Command1_Click() Dim a As Integer, b As Integer b=1 for a=1 To 100 if b=10 then exit for if b M
27、od 3=1 then b=b+3 End if Next a Print a End Sub 在命令按钮上单击后，窗体上显示的结果是_。（分数：2.50）A.101B.6C.5D.439.已知通用对话框名为 Cdlg，则执行下列的语句，将弹出“另存为”对话框。（分数：2.50）A.Cdlg.ShowOpenB.Cdlg.ShowSaveC.Cdlg.ShowSaveAsD.ShowSave Cdlg40.列表框用于列出可供用户选择的项目列表，下列_属性用来存放所有的列表项。（分数：2.50）A.ListB.ListCountC.ListindexD.Columns二级 VISUAL+BASI
28、C-73 答案解析(总分：100.00，做题时间：90 分钟)一、选择题(总题数：40，分数：100.00)1.下列叙述中正确的是_。（分数：2.50）A.程序设计就是编制程序B.程序的测试必须由程序员自己去完成C.程序经调试改错后还应进行再测试 D.程序经调试改错后不必进行再测试解析：解析 程序调式修改后可能引入新的错误所以必须进行重新测试，以保证程序的正确性。2.下列数据结构中，能用二分法进行查找的是_。（分数：2.50）A.顺序存储的有序线性表 B.线性链表C.二叉链表D.有序线性链表解析：解析 二分法是通过每次将待查元素与线性表的中间项比较，逐步缩小查找范围，直到查找结束的查找方法，因
29、此只适用于顺序存储的有序线性表。3.下列关于栈的描述正确的是_。（分数：2.50）A.在栈中只能插入元素而不能删除元素B.在栈中只能删除元素而不能插入元素C.栈是特殊的线性表，只能在一端插入或删除元素 D.栈是特殊的线性表，只能在一端插入元素，而在另一端删除元素解析：解析 可以根据栈的定义得到答案。栈是一种“后进先出”的线性表，只能在一端进行插入或删除操作。4.下列叙述中正确的是_。（分数：2.50）A.一个逻辑数据结构只能有一种存储结构B.数据的逻辑结构属于线性结构，存储结构属于非线性结构C.一个逻辑数据结构可以有多种存储结构，且各种存储结构不影响数据处理的效率D.一个逻辑数据结构可以有多种
30、存储结构，且各种存储结构影响数据处理的效率 解析：解析 数据结构包括逻辑结构和存储结构。逻辑结构表示数据间逻辑关系的数据结构。存储结构是指数据在计算机存储空间中的物理关系，一个逻辑数据结构可以有多种储存结构，而不同的存储结构的数据处理效率是不同的。5.下列描述中正确的是_。（分数：2.50）A.软件工程只是解决软件项目的管理问题B.软件工程主要解决软件产品的生产率问题C.软件工程的主要思想是强调在软件开发过程中需要应用工程化原则 D.软件工程只是解决软件开发中的技术问题解析：解析 软件工程的定义是试图用工程、科学和数学的原理与方法研制、维护计算机软件的有关技术及管理方法。其主要强调了软件开发过
31、程中应用工程化原则的重要性。6.在软件设计中，不属于过程设计工具的是_。（分数：2.50）A.PDL(过程设计语言)B.PAD 图C.N-S 图D.DFD 图 解析：解析 DFD 图是描述数据处理过程的工具。7.下列叙述中正确的是_。（分数：2.50）A.软件交付使用后还需要进行维护 B.软件一旦交付使用就不需要再进行维护C.软件交付使用后其生命周期就结束D.软件维护是指修复程序中被破坏的指令解析：解析 软件交付使用并不代表软件生命周期的终结，还需要对软件进行不断的维护，根据新提出的需求进行必要而且可能的扩充和删改。8.数据库设计的根本目标是要解决_。（分数：2.50）A.数据共享问题 B.数
32、据安全问题C.大量数据存储问题D.简化数据维护解析：解析 数据库设计的基本任务是根据用户对象的信息需求、处理需求和数据库的支持环境设计出数据模式，解决数据的共享问题。9.设有如下关系表： （分数：2.50）A.T=RSB.T=RS C.T=RSD.T=R/S解析：解析 10.数据库系统的核心是_。（分数：2.50）A.数据模型B.数据库管理系统 C.数据库D.数据库管理员解析：解析 数据模型是对数据特征的抽象，从抽象层次上描述了系统的静态特征、动态特征和约束条件，为数据库系统的信息表示与操作提供一个抽象的框架，包括数据结构、数据操作和数据约束三部分；数据库管理系统是数据库的机构，它是一种系统软
33、件，负责数据库中的数据组织、数据操纵、数据维护、控制及保护和数据服务等；数据库管理员是对数据库进行规划、设计、维护、监视等管理专业人才；数据库系统由数据库、数据库管理系统、数据库管理员、硬件平台和软件平台五部分组成，这五部分构成一数据库为核心的完整的运行实体。11.假定一个 Visual Basic 应用程序由一个窗体模块和一个标准模块构成。为了保存该应用程序，以下正确的操作是_。（分数：2.50）A.只保存窗体模块文件B.分别保存窗体模块、标准模块和工程文件 C.只保存窗体模块和标准模块文件D.只保存工程文件解析：解析 在 Visual Basic 中，一个应用程序通常只有一个窗体，但有时为
34、了程序的需要会增加窗体个数或标准模块等，如果要保存该程序通常要分别保存窗体模块、标准文件等模块和工程文件。如果要打开陔程序，只需打开该工程文件，则与该工程有关的窗体或模块文件会自动打开。12.为了清除窗体上的一个控件，下列正确的操作是_。（分数：2.50）A.按 Enter 键B.按 Esc 键C.选择(单击)要清除的控件，然后按 Del 键 D.选择(单击)要清除的控件，然后按 Enter 键解析：解析 在 Visual Basic 中，为了清除窗体上的一个控件，必须先把该控件变为活动控件，然后按Del 键，即可把该控件清除。13.以下叙述中错误的是_。（分数：2.50）A.打开一个工程文件
35、时，系统自动装入与该工程有关的窗体、标准模块等文件B.当程序运行时，双击一个窗体，则触发该窗体的 DblClick 事件C.Visual Basic 应用程序只能以解释方式执行 D.事件可以由用户引发，也可以由系统引发解析：解析 在 Visual Basic 中，打开一个工程时，系统会自动装入与该工程有关的窗体、标准模块等文件，因此选项 A 表述正确；当程序运行时，如果在窗体上双击会触发窗体的 DblClick 事件，因此选项B 表述正确；VisualBasic 程序既可以以解释方式执行，也可以以编译方式执行，所以选项 C 表述错误；事件既可以由用户引发，也可以由系统引发，故选项 D 表述正确
36、。14.设 a=2，b=3，c=4，d=5，下列表达式的值是_。 NOt a=c Or 4*c=b2 And ba+c（分数：2.50）A.-1B.1C.TrueD.False 解析：解析 在 Visual Basic 中，运算符的运算顺序是：首先进行函数运算，接着进行算术运算，其次为幂、取负乘或浮点除、整除、取模、加减、连接，然后进行关系运算，最后进行逻辑运算。逻辑运算符优先级的顺序为：Not(非)And(与)Or(或)Xor(异或)Eqv(等价)Imp(蕴含)。因此“Not ac Or 4*c=b2 And ba+c”运算的结果为 False。15.设 a=5，b=10，则执行 c=Int
37、(b-a)*Rnd+a)+1 后，c 值的范围为_。（分数：2.50）A.510B.69C.610 D.59解析：解析 Rnd 随机函数的范围为(0，1)，Int 函数返回不大于自变量的最大整数，所以当 Rnd 乘上 5成为(0，5)，再加上 5 成为(5，10)，经取整后成为5，9，然后加 1 后成为6，10。16.在窗体上画一个命令按钮，名称为 Command1，然后编写如下事件过程： Private Sub Command1_Click() a$=“software and hardware“ b$=Right(a$,8) c$=Mid(a$,1,8) MsgBox a$,b$.C$,1
38、 End Sub 运行程序，单击命令按钮，则在弹出的信息框的标题栏中显示的是_。（分数：2.50）A.software and hardwareB.softwareC.hardware D.1解析：解析 MsgBox 语句即可以向用户传递信息，它有 5 个参数，其中第三个应该是一个字符串，用来显示对话框的标题，即 b$，Right()函数返回字符串右边指定长度的字符串，所以为“hardware”。17.在窗体上画一个命令按钮和一个文本框，其名称分别为 Command1 和 Text1，把文本框的 Text 属性设置为空白，然后编写如下事件过程： Private Sub Command1_Cli
39、ck() a=InputBox(“Enter an integer“) b=InputBox(“Enter an integer“) Text1.Text=b+a End Sub 程序运行后。单击命令按钮，如果在输入对话框中分别输入 8 和 10，则文本框中显示的内容是_。（分数：2.50）A.108 B.18C.810D.出错解析：解析 InputBox 函数可以产生一个对话框，这个对话框作为输入数据的界面，等待用户输入数据，并返回所输入的内容。存默认的情况下，该函数的返回值是一个字符串，所以在没有事先声明变量的类型的情况下。Visual Basic 总是将其按字符串来处理。“+”的作用是将
40、两个字符串连接，所以输出结果应为“108”。18.在窗体上画两个文本框，其名称分别为 Text1 和 Text2，然后编写如下程序： Private Sub Form_Load() Show Text1.Text=“ Text2.Text=“ Text1.SetFocus End Sub Private Sub Text1_Change() Text2.Text=Mid(Text1.Text,8) End Sub 程序运行后，如果在文本框 Text1 中输入 BeijingChina，则在文本框 Text2 中显示的内容是_。（分数：2.50）A.BeijingChinaB.China C.B
41、eijingD.BeijingC解析：解析 Mid 函数的作用是返回从指定位开始的指定长度的字符串，如果不指定长度，则从开始位置开始到右边所有字符。由于在该题目中只指定了开始的字符位置为“8”，而没有指定长度，故右边的字符将全部传给文本框 Text2。19.在窗体上画一个列表框和一个命令按钮，其名称分别为 List1 和 Command1，然后编写如下事件过程： Private Sub Form_Load() List1.AddItem “Item 1“ List1.AddItem “Item 2“ List1.AddItem “Item 3“ End Sub Private Sub Comm
42、and1_Click() List1.List(List1.ListCount)=“AAAA“ End Sub 程序运行后，单击命令按钮，其结果为_。（分数：2.50）A.把字符串“AAAA”添加到列表框中，但位置不能确定B.把字符串“AAAA”添加到列表框的最后(即“Item 3”的后面) C.把列表框中原有的最后一项改为“AAAA”D.把字符串“AAAA”插入到列表框的最前面(即“Item 1”的前面)解析：解析 列表框的 List 属性用来列出表项的内容，也可以改变数组中已有的值。列表框中表项的排列是从 0 开始，最后一项的序号为 ListCount-1。本程序的功能是：把字符串“AAA
43、A”添加到列表框的最后，但不改变 Item3 的值。20.假定有如下事件过程： Private Sub Form Click() Dim x As Integer, n As Integer x=1 n=0 Do While x28 x=x*3 n=n+1 Loop Print x, n End Sub 程序运行后，单击窗体，输出结果是_。（分数：2.50）A.81 4 B.56 3C.28 1D.243 5解析：解析 Do While-Loop 循环语句的判断条件为“x28”。循环语句“x=x*3”的作用是每循环一次将成为原数的三倍，而变量 n 用来记录循环次数，当循环三次后，x 得 27，
44、有 2728，再循环一次后x 得 81，有 8128，不再满足循环条件，此时 n 为 4。执行 Print 语句，输出 x 和 n 的值，即输出 81 和4。21.有如下程序： Private Sub Form_Click() Dim Check, Counter Check=True Counter=0 Do Do While Counter20 Counter=Counter+1 If Counter=10 Then Check=False Exit Do End If Loop Loop Until Check=False Print Counter, Check End Sub 程序运
45、行后，单击窗体，输出结果为_。（分数：2.50）A.15 0B.20 -1C.10 TrueD.10 False 解析：解析 变量 Check 的初值为 True，变量 Counter 的初值为 0。当 Counter9 时，Counter 每次循环加 1，直到等于 10 时，Check 的值为 Falsc，退出里层 Do_Loop 循环。当 Check=False 的计算结果为True 时，退出外层 Do-Loop 循环，在窗体上打印出 Counter 的值 10 和 Check 的值 False。22.有如下程序： Private Sub Form_Click() Dim i As Int
46、eger, sum As Integer sum=0 For i=2 To 10 If i Mod 20 And i Mod 3=0 Then sum=sum+i End If Next i Print sum End Sub 程序运行后，单击窗体，输出结果为_。（分数：2.50）A.12 B.30C.24D.18解析：解析 本题程序的功能是：将从 2 到 10 中既是奇数(i Mod 20)又是 3 的倍数(i Mod 3=0)的数，在 2 到 10 中满足条件的数字是 3，9，其和是 12。23.在窗体上画一个名称为 Text1 的义本框和一个名称为 Command1 的命令按钮，然后编写
47、如下事件过程： Private Sub Command1_Click() Dim arrayl(10,10)As Integer Dim i As Integer, j As Integer For i=1 To 3 For J=2 To 4 arrayl(i, j)=i+j Next j Next i Text1.Text=array1(2, 3)+array1(3,4) End Sub 程序运行后，单击命令按钮，在文本框中显示的值是_。（分数：2.50）A.12 B.13C.14D.15解析：解析 本题首先定义了一个整型数组 array1，然后用 For 循环嵌套语句给数组中的部分元素赋值
48、。从赋值语句“array1(i,j)=i+j”可以看出，元素的值等于下标之和。所以 Text1.Text=array1(2,3)+array1(3,4)=2+3+3+4=12，所以文本框中显示的值是 12。24.在窗体上画一个命令按钮，其名称为 Command1，然后编写如下事件过程： Private Sub Command1_Click() Dim a1(4,4),a2(4,4) For i=1 To 4 For j=1 To 4 al(i,j)=i+j a2(i,j)=a1(i,j)+i+j Next j Next i Print a1(3,3);a2(3,3) End Sub 程序运行后，单击命令按钮，在窗体上输出的是_。（分数：2.50）A.6 6B.10 5C.7 21D.6 12 解析：解析 本程序段首先定义了两个二维数组，然后通过 For 循环语句给其赋值。从循环体“a1(i,j)=i+j”可以看出，a1()数组的元素值即是下标之和，而循环体“a2(i,j)=a1(i,
