[计算机类试卷]国家二级（VB）机试模拟试卷47及答案与解析.doc

1、国家二级（ VB）机试模拟试卷 47及答案与解析 一、选择题 1 以下关于 VB文件的叙述中，正确的是 （ A）标准模块文件的扩展名是 .frm （ B）一个 .vbg文件中可以包括多个 .vbp文件 （ C）一个 .vbp文件只能含有一个标准模块文件 （ D）类模块文件的扩展名为 .bas 2 以下表达式与 Int(3.5)的值相同的是 （ A） CInt(3.5) （ B） Val(3.5) （ C） Fix(3.5) （ D） Abs(3.5) 3 设： a = 2， b = 8， c = 6， d = 3，表达式 a b And Not (c d) Or d c的值是 （ A） 1 （

2、 B） 0 （ C） True （ D） False 4 设在一个工程的窗体中有如下代码： Public x As Integer Private Sub Form_Load() Dim y As Integer End Sub 在该工程的标准模块的声明部分有如下代码： Public a As Integer Private b As Integer 关于上述代码，以下叙述中错 误的是 （ A）变量 x的作用域是整个工程 （ B）变量 y的作用域是 Form_Load过程 （ C）变量 a的作用域是整个工程 （ D）变量 b的作用域是整个标准模块 5 以下关于文件的叙述中，错误的是 （ A）顺

3、序文件有多种打开文件的方式 （ B）读取顺序文件的记录时，只能从头至尾逐记录进行 （ C）顺序文件中各记录的长度是固定的 （ D）随机文件一般占用空间比较小 6 以下不属于 VB控件的是 （ A）框架 （ B）点 （ C）直线 （ D）形状 7 窗体上有一个名称为 Command1的命令按钮，一 个名称为 Text1的文本框，其Text属性值为 “VB Programming“。运行程序后，选中其中的 “VB“，并执行如下事件过程： Private Sub Command1_Click() Text1.SelText = “C+“ End Sub 则文本框中显示的内容为 （ A） VB （ B

4、） VB Programming （ C）文本框被清空 （ D） C+ Programming 8 窗体上有一个名称为 VScroll1的垂直滚动条，为了设定单击滚动条两端箭头时的 Value增 量值，应设置的属性是 （ A） LargeChange （ B） SmallChange （ C） Max （ D） Min 9 要将单选按钮 Opt1设为被选中，应设置的属性是 （ A） Value （ B） Selected （ C） Enabled （ D） SetFocus 10 窗体上有一个名称为 Combo1的组合框，为了引用 Combo1中最后一个列表项，应使用的表达式是 （ A） Co

5、mbo1.List(ListCount) （ B） Combo1.List(Combo1.ListCount - 1) （ C） Combo1.List(ListCount - 1) （ D） Combo1.List(Combo1.ListCount) 11 对于文本框 Text1，能够获得按键的 ASCII码值的事件过程是 （ A） Text1_KeyUp （ B） Text1_KeyPress （ C） Text1_Click （ D） Text1_Change 12 命令按钮 Command1的 MouseUp事件过程结构如下： Private Sub Command1_MouseUp(

6、Button As Integer, Shift As Integer, X As Single, Y As Single) End Sub 则以下叙述中错误的是 （ A） X、 Y参数表示的是 Command1左上角在窗体中的位置 （ B） Button参数用于确定按下的鼠标键 （ C） Shift参数用于确定是否按下了 Alt、 Ctrl或 Shift键 （ D） MouseUp表示抬起鼠标按键时触发的事件 13 通用对话框 Filter属性的 作用是 （ A）设置对话框的标题 （ B）指定对话框所选择的文件名 （ C）指定对话框的打开方式 （ D）指定对话框中显示的文件类型 14 以下关

7、于菜单的叙述中错误的是 （ A）对于同一窗体中的菜单，各菜单项的名称必须唯一 （ B）对于同一窗体中的菜单，各菜单项的标题必须唯一 （ C）菜单中各菜单项可以是控件数组元素 （ D）弹出式菜单的编辑、定义在菜单编辑器中进行 15 窗体上有一个名称为 Command1的命令按钮，其单击事件过程如下： Private Sub Command1_Click() For i = 3 To 1 Step -1 Sum = 0 For j = 1 To i Sum = Sum + i * j Next Next Print Sum End Sub 运行程序时，单击命令按钮，则窗体上显示的是 （ A） 1

8、（ B） 6 （ C） 18 （ D） 25 16 以下能够正常结束循环操作的程序段是 （ A） i = 5 Do i = i + 1 Loop Until i 0 i = i - 2 Loop （ D） i = 0 Do While i 1 And j 1 Then a(i, j) = a(a(i - 1, j - 1), a(i, j - 1) + 1 Else a(i, j) = i * j End If Next Next Print a(2, 2); a(3, 3) End Sub 运行程序，单击命令按钮，窗体上显示的是 （ A） 1 3 （ B） 2 1 （ C） 2 2 （ D）

9、 3 3 19 窗体上有一个名称为 Command1的命令按钮，并有如下程序代码： Private Sub Command1_Click() Static a a = 1: b = 2: c = 3 Call f(a, b, c) Print a; b; c End Sub Sub f(ByVal x, ByRef y, z) x = x + 1 y = y + 1 z = z + 1 End Sub 运行程序，单击命令按钮，窗体上显示的是 （ A） 1 3 3 （ B） 1 3 4 （ C） 2 3 3 （ D） 2 3 4 20 窗体上 有一个名称为 Command1的命令按钮，单击该按钮

10、时所实现的功能 是产生 10个随机整数，然后从键盘输入一个整数，查找该数在数组中的位置。若找到，输出该数的位置；若没有找到，给出相应的提示。该命令按钮的单击事件过程如下： Private Sub Command1_Click() Dim a(10) As Integer Dim x As Integer For i = 1 To 10 a(i) = Int(Rnd * 100) Next x = InputBox(“输入 100以内的整数： “) p = 0 For i = 1 To 10 If a(i) = x Then p = i Exit For End If Next If p = 0

11、 Then Print “没有找到与输入数据相同的数！ “ Else Print Str(x) + “在数组中的位置是 “ + Str(p) End If End Sub 对于上述事件过程，以下叙述中正确的是 （ A）本程序实际产生的随机数是 0-99 （ B）若产生的随机数中有相同数，则 p是其中最后一个数的位置 （ C）程序有错， p的初值设置不对 （ D）程序有错， InputBox函数产生的数据与 x的类型不匹配 21 窗体上有一个名称为 Command1的命令按钮，其单击事件过程如下： Private Sub Command1_Click() Dim s As Double s =

12、0: i = 1 Do While i a(i, j) Then y = a(i, j) Next s = s + a(i, i) Next Print x, y, s End Sub 关于以上程序，以下叙述中错误的是 （ A）二维数组元素的值是不大于 99的随机整数 （ B）计算结果 x是二维数组各元素中的最大数 （ C）计算结果 y是二维数组各元素中的最小数 （ D）计算结果 s是二维数组各行第一个元素之和 23 窗体上有一个名称为 Text1的文本框，一个名称为 Command1的命令按钮。命令按钮的单击事件过程如下： Private Sub Command1_Click() Dim x

13、1 As Integer, x2 As Integer, x3 As Integer s = Trim(Text1.Text) strLen = Len(s) For i = 1 To strLen c = Mid(s, i, 1) Select Case c Case “0“ To “9“ x1 = x1 + 1 Case “A“ To “Z“ x2 = x2 + 1 Case “a“ To “z“ x3 = 3 + 1 Case Else x4 = x4 + 1 End Select Next Print “x1“; x1, “x2“; x2, “x3“; x3, “x4“; x4 End

14、 Sub 以下关于上述程序的叙述中，正确的是 （ A） s是去掉文本框中字符串末尾的空格 （ B） Select Case c有误， Case后应该是一个表达式 （ C）各 Case分支条件有误，不能用 To表示字符的取值区间 （ D） x4是字符串中非字母、非数字字符的个数 24 窗体上有一个名称为 Command1的命令按钮。要求编写程序，把文件 f1.txt的内容写到文件 f2.txt中，然后将 f1.txt删除。命令按钮的单击事件过程如下： Private Sub Command1_Click() Open “c:f1.txt“ For Input As #1 Open “c:f2.t

15、xt“ For Output As #2 Do While Not EOF(2) Line Input #1, str1 Print #2, str1 Loop Close Kill “c:f1.txt“ End Sub 该程序运行时发生错误，应该进行的修改是 （ A）打开 f1.txt应该使用 Output 方式，打开 f2.txt 应该使用 Input 方式 （ B） Not EOF(2)应该改为 Not EOF(1) （ C） Line Input应改为 Get （ D） Close语句改为 Close All 25 下列叙述中正确的是 （ A）程序执行的效率与数据的存储结构密切相关 （

16、 B）程序执行的效率只取决于程序的控制结构 （ C）程序执行的效率只取决于所处理的数据量 （ D）以上说法均错误 26 下列与队列结构有关联的是 （ A）函数的递归调用 （ B）数组元素的引用 （ C）多重循环的执行 （ D）先到先服务的作业调度 27 一个栈的初始状态为空。现将元素 1,2,3,A,B,C依次入栈，然后再依次出栈，则元素出栈的顺序是 （ A） 1,2,3,A,B,C （ B） C,B,A,1,2,3 （ C） C,B,A,3,2,1 （ D） 1,2,3,C,B,A 28 下面属于白盒测试方法的是 （ A）等价类划分法 （ B）逻辑覆盖 （ C）边界值分析法 （ D）错误推测

17、法 29 下面对对象概念描述正确的是 （ A）对象间的通信靠消息传递 （ B）对象是名字和方法的封装体 （ C）任何对象必须有继承性 （ D）对象的多态性是指一个对象有多个操作 30 软件设计中模块划分应遵循的 准则是 （ A）低内聚低耦合 （ B）高耦合高内聚 （ C）高内聚低耦合 （ D）以上说法均错误 31 下面描述中不属于数据库系统特点的是 （ A）数据共享 （ B）数据完整性 （ C）数据冗余度高 （ D）数据独立性高 32 数据库设计过程不包括 （ A）概念设计 （ B）逻辑设计 （ C）物理设计 （ D）算法设计 33 以下不合法的 VB变量名是 （ A） filename （

18、B） read （ C） _y （ D） e5 34 以下关于 VB的叙述中，错误的是 （ A） VB采用事件驱动的编程机 制 （ B）如果程序中有 Sub_Main过程时，则一定从该过程开始执行 （ C）工程文件中包含多个窗体时，可以指定启动窗体 （ D） VB程序既可以编译执行，也可以解释执行 35 VB中，若没有显式声明变量的数据类型，则默认的类型是 （ A）整型 （ B）字符型 （ C）日期型 （ D）变体类型 36 设程序中有以下语句： MsgBox “Visual“, , “Basic“, “等级考试 “, 2 执行该语句后，显示一个信息框，以下关于该信息框的叙述中，正确的是 （

19、A）提示信息是 Visual （ B）提示信息是 Basic （ C）标题栏显示为 Visual （ D）标题栏显示为 “等级考试 “ 37 设有如下声明语句 Option Base 1 Dim arr(2, -1 To 5) As Integer 则数组 arr中数组元素的个数是 （ A） 10 （ B） 12 （ C） 14 （ D） 21 38 以下关于 VB对象属性的叙述中，错误的是 （ A）属性是对象的特征 （ B）对象的所有属性值都可以在属性窗口中设置 （ C）不同对象可以具有同名的属性 （ D）对象的某些属性可以在程序中设置 39 设 a = 10， b = 4， c = 5，

20、d = 7，表达式 a b And Not c 0条件不满足，退出循环。选C）。 17 【正确答案】 D 【试题解析】 Command1_Click（）中通过嵌套循环给数组 a元素赋初值，执行完后 a（ 1,1） =2， a（ 2， 2） =4， a（ 3,3） =6， a（ 4,4） =8； Call f(a, b)语句调用子函数 Sub f(x() As Integer, ByRef y As Integer)。该函数内 For循环把 a数组中一维下标和二维下标相同的元素值相加。值为 20，选 D）。 18 【正确答案】 D 【试题解析】 a是个整形的二维数组。通过 For循环给数组 a

21、元素赋值。 i 1 并且 j 1时执行 a(i, j) = a(a(i - 1, j - 1), a(i, j - 1) + 1语句，否则执行 a(i, j) = i * j，因此执行完第一个大循环 后，数组 a中的元素值分别是： a（ 1,1） = 1， a（ 1,2） = 2， a（ 1,3） = 3。以此类推，可知 a（ 2,2） =3， a（ 3,3） =3。选 D）。 19 【正确答案】 B 【试题解析】 子函数 Sub f(ByVal x, ByRef y, z)中 x值通过值传递， y， z是传引用，子函数执行后 b， c值会被加 1。而 a值维持不变。选 B）。 20 【正确答

22、案】 A 【试题解析】 Rnd 生成的随机数为 0-1的小数，乘以 100后取整后范围为 0-99，选 A）。 21 【正确答案】 D 【试题解 析】 WhileLoop 循环。 i初值为 1，把 i值代入 i / (i + 1)语句可得公式为 1/2+2/3+3/4+4/5+5/6，选 D）。 22 【正确答案】 D 【试题解析】 程序首先通过 For循环给数组 a元素赋值。取随机数函数返回的值介于 0和 1之间。乘以 100后取整介于 0和 99。故 A）正确。接下来对 x和 y赋初值（ a的第一个元素），在循环内部进行数据大小的比较，把当前比 x大的存入x，比 y小的存入 y，循环结束后

23、， x中存储的是最大值， y中存储的是最小值。故B）， C）对。 s中存储一维和二维下标相同的数 组元素的和。选 D）。 23 【正确答案】 D 【试题解析】 Trim函数是去掉字符串前面和后面的空格， A）错。 Select Case语句的测试表达式，可以是算术表达式或字符表达式，其值应是数字或字符型， B）错。 Case语句可以是连续的范围：界 1 To 界 2 ，如： 12 To 20， C）错。 x4是排除了字符串中字母、数字字符的个数的和。选 D）。 24 【正确答案】 B 【试题解析】 Open打开文件时，可以用三种模式，即 OutPut：打开一个文件，将对该文件进行写操作； In

24、put：打开 一个文件，将对该文件进行读操作；Append：打开一个文件，将在该文件末尾追加记录。 Do While循环应该判断 1#文件的结尾，即 Do While Not EOF(1)，不是结尾的话把内容写到 2#文件中。 Line Input语句为从已打开的顺序文件中读出一行并将它分配给 String变量。 Close语句后面有文件号，就关闭这个文件，否则就关闭所有打开的文件。此题中应该关闭所有的文件。选 B）。 25 【正确答案】 A 【试题解析】 程序执行的效率与数据的存储结构、数据的逻辑结构、程序的控制结构 、所处理的数据量等有关。 26 【正确答案】 D 【试题解析】 队列的修改

25、是依先进先出的原则进行的， D正确。 27 【正确答案】 C 【试题解析】 栈的修改是按后进先出的原则进行的，所以顺序应与入栈顺序相反，故选 C。 28 【正确答案】 B 【试题解析】 白盒测试法主要有逻辑覆盖、基本路径测试等。逻辑覆盖测试包括语句覆盖、路径覆盖、判定覆盖、条件覆盖、判断 -条件覆盖，选择 B。其余为黑盒测试法。 29 【正确答案】 A 【试题解析】 对象之间进行通信的构造叫做消息， A正 确。多态性是指同一个操作可以是不同对象的行为， D错误。对象不一定必须有继承性， C错误。封装性是指从外面看只能看到对象的外部特征，而不知道也无须知道数据的具体结构以及实现操作， B 错误。

26、 30 【正确答案】 C 【试题解析】 根据软件设计原理提出如下优化准则： 划分模块时，尽量做到高内聚、低耦合，保持模块相对独立性，并以此原则优化初始的软件结构。 一个模块的作用范围应在其控制范围之内，且判定所在的模块应与受其影响的模块在层次上尽量靠近。 软件结构的深度、宽度、扇入、扇出应适当。 模块的大小要适 中。 C正确。 31 【正确答案】 C 【试题解析】 数据库系统的特点为高共享、低冗余、独立性高、具有完整性等，C错误。 32 【正确答案】 D 【试题解析】 数据库设计过程主要包括需求分析、概念结构设计、逻辑结构分析、数据库物理设计、数据库实施、数据库运行和维护阶段。答案为 D选项。

27、 33 【正确答案】 C 【试题解析】 变量的命名规则是： 必须以字母开头，由字母、汉字、数字或下划线组成； 不能在变量名中出现句点 “.“、空格或者嵌入字符，例如！、 、 #、$、 %、 &等； 长度不得 超过 255个字符； 不能使用 VB的关键字，关键字是语言的组成部分，包括预定义语句 (例如 If、 For等 )、函数 (Abs、 Sqr等 )和操作符(Or、 Mod 等 )。 34 【正确答案】 B 【试题解析】 在一般情况下，整个应用程序从设计时的第一个窗体开始执行，需要首先执行的程序代码放在 Form_Load 事件过程中。如果需要从其他窗体开始执行应用程序，则可通过 “工程 “

28、菜单中的 “工程属性 “命令 (“通用 “选项卡 )指定启动窗体。但是，如果有 Sub Main 过程，则可以 (注意，是 “可以 “，而不是 “必须 “)首先执行 Sub Main 过程。 35 【正确答案】 D 【试题解析】 没有显式声明变量的数据类型，则默认的类型是变体类型。 36 【正确答案】 A 【试题解析】 语法形式： MsgBox(prompt, buttons , title , helpfile, context) MsgBox 函数的语法具有以下几个命名参数： Prompt 必需的。字符串表达式，作为显示在对话框中的消息。 Buttons 可选的。数值表达式是值的总和，指定

29、显示按钮的数目及形式，使用的图标样式，缺省按钮是什 么以及消息框的强制回应等。如果省略，则 buttons 的缺省值为 0。 Title 可选的。在对话框标题栏中显示的字符串表达式。如果省略 title，则将应用程序名放在标题栏中。 Helpfile 可选的。字符串表达式，识别用来向对话框提供上下文相关帮助的帮助文件。如果提供了 helpfile，则也必须提供 context。 Context 可选的。数值表达式，由帮助文件的作者指定给适当的帮助主题的帮助上下文编号。如果提供了 context，则也必须提供 helpfile。 故本题答案为 A）。 37 【正确答案】 C 【试题解析】 程序中

30、语句 Option Base 1表示定义数组下标从 1开始。 但如果显式指定了数组的下标范围则不受此限制。第一维的下标从 1到 2，第二维的下标从-1到 5，所以数组元素个数为 14。 38 【正确答案】 B 【试题解析】 对象只有部分属性可以在属性窗口中设置。 39 【正确答案】 B 【试题解析】 本题中包含的三种运算符的优先级别由高到低依次为：算术运算符、比较运算符、逻辑运算符。其中，逻辑运算符的优先级为： Not(非 ) And( 与 ) Or( 或 )。 And 前面表达式的值为 True， And 后面表达式的值为 False，所以最后输出的也是 False。因此，答案为 B）。 4

31、0 【正确答案】 C 二、基本操作题 41 【正确答案】 (1)【操作步骤】步骤 1：建立界面，设置窗体的标题为 “菜单 “，菜单编辑中涉及的属性见表 3.73。步骤 2：调试并运行程序，关闭程序后按题目要求存盘。 (2)【操作步骤】步骤 1：新建一个窗体，在窗体中添加一个图像框和两个命令按钮，然后设置控件的属性，控件的属性见表 3.74。步骤 2：编写程序代码。参考答案 Private Sub Command1_Click() Image1.Left = Image1.Left + 10End SubPrivate Sub Command2_Click() Image1.Left = 360

32、End Sub 步骤 3：调试并运行程序，关闭程序后按题目要求存盘。 三、简单应用题 42 【正确答案】 (1)【操作步骤】 步骤 1：打开本题工程文件。 步骤 2：分析并编写程序代码。 程序提供代码 Private Sub Command1_Click() Call ShowName(？ ) End Sub Private Sub Label1_Click() Call ShowName(？ ) End Sub Private Sub ShowName(c As ？ ) If TypeOf c Is CommandButton Then Label2.Caption = “单击 “ & Co

33、mmand1.Caption End If If TypeOf c Is Label Then ？ = “单击 “ & Label1.Caption End If End Sub 程序结束 参考答案 第 1个？处填入： Command1 第 2个？处填入： Label1 第 3个？处填入： Control 第 4个？处填入： Label2.Caption 步骤 3：调试并运行程序，关闭程序后按题目要求存盘。 (2)【操作步骤】 步骤 1：打开本题工程文件，将 Timer1的 Interval属性设置为 500。 步骤 2：分析并编写程序代码。 程序提供代码 Private Sub Form_L

34、oad() Picture1(0) Left = 0 Picture1(0) Top = 100 For k = 1 To 7 Picture1(k) Visible = ？ Next End Sub Private Sub Command1_Click() Timer1.Enabled = ？ End Sub Private Sub Command2_Click() Timer1.Enabled = False End Sub Private Sub Timer1_Timer() Static i As Integer Picture1(i) Visible = False i = i +

35、1 If i = ? Then i =？ End If Picture1(i) Visible = True End Sub 程序结束 参考答案 第 1个？处填入： False 第 2个？处填入： True 第 3个？处填入： 8 第 4个？处填入： 0 步骤 3：调试并运行程序，关闭程序后按题目要求存盘。 四、综合应用题 43 【正确答案】 【操作步骤】 步骤 1：打开本题工程文件。 步骤 2：分析并编写程序代码。 程序提供代码 Option Base 1 Dim a(12, 10) As Long, s(12) As Long Private Sub Command1_Click() Op

36、en App.Path & “in5.dat“ For Input As #1 For i = 1 To 12 For j = 1 To 10 Input #1, a(i, j) Next j Next i Close #1 End Sub Private Sub Command2_Click() 考生编写 End Sub Private Sub Command3_Click() 以下程序段在 Text1文本框内显示每组数的组号及平均值 Text1.Text = “ For i = 1 To 12 If i 10 Then Text1.Text = Text1.Text + “ “ str(i

37、) + “ “ + str(s(i) + Chr$(13) + Chr$(10) Else Text1.Text = Text1.Text + str(i) + “ “ +str(s(i) + Chr$(13) + Chr$(10) End If Next i End Sub Private Sub Command4_Click() Open App.Path & “out5.dat“ For Output As #1 For i = 1 To 12 Print #1, s(i) Next i Close #1 End Sub 程序结束 参考答案 Private Sub Command2_Click() 考生编写 Dim q As Long For m = 1 To 12 q = 0 For n = 1 To 10 q = q + a(m, n) Next n s(m) = Int(q / 10) Next m End Sub 步骤 3：调试并运行程序，关闭程序后按题目要求存盘。