1、国家二级（ VB）机试模拟试卷 69及答案与解析 一、选择题 1 用语句 Open “C:teac.txt“ For Input As #1打开文件后，就可以编程序 （ A）将 C盘根目录下 teac.txt文件的内容读入内存 （ B）在 C盘根目录下建立名为 teac.txt的文件 （ C）把内存中的数据写入 C盘根目录下名为 teac.txt的文件 （ D）将某个磁盘文件的内容写入 C盘根目录下名为 teac.txt的文件 2 将文本框的 ScrollBar设置为 2，文本框中却没有垂直滚动条，其原因可能是 （ A）文本框中没有内容 （ B）文本框的 MultiLine属性值为 False
2、 （ C）文本框的 MultiLine属性值为 True （ D）文本框的 Locked 属性值为 True 3 如果把文本框的 Enabled属性设置为 False并运行程序，则以下叙述中正确的是 （ A）文本框中的文本变为灰色，且不能将光标置于文本框上 （ B）文本框中的文本变为灰色，可以将光标置于文本框上，但不能改变文本框中的内容 （ C）文本框中的文本变为灰色，可以改变文本框中的内容 （ D）文本框中的文本正常显示，可以将光标置于文本框上 ，但不能改变文本框中的内容 4 为了使标签 Label1透明且不具有边框，以下正确的属性设置是 （ A） Label1.BackStyle = 0
3、Label1.BorderStyle = 1 （ B） Label1.BackStyle = 0 Label1.BorderStyle = 0 （ C） Label1.BackStyle = 1 Label1.BorderStyle = 1 （ D） Label1.BackStyle = 1 Label1.BorderStyle = 0 5 要想不使用 Shift或 Ctrl键就能在列表框中同时选择多个项目，则应把该列表框的 MultiSelect属性设置为 （ A） 0 -None （ B） 1 -Simple （ C） 2 -Extended （ D） 3 6 为了把命令按钮设置为图形格式
4、，其 Style属性值应为 （ A） True （ B） False （ C） 1 （ D） 0 7 要使得文件列表框 File1中只显示文件扩展名为 jpg的图片文件，则下列正确的语句是 （ A） File1.Pattern = “*.jpg“ （ B） File1.Parent = “*.jpg“ （ C） File1.Path = “*.jpg“ （ D） File1.Pattern = “图片文件 |*.jpg“ 8 决定标签内容显示位置的属性是 （ A） Text （ B） Name （ C） Alignment （ D） Caption 9 如果在列表框 List1中没有选中项目，
5、则 List1.ListIndex 的值为 （ A） -1 （ B） 0 （ C） 1 （ D） 2 10 设 Label1、 Command1、 Text1、 Check1分别为标签、命令按钮、文本框、复选框的名称，则以下属性设置 语句中，运行时不会出错的是 （ A） Label1.BackStyle = 2 （ B） Command1.Style = 1 （ C） Text1.ScrollBars = 4 （ D） Check1.Value = 2 11 下列不包含滚动条的控件是 （ A）列表框 （ B）标签 （ C）组合框 （ D）文本框 12 设有如下事件过程： Private Sub
6、 Form_Click() x = 0 While x 10 x = x + 1 x = x * x Wend Print x End Sub 运行程序，单击窗体，输出结果是 （ A） 16 （ B） 19 （ C） 20 （ D） 25 13 在窗体上画一个名称为 List1的列表框，然后编写如下程序： Private Sub Form_Click() For i = 1 To 10 Item = “Item “ Next k End Sub 程序运行后，单击命令按钮，在输入对话框中分别输入 2和 3，输出结果为 （ A） 1 2 （ B） 2 3 （ C） 3 4 （ D） 4 5 17
7、在窗体上画一个命令按钮和一个文本框，其名称分别为 Command1和 Text1，然后编写如下程序： Function Fun(x As Integer, y As Integer) As Integer Fun = IIf(x = 1 tStr = tStr + Mid(xStr, L, 1) L = L - 1 Loop yStr = tStr End Sub Private Sub Form_Click() Dim S1 As String, S2 As String S1 = “abcdef“ Inv S1, S2 Print S2 End Sub 运行程序，单击窗体，输出结果为 （
8、A） abcdef （ B） afbecd （ C） fedcba （ D） defabc 21 阅读程序： Option Base 1 Private Sub Form_Click() Dim Arr(3, 3) As Integer For i = 1 To 3 For j = 1 To 3 If j = i Or j = 3 - i + 1 Then Arr(i, j) = 1 Else Arr(i, j) = 0 End If Next j Next i For i = 1 To 3 For j = 1 To 3 Print Arr(i, j); Next j Print Next i
9、 End Sub 程序运行后，如果单击窗体，则输出结果为 （ A） 1 1 1 1 1 1 1 1 1 （ B） 0 0 0 0 0 0 0 0 0 （ C） 1 0 0 0 1 0 0 0 1 （ D） 1 0 1 0 1 0 1 0 1 22 下列叙述中正确的是 （ A）算法的效率只与问题的规模有关，而与数据的存储结构无关 （ B）算法的时间复杂度是指执行算法所需要的计算工作量 （ C）数据的逻辑结构与存储结构是一一对应的 （ D）算法的时间复杂度与空间复杂度一定相关 23 下列叙述中正确的是 （ A）线性表链式存储结构的存储空间一般要少于顺序存储结构 （ B） 线性表链式存储结构与顺序存
10、储结构的存储空间都是连续的 （ C）线性表链式存储结构的存储空间可以是连续的，也可以是不连续的 （ D）以上说法均错误 24 某二叉树共有 12个结点，其中叶子结点只有 1个。则该二叉树的深度为（根结点在第 1层） （ A） 3 （ B） 6 （ C） 8 （ D） 12 25 对长度为 n的线性表作快速排序，在最坏情况下，比较次数为 （ A） n （ B） n-1 （ C） n(n-1) （ D） n(n-1)/2 26 结构化程序设计中，下面对 goto语句使用描述正确的是 （ A）禁止使用 goto语句 （ B）使用 goto语句程序效率高 （ C）应避免滥用 goto语句 （ D）以上
11、说法均错误 27 下面不属于软件测试实施步骤的是 （ A）集成测试 （ B）回归测试 （ C）确认测试 （ D）单元测试 28 下面不属于软件需求分析阶段主要工作的是 （ A）需求变更申请 （ B）需求分析 （ C）需求评审 （ D）需求获取 29 一般情况下，当对关系 R和 S进行自然连接时，要求 R和 S含有一个或者多个共有的 （ A）记录 （ B）行 （ C）属性 （ D）元组 30 有表示公司和职员 及工作的三张表，职员可在多家公司兼职。其中公司 C（公司号，公司名，地址，注册资本，法人代表，员工数），职员 S（职员号，姓名，性别，年龄，学历），工作 W（公司号，职员号，工资），则表
12、W的键（码）为 （ A）公司号，职员号 （ B）职员号，工资 （ C）职员号 （ D）公司号，职员号，工资 31 以下能对正实数 d的第 3位小数四舍五入的表达式是 （ A） 0.01 * Int(d + 0.005) （ B） 0.01 * Int(100 * (d + 0.005) （ C） 0.01 * Int(100 * (d + 0.05) （ D） 0.01 * Int(d + 0.05) 32 设 A、 B、 C是三角形的 3条边，则以下表示 “任意两边之和大于第三边 “的布尔表达式是 （ A） A + B C Or A + C B Or B + C A （ B） A + B =
13、 C And A + C = B And B + C = A 33 为了在运行时能显示窗体左上角的控制框（即系统菜单），应执行的操作是 （ A）把窗体的 ControlBox 属性设置为 False，其他属性任意 （ B）把窗体的 ControlBox 属性设置为 True，并且把 BorderStyle属性设置为 1到 5中的一个数 （ C）把窗体的 ControlBox 属性设置为 True，并且把 BorderStyle属性设置为 0 （ D）把窗体的 ControlBox 属性设置为 Fale，并且把 BorderStyle属性设置为 1到 5中的一个数 34 如果要将一个窗体从内存中
14、清除，应 使用的语句是 （ A） Unload （ B） Show （ C） Load （ D） Hide 35 以下 Visual Basic不支持的循环结构是 （ A） For.Next （ B） For Each.Next （ C） Do.Loop （ D） Do.End Do 36 假定有如下情况语句： Select Case X 能表示 |X| 5的 Case子句是 （ A） Case Not(-5 To 5) （ B） Case 5 To -5 （ C） Case Is 5 （ D） Case Abs(X) 5 37 设子程序过程定义的首部为： Public Sub S(X As
15、Integer, Y As Single) 则以下正确的调用形式为 （ A） Call S 5, 4.8 （ B） Call Sub(5, 4.8) （ C） Sub 5, 4.8 （ D） S 5, 4.8 38 如果一个顶级菜单项的访问键为 D，则以下等同于单击该菜单项的操作为 （ A）按 Ctrl + D键 （ B）按 Alt + D键 （ C）按 D键 （ D）按 Shift + D键 39 以下不属于 Visual Basic数据文件的是 （ A）顺序文件 （ B）随机文件 （ C）数据库文件 （ D）二进制文件 40 在设计阶段，如果双击窗体上的一个文本框控件，则在代码窗口中显示该
16、控件的事件过程所对应的事件是 （ A） Click （ B） DblClick （ C） Change （ D） GotFocus 二、基本操作题 41 (1)在名称为 Forml的窗体上画两个标签 (名称分别为 Labelll和 Label2，标题分别为 “姓名 ”和 “年龄 ”)、两个文本框 (名称分别为 Textl和 Text2，初始内容均为空 )和一个命令按钮 (名称为 Commandl，标题为 “显示 ”)。然后编写命令按钮的 Click事件过程。程序运行后，在两个文本框中分别输人姓名和年龄，然后单击 “显示 ”按钮，则在窗体上显示两个文本框中的内容，如图所示。要求程序中不得使用任何
17、变量。 注意：存盘时必须存放在考生文件夹下，工程文件名保存为 sjtl vbp，窗体文件名保存为 sjtl frm。 (2)在名称为 Form1的窗体上画一个图片框，其名称为 Picturel，一个水平滚动条，名称为 HScroUl，一个命令按钮，名称为 Commandl，标题为 “设置属性 ”，通过属性窗口在图片框中装入一个图形 (文件名为 picl jpg，位于考生目录下 )，图片框的高度与图形的高度相同，图片框的宽度任意 (如图 1所示 )。编写适当的事件过程，程序运行后，如果单击命令按钮，则设置水平滚动条的属性如下： Min 100 Max 1500 LargeChange 100 S
18、mallChange 10 之后就可以通过移动滚动条上的滚动块来放大或缩小图片框。程序运行后的窗体如图 2所示。要求程序中不得使用任何变量。 注意：存盘时必须存放在考生文件夹下，工程文件名为 sjt2 vbp，窗体文件名为 sjt2 frm。三、简单应用题 42 (1)在考生文件夹下有一个工程文件 sjt3 vbp程序运行时，单击窗体则显示如图所示的图案。请去掉程序中的注释符，把程序中的 ?改为正确的内容。 注意：不能修改程序的其他部分和控件属性。最后将修改后的文件按原文件名存盘。(2)在考生文件夹下有一个工程文件 sjt4 vbp，窗体中有一个矩形和一个圆，程序运行时，单击 “开始 ”按钮，
19、圆可以横向或纵向运行 (通过选择单选按钮来决定 )，碰到矩形的边时，则向其相反方向运动， 单击 “停止 ”按钮，则停止运动，如图所示。可以通过选择单选按钮随时改变运动方向。 已经给出了所有控件和程序，但程序不完整，请去掉程序中的注释符，把程序中的 ?改为正确的内容。 注意：不得修改已经存在的内容和控件属性，最后将修改后的文件按原文件名存盘。 四、综合应用题 43 考生文件夹下有一个工程文件 sjt5 vbp，窗体上有两个文本框，名称分别为Text1、 Text2，都可以多行显示。还有三个命令按钮，名称分别为 C1、 C2、 C3，标题分别为 “取数 ”、 “排序 ”、 “存盘 ”。 “取数 ”
20、按钮的功能是将考生文件夹下 的in5 dat文件中的 50个整数读到数组中，并在 Text1中显示出来； “排序 ”按钮的功能是对这 50个数按升序排序，并显示在 Text2中； “存盘 ”按钮的功能是把排好序的 50个数存到考生目录下的 out5 dat文件中，如图所示。在窗体中已经给出了全部控件和部分程序代码，要求阅读程序并去掉程序中的注释符，把程序中的 ?改为正确的内容，并编写 “排序 ”按钮的 Click事件过程，使其实现上述功能，但不能修改程序中的其他部分，也不能修改控件的属性。最后将修改后的文件按原文件名存盘。 国家二级（ VB）机试模拟试卷 69答案与解析 一、选择题 1 【正确
21、答案】 A 【试题解析】 Open语句兼有打开文件和建立文件两种功能 ,Input是指定顺序输入方式 ,题意为打开已存在的数据文件 ,以便从文件中读出记录。 2 【正确答案】 B 【试题解析】 设置文本框控件具有滚动条效果，需要设置其 ScrollBars 属性，并且还需将其 MultiLine属性设置为 Ture。 3 【正确答案】 A 【试题解析】 Enabled 是用来设置控件是否可用。如果把文本框的 Enabled 属性设置为 False并运行程序，文本框中 的文本变为灰色，且不能将光标置于文本框上。 4 【正确答案】 B 【试题解析】 BackStyle 属性用于设置标签的背景样式，
22、有两种值可选： 0，表示透明； 1，表示不透明。 BorderStyle属性用来设置标签的边框类型，有两种值可选： 0，代表标签无边框； 1，代表标签有边框。 5 【正确答案】 B 【试题解析】 列表框的 Multiselect属性有 3个可选值： O-None:默认值 ,不能选择多个选项。 1-Simple:在不按任何键的情况下可选择多个选项。 2-Extended:使用 Ctrl 或 Shift键进行分别多选或选择连续多个选项。 6 【正确答案】 C 【试题解析】 Style属性设定此对象是否以图片作为外观显示，有两种值可选：0，标准外观（默认值）； 1，图片外观。 7 【正确答案】 A
23、【试题解析】 Pattern 属性用来指定在文件列表框中显示文件的类型； Parent属性可访问一个对象的父亲的属性、方法、或控件； Path 属性用来指定和返回当前目录。 8 【正确答案】 C 【试题解析】 Alignment属性用于设置标签中文本的对齐方式。 9 【正确 答案】 A 【试题解析】 列表框 List1中没有选中项目，则 List1.ListIndex 的值为 -1。 10 【正确答案】 D 【试题解析】 标签的 BackStyle属性只有 0、 1两个属性值；命令按钮的 Style属性是只读属性，必须在属性窗口设置；文本框的 ScrollBars 属性只有 0、 1、 2、
24、3四个属性值，并且必须在属性窗口设置。 11 【正确答案】 B 【试题解析】 标签控件不包含滚动条。 12 【正确答案】 D 【试题解析】 While.Wend 语句只要指定的 条件为 True，则会重复执行一系列的语句。程序中只要满足 x 5的 VB 表达式为 X5，故本题答案为选项 C）。 37 【正确答案】 D 【试题解析】 （ 1）用 Call语句调用 Sub过程：语法： Call 过程名（ 实参表列 ），实参的个数、类型和顺序，应该与被调用过程的形式参数相匹配，有多个参数时，用逗号分隔。（ 2）把过程名作为一个语句来用：语法：过程名 实参1，实参 2 ，它与（ 1）的不同点是：去掉了
25、关键字和实参列表的括号。 38 【正确答案】 B 【试题解析】 访问键是菜单、菜单项或控件（如按钮）标签的文本中带下划线的字符。访问键允许用户通过同时按 Alt 键和预先定义的访问键来 “单击 “按钮。 39 【正确答案】 C 【试题解析】 可以从不同 的角度对文件进行分类：按照文件的内容，可分成程序文件和数据文件；按照文件存储信息的形式，可分为 ASCII文件和二进制文件；按照文件的组织形式，可分成顺序文件和随机文件；按照存储介质，又可以分为光盘文件、磁盘文件、磁带文件、打印文件等。 40 【正确答案】 C 【试题解析】 在设计阶段，双击窗体上的一个文本框控件，在代码窗口中显示该控件的事件过
26、程所对应的事件是 Change事件。 二、基本操作题 41 【正确答案】 (1)【操作步骤】步骤 1：新建一个窗体，在窗体中添加两个标签，两个文本框和一个命令 按钮。步骤 2：按照步骤 1设置其他控件相关属性，程序用到的控件及其属性见表 3.19和 3.20。步骤 3：编写程序代码。参考答案 Private Sub Command1_Click() Form1.Print Text1.Text & “,现年 “ & Text2.Text & “岁 “End Sub步骤 4：调试并运行程序，关闭程序后按题目要求存盘。(2)【操作步骤】步骤 1：新建一个窗体，在窗体上添加一个图片框，一个水平滚动条
27、和一个命令按钮。步骤 2：设置窗体中控件的属性，控件的属性见表 3.21。步骤 3：编写程序 代码。参考答案 Private Sub Command1_Click() HScroll1.Max = 1500 HScroll1.Min = 100 HScroll1.LargeChange = 100 HScroll1.SmallChange = 10End SubPrivate Sub HScroll1_Change() Picture1.Width = HScroll1.ValueEnd Sub 步骤 4：调试并运行程序，关闭程序后按题目要求存盘。 三、简单应用题 42 【正确答案】 (1)【
28、操作步 骤】 步骤 1：打开本题工程文件。 步骤 2：分析并编写程序代码。 程序提供代码 Private Sub Form_Click() For i = 1 To ? For j = 1 To 6 - i Print “ “； Next j For j = 1 To ? Print “*“； Next j Print Next i For i = 1 To 4 For j = 1 To ? Print “ “； Next j For j = 1 To ? Print “*“； Next j Print Next i End Sub 程序结束 参考答案 第 1个？处填入： 5 第 2个？处填入
29、： 2 * i - 1 第 3个？处填入： i + 1 第 4个？处填入： (9 - 2 * i) 步骤 3：调试并运行程序，关闭程序后按题目要求存盘。 (2)【操作步骤】 步骤 1：打开本题工程文件。 步骤 2：分析并编写程序代码。 程序提供代码 Dim d As Integer Private Sub Command1_Click() Timer1.Enabled = True End Sub Private Sub Command2_Click() ？ = False End Sub Private Sub Form_Load() d = 1 End Sub Private Sub Ti
30、mer1_Timer() If Option1 Then Shape2.Top = ? + d * 50 If Shape2.Top = Shape1.Top + Shape1.Height Then d = - d End If ElseIf Option2 Then Shape2.Left = ? + d * 50 If Shape2.Left = Shape1.Left + Shape1.Width Then d = - d End If End If End Sub 程序结束 参考答案 第 1个？处填入： Timer1.Enabled 第 2个？处填入： Shape2.Top 第 3个
31、？处填入： Top 第 4个？处填入： Shape2.Left 步骤 3：调试并运行程序，关闭程序后按题目要求存盘。 四、综合应用题 43 【正确答案】 【操作步骤】 步骤 1：打开本题工程文件。 步骤 2：分析并编写程序代码。 程序提供代码 Dim a(50) As Integer Private Sub C1_Click() Dim k As Integer, ch As String Open “in5.dat“ For Input As #1 ch = “ For k = 1 To 50 Input #1, ? ch = ch + Str(a(k) + “ “ Next k Close
32、 #1 Text1.Text = ? End Sub Private Sub C2_Click() End Sub Private Sub C3_Click() Open “out5.dat“ For Output As #1 Print #1, Text2.Text Close #1 End Sub 程序结束 参考答案 第 1个？处填入： a(k) 第 2个？处填入： ch “排序 “按钮的代码 Private Sub C2_Click() Dim t As Integer Dim i As Integer Dim j As Integer Dim ch As String ch = “ For i = 50 To 2 Step -1 For j = 1 To 49 If a(j) a(j + 1) Then t = a(j + 1) a(j + 1) = a(j) a(j) = t End If Next j Next i For j = 1 To 50 ch = ch + Str(a(j) + “ Next j Text2.Text = ch End Sub 步骤 3：调试并运行程序，关闭程序后按题目要求存盘
