1、国家二级（ VB）机试模拟试卷 25及答案与解析 一、选择题 1 为了返回或设置磁盘驱动器的名称，应使用的驱动器列表框的属性是 （ A） ChDrive （ B） Drive （ C） List （ D） ListIndex 2 假定有下面的程序： Private Sub Form_Click() Dim N As Integer N = InputBox(“输入一个 2位整数 “) Print (N - Int(N / 10) * 10) * 10 + Int(N / 10) End Sub 程 序运行后，单击窗体，在输入对话框中输入 58，然后单击 “确定 “按钮，输出结果是 （ A） 5
2、8 （ B） 13 （ C） 85 （ D） 40 3 执行以下程序段后，输出结果不为 2的是 （ A） y = 2 x = 1 Do While x = 0 x = 0 y = y * x Loop Print y （ B） y = 2 x = 1 Do Until x = 0 x = 0 y = y * x Loop Print y （ C） y = 2 x = 1 Do y = y * x Loop Until x 10 Or Is 0 ， y=y*x=2，跳出循环， y为 2； D选项执行 Do Loop While x=0， y=y*x=2， y为 2。故选择 B选项。 4 【正确答
3、案】 C 【试题解析】 (n / 3 = Int(n / 3) Or n Mod 8 = 0)语句的意思是能被 3整除或者能被8整除，其中 n / 3 = Int(n / 3)表示 n除以 3等于 n除以 3的整数部分，即 n被 3整除， n Mod 8=0 指 n除以 8的余数为 0，即 n被 8整除。 Not (n / 3 = Int(n / 3) Or n Mod 8 = 0)语句意思就是不能被 3整除且不能被 8整除的数，故选择 C选项。 5 【正确答案】 D 【试题解析】 程序执行过程，刚开始 k初始值为 0，紧接着是双重循环。外层循环 j执行了两次 （ j=1,2），当 j=1时，
4、先执行第一个内层循环，该循环执行了 3次（ i=1,2,3）， k=1+1,k=2+1,k=3+1=4，接着执行第二个内层循环，该循环执行了 7次（ i=1,2,3,4,5,6,7），k=4+1=5,k=5+1=6,k=6+1=7,k=7+1=8,k=8+1=9,k=9+1=10,k=10+1=11,k的值连续 7次加 1。当 j=2时，结果同 j=1，因该内层循环内没有用到最外层循环变量 j，故二次循环结果一样，都为 11。故选 D选项。 6 【正确答案】 B 【试题解析】 程序中 For循环 ， k从 1到 10执行， A(k)=11-k,执行完循环后，数组 A（ 10）被赋值为 =10,
5、9,8,7,6,5,4,3,2,1。其中 A(6)=11-6=5，故A(2+A(x)=A(2+5)=A(7)=11-7=4。故选择 B选项。 7 【正确答案】 D 【试题解析】 程序主要是从输入对话框中得到一整数 x，并将 x作为参数，带入fee（ x）函数，返回 p值，并输出。其中 InputBox是 Visual Basic函数，功能是弹出一个对话框，在其中显示提示，等待用户输入文字并按下按钮，然后返回用户输入的文字，将返回用户输入的数字存储在 x中； fee(x)为题目的一个函数。Function fee(a As Integer)中参数为整数 a，当 am1,则将 Arr（ i）存储于
6、 m1中，相应的 i存储于 m2中，循环执行，目的在于选取 Arr这个数组最大的数，并存储于 m1；其最大数的相应下标存储于 m2中。故可知当 i=2时， Arr（ 2） m1,执行 Then后的语句 ,m1=Arr(4)=823,m2=i=4; 当 i=3时， Arr（ 5） m1,不执行 Then后的语句。跳出循环语句，此时 m1=823,m2 =4，则Text1.Text = Str(m1) & “ “ &Str(m2)= “823 4“,故选项 C正确。 12 【正确答案】 D 【试题解析】 Open语句兼有打开文件和建立文件两种功能。 Output和 Input分别指定文件顺序输出方
7、式和顺序输入方式。 Open “file1.txt“ For Input As #1意思是以顺序输入方式打开已经存在的 file1.txt文件； Open “file1_bak.txt“ For Output As #2的意思是以顺序输出方式打开数据文件 file1_bak.txt,新写入的数据将覆盖原来的记录，如果文件不存在，则建立一个文件。 Input$(n, #文件号 )该函数返回从指定文件中读出的 n个字符的字符串（即它可以再数据文件中读取指定数目的字符）， ch = Input$(1, #1)语句是从文件号为 1的文件中读出 1个字 符，并将其赋值给 ch。 Print#文件号，实现
8、的功能是把数据写入文件中， Print #2,ch是把ch输入到文件号为 2的文件中。两个语句实际上就是把文件号为 1的中的 1个字符复制到文件 2中。 EOF函数用来返回测试文件的结束状态，对于顺序文件来说，如果已达到文件尾，则函数返回值为 True，否则返回值为 False。利用 EOF函数，可以避免在文件输入时出现 “输入超出文件尾 “的错误。 EOF（ n）的含义是已到达文件尾， Not EOF(n)的含义是没有到达 n所对应文件的末尾。 Do While Not EOF(1)保证循 环执行，直到已到达文件号为 1的文件尾。利用 Do While Not EOF(1)，循环执行以上 I
9、nput和 Print语句，则是把文件号为 1的文件内容复制到文件号为 2的文件中，即把文件 file1.txt复制为 file1_bak.txt文件，故 D选项正确， C选项错误。程序中并没有窗体上显示的程序语句，故 A项和 B项错误。故选择 D项。 13 【正确答案】 B 【试题解析】 栈是所有的插入与删除都限定在表的同一端进行的线性表；队列是指允许在一端进行插入，而在另一端进行删除的线性表，二者均即可以顺序存储也可以 链式存储。为了充分地利用数组的存储空间，把数组的前端和后端连接起来，形成一个环形的表，称为循环队列，因此循环队列是队列的一种顺序存储结构， B选项正确。 14 【正确答案】
10、 B 【试题解析】 二叉树遍历可以分为 3种：前序遍历（访问根节点在访问左子树和访问右子树之前）、中序遍历（访问根节点在访问左子树和访问右子树两者之间）、后序遍历（访问根节点在访问左子树和访问右子树之后）。前序序列为ABC，则 A为根节点。中序序列为 CBA，则 C和 B均为左子树节点或右子树节点，且 C为 B父节点，可知后序序列为 CBA， B选项正确。 15 【正确答案】 C 【试题解析】 在最坏情况下，对长度为 n的线性表排序，冒泡排序、快速排序、直接插入排序的时间复杂度均为 O(n2)，堆排序时间复杂度为 O(nlog2n)，复杂度最小。 C选项正确。 16 【正确答案】 A 【试题解
11、析】 二分法查找也称拆半查找，是一种高效的查找方法。能使用二分法查找的线性表必须满足两个条件：用顺序存储结构；线性表是有序表。 A选项正确。 17 【正确答案】 C 【试题解析】 模块的独立程度可以由两个定性标准度量：内聚性和耦合性。耦合衡量不 同模块彼此间互相依赖（连接）的紧密程度。内聚衡量一个模块内部各个元素彼此结合的紧密程度。一般来说，要求模块之间的耦合尽可能弱，即模块尽可能独立，且要求模块的内聚程度尽可能高。内聚性和耦合性是一个问题的两个方面，耦合性程度弱的模块，其内聚程度一定高。 C选项正确。 18 【正确答案】 A 【试题解析】 整数类实例包括：十进制常量用 09表示，不能以 0开
12、头；八进制常量用 07表示，必须用 0开头；十六进制常量用 0 9和 A F(a f)表示，必须以 0x或 0X开头。 A选项正确。 B选项是浮点数实例， C选项是字符 串实例， D选项为科学计数法表示的浮点数实例。 19 【正确答案】 B 【试题解析】 白盒测试是把程序看成装在一只透明的白盒子里，测试者完全了解程序的结构和处理过程。它根据程序的内部逻辑来设计测试用例，检查程序中的逻辑通路是否都按预定的要求正确地工作。白盒测试的主要技术有逻辑覆盖测试、基本路径测试等， B选项正确。常用的黑盒测试方法和技术有：等价类划分法、边界值分析法、错误推测法和因果图等， A、 C、 D选项错误。 20 【
13、正确答案】 C 【试题解析】 候选键（码）是二维表中能唯一标识元组的最小 属性集。一个二维表有多个候选码，则选定其中一个作为主键（码）供用户使用。在购买关系中，商品号、客户号、购买数量均不能唯一标识元组，每一个单独的属性集都不能作为键，但商品号与客户号构成的集合与三者构成的集合都可以唯一标识购买关系，而前者为最小属性集，故商品号与客户号构成的集合为候选键， C选项正确。 21 【正确答案】 D 【试题解析】 常用的扩充运算有交、除、连接及自然连接等。并： RS是将 S中的记录追加到 R后面。差： R-S结果是属于 R但不属于 S的记录组成的集合。交： RS结果是既属于 R又属于 S的记录组 成
14、的集合。自然连接：去掉重复属性的等值连接。交运算结果为 a 0 k1， D选项正确。 22 【正确答案】 C 【试题解析】 数据库管理系统提供了相应的数据语言，它们是：数据定义语言，该语言负责数据的模式定义与数据的物理存取构建；数据操纵语言，该语言负责数据的操纵，包括查询与增、删、改等操作；数据控制语言，该语言负责数据完整性、安全性的定义与检查以及并发控制、故障恢复等功能。 C选项正确。 23 【正确答案】 A 【试题解析】 Abs英文全称 Absolute含义为绝对， Abs（ x)返回值是自变 量 x的绝对值，故题目中的 Abs（ -5）值为 5； Len(s)是求字符串 s长度的函数，返
15、回字符串 s的长度，即所包含的字符个数， Len(“abcde“)的值为 5；故 Abs(-5) + Len(“abcde“)的值为 10，选择 A选项。 24 【正确答案】 D 【试题解析】 Case的测试表达式可以是数值表达式或字符串表达式，通常为变量或者常量。表达式表列称为值域，可以是值的形式、表达式 To的形式，还可以是 Is关系运算表达式的形式。但 VB中 select case 不能同时定义 2个或者更多的测试表达式，故选 项 A和 C错误。选项 B中 Is关系运算表达式和表达式 To的形式混用， B选项错误。 25 【正确答案】 A 【试题解析】 Open语句兼有打开文件和建立文
16、件两种功能。 Output是文件打开的一种方式，功能是：建立并写入数据，如果该文件已经存在，则覆盖原有信息。如果 Output方式打开一个含有数据的文件，则该文件中已有的数据则被全部删除，故选择 C项。 26 【正确答案】 B 【试题解析】 For循环的循环变量可以出现在循环体内，控制循环的次数；也可以不出现在循环体内，用 Eixt For退出 For循环语句。故选择 B选项。 27 【正确答案】 C 【试题解析】 Mid$(s,pos， L)=s1是插入字符串语句，用子字符串 s1的值替代 s从 pos位置开始长度为 L的字符串部分， Mid$(a$,2,3)=“AAA“，是用字符串“AAA
17、“的值替代字符串 a$从第 2个字符开始长度为 3的字符串的部分，故执行以上程序段后， a$的值为 “aAAAaa“，故选择 C项。 28 【正确答案】 D 【试题解析】 Format $(数值表达式，格式字符串 )的功能是按格式字符串指定的格式输出数值表达式的值。 Print Format$(0.2576, “00.0%“)是按 “00.0%“字符串输出 0.2576，则 0.2576需要四舍五入将保留小数点后三位数 0.258，则按 “00.0%“格式输出为 25.8%，故 D项正确。 29 【正确答案】 A 【试题解析】 数组下标下界的默认值为 0，故 A项表述错误；数组下标的下界和上界
18、都可以是负数，故 B项和 D项正确，数组下标的下界必须小于上界，故 C项正确。 30 【正确答案】 D 【试题解析】 ControlBox是窗体属性之一，用于设置窗口控制框的状态。当属性被设置 为 True（默认）时，窗口左上角会显示一个控制卡。窗体的大部分属性可用两种方法来设置：通过属性窗口设置和通过程序代码设置。通过属性窗口设置 ControlBox属性值，首先需双击 ControlBox属性条。故选择 D项。 31 【正确答案】 A 【试题解析】 用户定义数据类型可以用 Type语句来定义。格式是： Type 数据类型名 数据类型元素名 AS 类型名 数据类型元素名 AS 类型名 End
19、 Type 。选项中符合上面格式的，只有 A项，其余项都错误。 32 【正确答案】 B 【试题 解析】 在多重窗体程序中，可以通过 “工程 “菜单中的 “添加窗体 “命令实现，每执行一次该命令建立一个窗体。多重窗体中，每个窗体要作为一个文件保存，所有窗体作为一个工程文件保存，故一个工程中可以包含多个窗体文件，选项 A表述正确。在窗体模块中，可以调用标准模块中的过程，也可以调用其他窗体模块中的过程，被调用的过程必须用 Public定义为公用过程，故 B项错误。标准模块文件保存为扩展名为 .bas的文件，窗体模块文件保存为扩展名为 .frm的文件；类模块保存为扩展名为 .cls的文件，故选项 C表
20、述正确。标准模块也称为全局模块 ，由全局变量声明、模块层声明及通用过程等几个部分组成，故选项 D表述正确。 33 【正确答案】 B 【试题解析】 Selected属性表述列表框中的项目是否被选中，它和 list属性一样有相同项目的逻辑型数组，各项的取值为 True或者 False。 ListIndex属性是表示在列表框控件中当前所选项目的索引号。列表框第一项的 ListIndex值为 0，最后一项的 ListIndex值为 ListCount-1.如果列表框 List1中有一个项目被用户选定 ,则List1.Selected(List1.ListIndex)为 True。 Debug.Prin
21、t 可以在窗口输出信息。故执行 Debug.Print List1.Selected(List1.ListIndex) 后，在立即窗口中输出 True，选项B正确。 34 【正确答案】 D 【试题解析】 命令按钮的 Style属性，用来设定控件的显示类型为 “只读属性 “，该属性为 1-vbButtonGraphical图形格式时，在命令按钮中不仅可以显示文本，还可以显示图形；命令按钮的 DownPicture属性用来设置当命令按钮被单击且处于按下状态时，在控件中显示的图 形； DisablePicture属性用来设置对一个图形的引用，当命令按钮禁止使用时，在按钮中显示该图形； Default
22、属性被设置为 True时，单击该命令按钮与按下回车键的效果相同。故使命令按钮显示为图形形式时，与 A项、 B项、 C项有关，和 D项无关。 35 【正确答案】 A 【试题解析】 Locked属性是用来设置本文框的内容是否可以被编辑，默认为False，可编辑；取值为 True时，不可编辑。故 A项正确。 MultiLine属性用来设置在文本框中是否多行输入，故 B项错误。 TabStop 属性指定是 否能使用 Tab键将焦点移到控件上， Visible用来设置文本框的可见性，故 C和 D项错误。 36 【正确答案】 D 【试题解析】 数据区用来输入或修改菜单项、设置属性。其中：标题项：在提供的文
23、本输入框中可以输入菜单名或命令名，故 A项不是必须输入的。索引项：当几个菜单项使用相同的名称时，把它们组成控件数组，可指定一个数字值来确定每一个菜单项在控件数组中的位置，故 C项不是必须输入的。快捷键项：允许为每个菜单项选择快捷键（热键），故 B项不是必须输入的。名称项：在文本输入框中可以为菜单名及各菜单项输入控制名 。控制名是标识符（相当于控件的 Name属性），仅用于访问代码中的菜单项，它不会在菜单中出现。菜单名和每个菜单项都是一个控件，都要为其取一个控制名，故 D项是必须输入的。 37 【正确答案】 C 【试题解析】 Maxlength是用来设置允许在文本框中输入的字符数，默认值为0，
24、A项表述正确。 PasswordChar属性是用来设置本文框的替代字符，故 B项表述正确。 Enabled属性用来确定文本框是否对用户产生的事件作出反应，故当为False时，文本框被禁用，故 D项正确。 Text1.Text属性才返回或设 置文本框输入内容，而 Text1.Caption则用于显示标签标题中显示的文本，故 C项错误。 38 【正确答案】 B 【试题解析】 DialogTitle 用来设置对话框的标题，在默认情况下， “打开 “对话框的标题是 “打开 “， “保存 “对话框的标题是 “保存 “。故选择 B项。 39 【正确答案】 D 【试题解析】 Exit Do语句是指从 Do循
25、环中退出， A错误； Exit Sub语句是指从过程中退出， B错误。 Exit For语句是指从 For 循环中退出， C项错误。在执行闲置循环中将占用全部 CPU时间 ，不允许执行其他事件过程，使系统处于无限循环中没有反应， DoEvents可以把控制权交给周围环境使用，然后回到原来程序继续执行，故 D项正确。 40 【正确答案】 B 【试题解析】 一般情况下，通过 “控件 .属性 “的格式来设置一个控件的属性值。为了方便用户使用， VB中的每个控件都有一个默认的属性，称为 “控件值 “。如果设置对象的控件值，可以略去控件值的名称。文件框的控件值为 Text，在设置该控件的 Text属性时
26、，不必写成 “Text1.Text“的形式，只给出控件名即可。题目中txtMac 的文本框，执行 语句 txtMac = “MyText“，即 txtMac.Text= “MyText“，也就是说将在文本框 txtMac中显示字符串 “MyText“，故选择 B项。 二、基本操作题 41 【正确答案】 (1)【操作步骤】步骤 1：建立界面，并设置控件的属性。程序中涉及控件及属性见表 3.124。步骤 2：调试并运行程序，关闭程序后按题目要求存盘。 (2)【操作步骤】步骤 1：建立界面，并设置控件的属性。程序中涉及的控件及属性见表 3.125和表 3.126。步骤 2：编写程序代码。参考答案 P
27、rivate Sub Command1_Click() Text1.Alignment = 0End SubPrivate Sub Command2_Click() Text1.Alignment = 2End SubPrivate Sub Command3_Click() Text1.Alignment = 1End Sub步骤 3：调试并运行程序，关闭程序后按题目要求存盘。 三、简单应用题 42 【正确答案】 (1)【操作步骤】步骤 1：建立界面，并设置控件的属性。程序中用到的控件及属性见表 3.117 3.119。参考答案 Private Sub Option1_Click() Text
28、1.Alignment = 0End SubPrivate Sub Option2_Click() Text1.Alignment = 2End SubPrivate Sub Option3_Click() Text1.Alignment = 1End SubPrivate Sub Option4_Click() Text1.FontName = “宋体 “End SubPrivate Sub Option5_Click() Text1.FontName = “黑体 “End Sub步骤 3：调试并运行程序，关闭程序后按题目要求存盘。 (2)【操作步骤】步骤 1：打开本题工程文件。步骤 2：分
29、析并编写程序代码。程序提供代码 Const x0 = 1200, y0 = 1200, radius = 1000Dim a, b, len1, len2Private Sub Command1_Click()Timer1.Enabled = TrueEnd SubPrivate Sub Command2_Click()?End SubPrivate Sub Form_Activate()For k = 0 To 359 Step ?x = radius * Cos(k * 3.14159 / 180) + ?y = y0 - radius * Sin(k * 3.14159 / 180)Fo
30、rm1.Circle (x, y), 20Next ka = 90b = 90len1 = Line1.Y1 - Line1.Y2len2 = Line2.Y1 - Line2.Y2End SubPrivate Sub Timer1_Timer()a = a - 30Line1.X2 = len1 * Cos(a * 3.14159 / 180) + x0Line1.? = y0 - len1 * Sin(a * 3.14159 / 180)b = ? - 30 / 12Line2.X2 = len2 * Cos(b * 3.14159 / 180) + x0Line2.Y2 = y0 - l
31、en2 * Sin(b * 3.14159 / 180)End Sub程序结束参考答案第 1个？处填入： Timer1.Enabled = False第 2个？处填入： 30第 3个？处填入： x0第 4个？处 填入： Y2第 5个？处填入： b步骤3：调试并运行程序，关闭程序后按题目要求存盘。 四、综合应用题 43 【正确答案】 【操作步骤】 步骤 1：打开本题工程文件。 步骤 2：分析并编写程序代码。 程序提供代码 窗体代码 Private Sub Command1_Click() 考生编写程序开始 考生编写程序结束 不要改动以下内容 save Label1 End Sub 模块代码 Pu
32、blic Sub save(l As Control) Open App.Path & “out5.txt“ For Output As #1 Print #1, l Caption Close #1 End Sub 程序结束 参考答案 Private Sub Command1_Click() Dim i As Integer Dim j As Integer Dim k As Integer For i = 1 To 60 For j = 1 To 60 For k = 1 To 60 If i 2 = j 2 + k 2 Then m = m + 1 End If Next k Next j Next i Label1 = m / 2
