1、国家二级（VB）机试模拟试卷 184 及答案解析(总分：86.00，做题时间：90 分钟)一、选择题(总题数：40，分数：80.00)1.下列关于栈和队列的描述中，正确的是( )。（分数：2.00）A.栈是先进先出B.队列是先进后出C.队列允许在队头删除元素D.栈在栈顶删除元素2.已知二叉树后序遍历序列是 CDABE，中序遍历序列是 CADEB，它的前序遍历序列是( )。（分数：2.00）A.ABCDEB.ECABDC.EACDBD.CDEAB3.在数据流图中，带有箭头的线段表示的是( )。（分数：2.00）A.控制流B.数据流C.模块调用D.事件驱动4.结构化程序设计的 3 种结构是( )。
2、（分数：2.00）A.顺序结构，分支结构，跳转结构B.顺序结构，选择结构，循环结构C.分支结构，选择结构，循环结构D.分支结构，跳转结构，循环结构5.下列方法中，不属于软件调试方法的是( )。（分数：2.00）A.回溯法B.强行排错法C.集成测试法D.原因排除法6.下列选项中，不属于模块间耦合的是( )。（分数：2.00）A.内容耦合B.异构耦合C.控制耦合D.数据耦合7.下列特征中不是面向对象方法的主要特征的是( )。（分数：2.00）A.多态性B.标识惟一性C.封装性D.耦合性8.在数据库设计中，将 ER 图转换成关系数据模型的过程属于( )。（分数：2.00）A.需求分析阶段B.概念设计
3、阶段C.逻辑设计阶段D.物理设计阶段9.在一棵二叉树上，第 5 层的结点数最多是( )。（分数：2.00）A.8B.9C.15D.1610.下列有关数据库的描述，正确的是( )。（分数：2.00）A.数据库设计是指设计数据库管理系统B.数据库技术的根本目标是要解决数据共享的问题C.数据库是一个独立的系统，不需要操作系统的支持D.数据库系统中，数据的物理结构必须与逻辑结构一致11.Visual Basic 60 集成环境的主窗口中不包括( )。（分数：2.00）A.标题栏B.菜单栏C.状态栏D.工具栏12.在正确安装 Visual Basic 60 后，可以通过多种方式启动 Visual Bas
4、ic 60。以下方式中，不能启动 Visual Basic 60 的是( )。（分数：2.00）A.通过“我的电脑”找到 vb6.exe，双击该文件名B.进入 DOS 方式，执行 vb6.exe 文件C.通过“开始”菜单中的“运行”命令D.通过“开始”菜单中的“程序”命令13.下面 4 个选项中，不是窗体属性的是( )。（分数：2.00）A.UnLoadB.BorderStyleC.MinButtonD.Caption14.设计窗体时双击窗体的任何位置，将打开( )。（分数：2.00）A.窗口设计器B.代码窗口C.工具箱窗口D.属性窗口15.下面有关标准模块的叙述中，错误的是( )。（分数：2
5、.00）A.标准模块的文件扩展名为.basB.标准模块中的 Private 过程不能被工程中的其他模块调用C.标准模块不完全由代码组成，还可以有窗体D.标准模块中的全局变量可以被工程中的任何模块引用16.实现字符的 UniCode 编码方式与 ANSI 编码方式相互转换的函数是( )。（分数：2.00）A.StrB.StrConvC.TrimD.Mid17.若将变量 TestDate 声明为 Date 类型，则下列为变量 TestI)ate 赋值的语句中正确的是( )。（分数：2.00）A.TestDatedate(“112002“)B.TestDate#“112002“#C.TestDate
6、#112002#D.TestDateFormat(“mdyy“,“112002“)18.窗体 Form1 上有一个名称为 Command1 的命令按钮，以下对应窗体单击事件的事件过程是( )。（分数：2.00）A.Private Sub Form1_Click() End SubB.Private Sub Form_Click() End SubC.Private Sub Commaad1_Click() End SubD.Private Sub Command1_Click() End Sub19.下列程序段的执行结果为( )。 Form1Cls a“ABBACDDCBA“ For i6 T
7、o 2 Step2 xMid(a，i，i)：yLeft(a，i) zRight(a，i)：zx&Y&z Next i Print z（分数：2.00）A.ABCB.BBABBAC.ABBABAD.AABAAB20.不能正确表示条件“两个整型变量 A 和 B 之一为 0，但不能同时为 0”的布尔表达式是( )。（分数：2.00）A.A*B0 andAB0B.(A0 or B0)and(A0 or B0)C.not(A0 And B0)ana(A0 or B0)D.A*B0 and(A0 or B0)21.在窗体(Name 属性为 Form1)上画两个文本框(Name 属性分别为 Text1 和
8、Text2)和一个命令按钮(Name属性为 Command1)，然后编写如下两个事件过程( )。 Private Sub Command1_Click() aText1.TextText2.Text Print a End Sub Private Sub Form_Load() Text1.Text“：Text2Text“ End Sub 程序运行后，在第一个文本框(Text1)和第二个文本框(Text2)中分别输入 123 和 321，然后单击命令按钮，则输出结果为( )。（分数：2.00）A.444B.321123C.123321D.13223122.组合框是文本框和( )特性的组合。（分
9、数：2.00）A.复选框B.标签C.列表框D.目录列表框23.已知文本框的 ScrollBars 属性设置为 3，却看不到任何效果，原因是( )。（分数：2.00）A.文本框中没有内容B.文本框的 Locked 属性值为 TrueC.文本框的 MultiLine 属性值为 FalseD.文本框的 MultiLine 属性值为 True24.下面哪个属性不是框架控件的属性( )。（分数：2.00）A.CaptionB.LeftC.TextD.Enabled25.复选框是否被选中，取决于复选框的( )。（分数：2.00）A.Enabled 属性B.Value 属性C.Checked 属性D.Vis
10、ible 属性26.窗体如图所示。要求程序运行时，在文本框 Text1 中输入一个姓氏，单击“删除”按钮(名称为Command1)，则可删除列表框 List1 中所有该姓氏的项目。若编写以下程序来实现此功能： （分数：2.00）A.For k1 To List1.ListCount-1B.For k1 To List1.ListCountC.For k0 To List1.ListCountD.For kList1.ListCount-1 To 0 Step-127.窗体上有 1 个名为 List1 的列表框，其中已经输入了若干个项目(如图所示)；还有 2 个文本框，名称分别为 Text1、T
11、ext2，1 个名称为 Command1 的命令按钮，并有以下程序。 （分数：2.00）A.京B.北京南京C.南京北京D.没有匹配的项目28.设置定时器控件的 Interval 属性为 2000，Enabled 属性为 True，并且有下面的事件过程，程序运行时计算机将发出( )次 Beep 声。 Sub Timer1_Timer() Beep End Sub（分数：2.00）A.0B.2000C.1D.以上都不对29.下列程序的输出结果为( )。 S1“1“：S2“2“：S1Val(S1)Val(S2) S2Val(“12“) If S1S2 Tllen Print S1-S2 Else P
12、rint S2-S1（分数：2.00）A.9B.9C.12D.030.在窗体上有一个名称为 Label1 的标签和一个名称为 Timer1 的计时器，并编写有如下几个事件过程： Private Sub Form_Load() Timer1.EnabledFalse Timer1.Interval End Sub Private SubForm_Click() Timer1.Enabled_ End Sub Private Sub Timer1_Timer() Labe11.Caption_ End Sub 程序运行后，单击窗体，将在标签中显示当前时间，每隔 1s 钟变换一次，在横线处应填写(
13、)。（分数：2.00）A.1000 True Time$()B.100 True Time$()C.1000 False Time$()D.100 False Time$()31.下列程序段的执行结果为( )。 xInt(Rnd4) Select Case x Case 5：Print“A Class“ Case 4：Print“B Class“ Case 3：Print“C Class“ Case Else：Print“D Class“ End Select（分数：2.00）A.A ClassB.B ClassC.C ClassD.D Class32.有如下程序： Private Sub F
14、orm_Click() Dim i As Integer，sum As Integer sum0 For i2 To 10 Ifi Mod 20 And i Mod 30 Then sumsumi End If Next i Print sum End Sub 程序运行后，单击窗体，输出结果为( )。（分数：2.00）A.24B.30C.12D.1833.下列程序段的执行结果为( )。 a0：b1 Do aab：bb1 Loop While a10 Printa：b（分数：2.00）A.10 30B.a bC.0 1D.10 534.某人编写了下面的程序，希望能把 Text1 文本框中的内容写
15、到 Temptxt 文件中 Private Sub Command1_Click() Open“Telnptxt“For Output As #2 Print“Text1“ Close#2 End Sub 调试时发现没有达到目的，为实现上述目的，应做的修改是( )。（分数：2.00）A.把所有#2 改为#1B.把 Print“Text1“改为 Print#.Text1C.把 Print“Text1改为 Write“Text1“D.把 Print“Text1“改为 Print Text135.Fibonaeei 数列的规律是：前 2 个数为 1，从第 3 个数开始，每个数是它前 2 个数之和，即
16、：1，1，2，3，5，8，13，21，34，55，89，。某人编写了下面的函数，判断大于 1 的整数 X 是否是Fibonacci 数列中的某个数，若是，则返回 True，否则返回 False。 Function Isfab(x As Integer)As Boolean Dim aAs Integer,bAs Integer,cAs Integer, tlagAs Boolean flagFalse a1：b1 Do While xb Cab：ab：bc If xb Then flagTrue Loop Isfabflag End Function 测试时发现对于所有正整数 x，函数都返回
17、False，程序需要修改。下面的修改方案中正确的是( )。（分数：2.00）A.把 ab 与 bc 的位置互换B.把 cab 移到 bc 之后C.把 Do While xb 改为 Do While xbD.把 If xb Then flagTrue 改为 Ifxa Then flagTrue36.窗体上有一个名称为 Optiord 的单选按钮数组，程序运行时，当单击某个单选按钮时，会调用下面的事件过程 Private Sub Option1_Click(Index As Integer) End Sub 下面关于此过程的参数 Index 的叙述中正确的是( )。（分数：2.00）A.Index
18、 的值可正可负B.Index 的值用来区分哪个单选按钮被选中C.Index 表示数组中单选按钮的数量D.Index 为 1 表示单选按钮被选中，为 0 表示未选中37.以下叙述中正确的是( )。（分数：2.00）A.一个 Sub 过程至少要有一个 Exit Sub 语句B.一个 Sub 过程必须有一个 End Sub 语句C.可以在 Sub 过程中定义一个 Function 过程，但不能定义 Sub 过程D.调用一个 Function 过程可以获得多个返回值38.设有如下过程： Private Sub Form_KeyDown(KeyCode As Integer,Shift As Integ
19、er) Print Chr(KeyCode) End Sub Private Sub Forrn_KeyUp(KeyCode As Integer, Shift As Integer) Print Chr(KeyCode2) End Sub 若把窗体的 KeyPreview 属性设置为 True，程序运行后，如果按“A”键，则输出结果为( )。（分数：2.00）A.A AB.A BC.A CD.A D39.在窗体上画 1 个命令按钮，名称为 Command1，然后编写如下程序： Dim Flag As Boolean Private Sub Command1 Click() Dim intNu
20、m As Integer intNumInputBox(“请输入：“) If Flag Then Print f(intNum) End If End Sub Function f(X as Integer)As Integer If X10 Then YX Else YX10 End If fY End Function Private Sub Form_MouseUp(Button As Integer,Shift As Integer,X as Single，Y As Single) FlagTrue End Sub 运行程序，首先单击窗体，然后单击命令按钮，在输入对话框中输入 5，则程
21、序的输出结果为( )。（分数：2.00）A.0B.5C.15D.无任何输出40.在窗体上画一个驱动器列表框、一个目录列表框和一个文件列表框，其名称分别为 Drive1、Dir1 和File1，为了使它们同步操作，必须触发驱动器的 Change 事件和目录的 Change 事件，在这两个事件中执行的语句分别为( )。（分数：2.00）A.File1.PathDrive1.Drive 和 File1.PathDir1.PathB.Dir1.PathDrive1.Drive 和 File1.PathDir1.PathC.Dir1.PathDir1.Path 和 File1.PathDriVe1.Dr
22、iveD.Dir1.PathDrive1.Path 和 File1.PathDir1.Path二、基本操作题(总题数：1，分数：2.00)41.请根据以下各小题的要求设计 Visual Basic 应用程序(包括界面和代码)。 (1)在名称为 Form1，标题为“图书”的窗体上画 1 个名称为 Cmb1 的下拉式组合框。下拉列表中有“少儿读物”“传记文学”和“武侠小说”3 个表项内容。运行后的窗体如错误!未找到 引用源。如图 314 所示。 注意：存盘时必须存放在考生文件夹下，工程文件名为 sjt1vbp，窗体文件名为 sjt1frm。 (2)在名称为 Form1的窗体上，画 1 个能根据标题
23、内容自动调整大小的标签，其名称为 Label1，标题为 Visual Basic，字号为 14 号字。再画 2 个名称分别为 Command1、Command2，标题分别为“放大”“缩小”的命令按钮。效果如图 315 所示。 （分数：2.00）_三、简单应用题(总题数：1，分数：2.00)42.(1)在考生文件夹中有工程文件 sil3vbp，程序界面如图 33 所示。当在文本框中输入正整数 N，单击“计算”命令按钮，进行计算。若 N 是奇数，计算 13!5!N!，若 N 是偶数，计算13!5!(N1)!。在给出的窗体文件中已经有了全部控件，但程序不完整，要求去掉程序中的注释符，把程序中的?改为
24、正确的内容。 注意：考生不得修改窗体文件中已经存在的程序。最后程序按原文件名存盘。 (2)在考生文件夹下有一个工程文件 sjt4vbp，该程序的功能是显示月历。运行程序后，在 Text1、Text2 中分别输入年份和月份，并在左边的框架中选择该年的 1 月 1 日是星期几，然后单击“显示月历”按钮，即可在下面的图片框内显示该年该月的月历。如图 34 所示的是 2008 年 2 月份的月历。请将事件过程中的注释符去掉，把“?”改为正确的内容，以实现上述程序功能。 （分数：2.00）_四、综合应用题(总题数：1，分数：2.00)43.为了验证一个正整数 n(n3)是否为素数，最直观的方法是，看在
25、2n2 范围内能否找到一个整数m 将 n 整除，若 m 存在，则 n 不是素数；若找不到 m，则 n 为素数。在考生文件夹下有一个工程文件sjt5vbp，其窗体上有 1 个名称为 Text1 的文本框。请根据上面的算法，编写判断一个正整数是否为素数的函数 prime，然后用这个函数找出 200300 之间的所有素数，求出这些素数的和，将该数在文本框中显示出来，并存入文件 out5txt 中。 要求：编写函数 prime 的代码，然后在 Form Click 事件过程中调用该函数，并计算素数的和。事件过程中已给出了把素数和保存到文件中的代码，考生不得修改。 注意：请务必把求得的和在文本框中显示出
26、来，这样才能存入文件 out5txt，否则没有成绩。（分数：2.00）_国家二级（VB）机试模拟试卷 184 答案解析(总分：86.00，做题时间：90 分钟)一、选择题(总题数：40，分数：80.00)1.下列关于栈和队列的描述中，正确的是( )。（分数：2.00）A.栈是先进先出B.队列是先进后出C.队列允许在队头删除元素D.栈在栈顶删除元素 解析：解析：栈实际也是线性表，只不过是一种特殊的线性表。栈是只能在表的一端进行插入和删除运算的线性表，通常称插入、删除的这一端为栈顶，另一端为栈底。队列是只允许在一端删除，在另一端插入的顺序表，允许删除的一端称作队头，允许插入的一端称作队尾。2.已知
27、二叉树后序遍历序列是 CDABE，中序遍历序列是 CADEB，它的前序遍历序列是( )。（分数：2.00）A.ABCDEB.ECABDC.EACDB D.CDEAB解析：解析：由于后序遍历的最后一个元素为 E，所以 E 为根结点，所以它的前序遍历的首个元素为 E，故排除 A 和 D 选项。由于中序遍历中，元素 B 在元素根结点 E 的后面，所以 B 为二叉树的右子树，并且该二叉树右子树只有一个元素，所以前序遍历的最后一个元素应为 B，故选项 C 为正确选项，即该二叉树的前序遍历序列是 EACDB。3.在数据流图中，带有箭头的线段表示的是( )。（分数：2.00）A.控制流B.数据流 C.模块调
28、用D.事件驱动解析：解析：数据流图中带箭头的线段表示数据流，沿箭头方向传递数据的通道，一般在旁边标注数据流名。4.结构化程序设计的 3 种结构是( )。（分数：2.00）A.顺序结构，分支结构，跳转结构B.顺序结构，选择结构，循环结构 C.分支结构，选择结构，循环结构D.分支结构，跳转结构，循环结构解析：解析：程序设计语言仅仅使用顺序、选择和重复(循环)三种基本控制结构就足以表达出各种其他形式结构的程序设计方法。遵循程序结构化的设计原则，按结构化程序设计方法设计出的程序易于理解、使用和维护；可以提高编程工作的效率，降低软件的开发成本。5.下列方法中，不属于软件调试方法的是( )。（分数：2.0
29、0）A.回溯法B.强行排错法C.集成测试法 D.原因排除法解析：解析：软件调试主要采用以下三种方法：强行排错法：作为传统的调试方法，其过程可概括为设置断点、程序暂停、观察程序状态、继续运行程序。回溯法：该方法适合于小规模程序的排错、即一旦发现了错误，先分析错误征兆，确定最先发现“症状”的位置。原因排除法：原因排除法是通过演绎和归纳，以及二分法来实现。6.下列选项中，不属于模块间耦合的是( )。（分数：2.00）A.内容耦合B.异构耦合 C.控制耦合D.数据耦合解析：解析：耦合可以分为下列几种，它们之间的耦合度由高到低排列： 内容耦合一一若一个模块直接访问另一模块的内容，则这两个模块称为内容耦合
30、。 公共耦合一一若一组模块都访问同一全局数据结构，则称为公共耦合。 外部耦合一一若一组模块都访问同一全局数据项，则称为外部耦合。 控制耦合一一若一模块明显地把开关量、名字等信息送入另一模块，控制另一模块的功能，则称为控制耦合。 标记耦合一一若两个以上的模块都需要其余某一数据结构的子结构时，不使用其余全局变量的方式而全使用记录传递的方式，这样的耦合称为标记耦合。 数据耦合一一若一个模块访问另一个模块，被访问模块的输入和输出都是数据项参数，则这两个模块为数据耦合。 非直接耦合若两个模块没有直接关系，它们之间的联系完全是通过程序的控制和调用来实现的，则称这两个模块为非直接耦合，这样的耦合独立性最强。
31、7.下列特征中不是面向对象方法的主要特征的是( )。（分数：2.00）A.多态性B.标识惟一性C.封装性D.耦合性 解析：解析：面向对象设计方法与面向过程设计方法有本质的不同，其基本原理是：使用现实世界的概念抽象地思考问题从而自然地解决问题。其特点包括：标识惟一性、多态性、封装性、模块独立性、继承和多态组合使用。8.在数据库设计中，将 ER 图转换成关系数据模型的过程属于( )。（分数：2.00）A.需求分析阶段B.概念设计阶段C.逻辑设计阶段 D.物理设计阶段解析：解析：逻辑结构设计的任务：概念结构是各种数据模型的共同基础，为了能够用某一 DBMS 实现用户需求，还必须将概念结构进一步转化为
32、相应的数据模型，这正是数据库逻辑结构设计所要完成的任务。它包括从 ER 图向关系模式转换和逻辑模式规范化及调整、实现。9.在一棵二叉树上，第 5 层的结点数最多是( )。（分数：2.00）A.8B.9C.15D.16 解析：解析：根据二叉树的性质：二叉树第 i(i1)层上至多有 2 i-1 个结点。得到第 5 层的结点数最多是 16 个。10.下列有关数据库的描述，正确的是( )。（分数：2.00）A.数据库设计是指设计数据库管理系统B.数据库技术的根本目标是要解决数据共享的问题 C.数据库是一个独立的系统，不需要操作系统的支持D.数据库系统中，数据的物理结构必须与逻辑结构一致解析：解析：数据
33、库设计的目的实质上是设计出满足实际应用需求的实际关系模型。数据库技术的主要目的是有效地管理和存取大量的数据资源，包括：提高数据的共享性，使多个用户能够同时访问数据库中的数据；减小数据的冗余，以提高数据的一致性和完整性；提供数据与应用程序的独立性，从而减少应用程序的开发和维护代价。11.Visual Basic 60 集成环境的主窗口中不包括( )。（分数：2.00）A.标题栏B.菜单栏C.状态栏 D.工具栏解析：解析：Visual Basic 60 集成环境的主窗口也称为设计窗口，它位于集成环境的顶部，该窗口由标题栏、菜单栏和工具栏组成。12.在正确安装 Visual Basic 60 后，可
34、以通过多种方式启动 Visual Basic 60。以下方式中，不能启动 Visual Basic 60 的是( )。（分数：2.00）A.通过“我的电脑”找到 vb6.exe，双击该文件名B.进入 DOS 方式，执行 vb6.exe 文件 C.通过“开始”菜单中的“运行”命令D.通过“开始”菜单中的“程序”命令解析：解析：本题考查 VB60 环境的启动。正确安装了 VB 以后，最常用的启动模式是通过“开始”菜单，选择“程序”命令，启动 Visual Basic 的程序；如果“开始”菜单没“启动”文件，则可在硬盘中寻找VB 安装文件夹，找到 VB6exe 可执行文件，双击运行；如果了解运行路径
35、，则可在“运行”中直接输入可执行文件名，即可运行。注意：VB6exe 是 Windows 下的应用软件，不能脱离 Windows 操作系统运行。13.下面 4 个选项中，不是窗体属性的是( )。（分数：2.00）A.UnLoad B.BorderStyleC.MinButtonD.Caption解析：解析：本题考查窗体的常见属性和事件。进入 VB 编程环境后，自动加载一个名为 Form1 的窗体，可以在属性窗口中设置其常用属性，例如 BorderStyle 设置窗体的边框，MinButton 设置最小化按钮是否显示，Caption 可设置窗体的标题。UnLoad 是卸载方法(或事件)，可以卸载
36、当前窗体或控件数组。14.设计窗体时双击窗体的任何位置，将打开( )。（分数：2.00）A.窗口设计器B.代码窗口 C.工具箱窗口D.属性窗口解析：解析：本题考查 VB 的窗口特性。VB60 运行环境为设计 VB 源程序提供了若干常用的窗口。从窗体窗口中用鼠标双击一个控件或者窗体本身，或者在工程窗口中选择查看代码，或者从“视图”菜单中选择“代码窗口”命令，均可以打开代码窗口。其他的窗口可以利用“视图”菜单，或者从工具栏中直接打开。15.下面有关标准模块的叙述中，错误的是( )。（分数：2.00）A.标准模块的文件扩展名为.basB.标准模块中的 Private 过程不能被工程中的其他模块调用C
37、.标准模块不完全由代码组成，还可以有窗体 D.标准模块中的全局变量可以被工程中的任何模块引用解析：解析：标准模块是只含有程序代码的应用程序文件，其扩展名为.bas。标准模块是应用程序内其它模块可访问的过程和声明的容器，它们可以包含变量、常数、类型、外部过程和全局过程的全局(在整个应用程序范围内有效的)声明或模块级声明，它由 3 部分组成：全局变量声明；模块层声明；通用过程。 其中，全局声明放在标准模块的顶部，因为每个模块都可能要求有它自己的惟一名字的全局变量。全局变量的作用域最大，可以在工程的每个模块、每个过程中使用。在默认情况下，模块级变量对该模块中的所有过程都是可见的，但对其他模块中的代码
38、不可见。16.实现字符的 UniCode 编码方式与 ANSI 编码方式相互转换的函数是( )。（分数：2.00）A.StrB.StrConv C.TrimD.Mid解析：解析：Str 函数用于返回由 n 个指定字符组成的字符串，第二个自变量可以是 ASCII 码，也可以是字符串，其函数格式为：Str(n，ASCI 码)、Sm(n，字符串)；StrConv 函数用于实现 ANSI 与 UniCode 两个编码方式之间的转换，其函数格式为：新字符串StrConv(待转换字符串，转换格式)；Trim 函数用于去掉字符串两边的空白字符，其函数格式为 Trim(字符串)；Mid 函数用于从第 n 个字
39、符开始，向后截取 m 个字符，其函数格式为：Mid(字符串,n,m)。17.若将变量 TestDate 声明为 Date 类型，则下列为变量 TestI)ate 赋值的语句中正确的是( )。（分数：2.00）A.TestDatedate(“112002“)B.TestDate#“112002“#C.TestDate#112002# D.TestDateFormat(“mdyy“,“112002“)解析：解析：本题考查 VB 中 Date 型数据的书写格式。所有日期型数据有两种写法，其一是利用号码符(#)，把字面上认可的日期型括起来；其二是以数字序列表示。选项 A 括起的号码符不正确，选项 B
40、中“112002“”为字符型数据，系统不会认为是日期，选项 C 是正确的，选项 D 中 Format 函数的调用格式为：Format(“Data“,“格式”)。18.窗体 Form1 上有一个名称为 Command1 的命令按钮，以下对应窗体单击事件的事件过程是( )。（分数：2.00）A.Private Sub Form1_Click() End SubB.Private Sub Form_Click() End Sub C.Private Sub Commaad1_Click() End SubD.Private Sub Command1_Click() End Sub解析：解析：窗体的单
41、击事件不同于其他控件的单击事件，在事件过程头中不出现窗体名字，而是统一使用 Form_Clickl()。19.下列程序段的执行结果为( )。 Form1Cls a“ABBACDDCBA“ For i6 To 2 Step2 xMid(a，i，i)：yLeft(a，i) zRight(a，i)：zx&Y&z Next i Print z（分数：2.00）A.ABCB.BBABBA C.ABBABAD.AABAAB解析：解析：本题考查字符串函数。字符串函数 Mid(a，i，i)的作用是从字符串 a 中第 i 个位置开始取i 个字符构成子串，Left(a，i)的作用是从字符串 a 的左边取 i 个字
42、符构成子串，Right(a，i)则表示从字符串 a 的右边取 i 个字符构成子串。由于循环体中，x 和 y 总是不断的发生变化，因此仅需要考虑最后一次 x、y 的取值即可。在最后一次循环中 x 为 BB，y 为 AB，z 为 BA，因此 3 个字符串合并为 BBABBA。20.不能正确表示条件“两个整型变量 A 和 B 之一为 0，但不能同时为 0”的布尔表达式是( )。（分数：2.00）A.A*B0 andAB0B.(A0 or B0)and(A0 or B0)C.not(A0 And B0)ana(A0 or B0)D.A*B0 and(A0 or B0) 解析：解析：本题考查 VB 的表
43、达式。选项 A 中由于 A*B0，因此 A 为 0 或者 B 为 0，或者 A、B 同时为0，而 AB0，恰好排除了 A、B 同时为 0 的条件，因此符合条件描述；选项 B 中恰好描述了条件中的问题；选项 C 描述的 A、B 同时为 0 的取非，也就是同时为 0 不成立，然后再加上 A 或者 B 其中一个为0，符合条件描述；选项 D 中前面条件和选项 A)相同，但是后面不能排除二者同时为 0 的条件。21.在窗体(Name 属性为 Form1)上画两个文本框(Name 属性分别为 Text1 和 Text2)和一个命令按钮(Name属性为 Command1)，然后编写如下两个事件过程( )。
44、Private Sub Command1_Click() aText1.TextText2.Text Print a End Sub Private Sub Form_Load() Text1.Text“：Text2Text“ End Sub 程序运行后，在第一个文本框(Text1)和第二个文本框(Text2)中分别输入 123 和 321，然后单击命令按钮，则输出结果为( )。（分数：2.00）A.444B.321123C.123321 D.132231解析：解析：文本框的 Text 属性返回的是字符串。因此，Text1Text 的值为“123”、Text2Text 的值为“321”，题目中
45、语句“aText1TextText2Text”就是一个连接字符并赋值运算，两个值连接起来就是 123321，因此本题最后输出结果为选项 C。22.组合框是文本框和( )特性的组合。（分数：2.00）A.复选框B.标签C.列表框 D.目录列表框解析：解析：本题考查组合框。组合框控件(ComboBox)是将文本框和列表框的功能结合在一起，用户可以在列表中选择某项(注：只能选取一项)，或在编辑区域中直接输入文本内容来选定项目。23.已知文本框的 ScrollBars 属性设置为 3，却看不到任何效果，原因是( )。（分数：2.00）A.文本框中没有内容B.文本框的 Locked 属性值为 TrueC
46、.文本框的 MultiLine 属性值为 False D.文本框的 MultiLine 属性值为 True解析：解析：本题考查文本框的常见属性。文本框的 ScrollBars 属性是当 MultiLine 属性值为 True 时才有效，它表示了文本框中出现的滚动条形式：0None、1Horizontal、2Vertical、3Both，而MultiLine 属性的作用是设置是否多行显示，默认该属性值为 False，允许多行显示时属性值为Tlue；L,ocked 属性为 True 表示锁定文本框而不允许编辑。24.下面哪个属性不是框架控件的属性( )。（分数：2.00）A.CaptionB.Le
47、ftC.Text D.Enabled解析：解析：框架控件的 Caption 属性用来显示说明性的文字，Left 属性来指定框架左侧坐标，Enabled属性用来指定框架是否可用。而 Text 属性用于返回或设置文本框中的内容，具有该属性的控件有文本框、列表框、组合框等，不包括框架控件。25.复选框是否被选中，取决于复选框的( )。（分数：2.00）A.Enabled 属性B.Value 属性 C.Checked 属性D.Visible 属性解析：解析：本题考查复选框的常见属性。复选框的 Enabled 属性决定复选框是否可用，Value 属性决定复选框是否选定，其属性值有 3 种：0Unchec
48、ked：表示未被选定，1Checked：选定，2Grayed：灰色，禁止选择；Visible 属性决定其是否可见；复选框没有 Checked 属性。26.窗体如图所示。要求程序运行时，在文本框 Text1 中输入一个姓氏，单击“删除”按钮(名称为Command1)，则可删除列表框 List1 中所有该姓氏的项目。若编写以下程序来实现此功能： （分数：2.00）A.For k1 To List1.ListCount-1B.For k1 To List1.ListCountC.For k0 To List1.ListCountD.For kList1.ListCount-1 To 0 Step-1 解析：解析：在程序运行时删除列表框中的项目可以使用 RemoveItem 方法，其语法为：列
