1、国家二级（VB）机试-试卷 19 及答案解析(总分：86.00，做题时间：90 分钟)一、选择题(总题数：40，分数：80.00)1.下面不是键盘事件的是( )。（分数：2.00）A.KeyDownB.KeyUpC.KeyPressD.KeyCode2.语句 Dim Arr(2 To 4)As Integer 所定义的数组的元素个数为( )。（分数：2.00）A.7 个B.6 个C.5 个D.4 个3.为了使窗体左上角不显示控制框，需设置为 False 的属性是( )。（分数：2.00）A.VisibleB.EnabledC.ControlBoxD.Caption4.窗体上有 1 个名称为 T
2、ext1 的文本框，1 个名称为 Label1 的标签。程序运行后，如果在文本框中输入信息，则立即在标签中显示相同的内容。以下可以实现上述操作的事件过程为( )。（分数：2.00）A.Private Sub Label1_Click() Label1.CaptionText1.Text End SubB.Private Sub Label1_Change() Label1.CaptionText1.Text End SubC.Private Sub Text1_Click() Label1.CaptionText1.Text End SubD.Private Sub Text1_Change(
3、) Label1.CaptionText1.Text End Sub5.对窗体上名称为 Command1 的命令按钮，编写如下事件过程：Private Sub Command1_Click() Move 200， 200End Sub 程序运行时，单击命令按钮，则产生的操作是( )。（分数：2.00）A.窗体左上角移动到距屏幕左边界、上边界各 200 的位置B.窗体左上角移动到距屏幕右边界、上边界各 200 的位置C.窗体由当前位置向左、向上各移动 200D.窗体由当前位置向右、向下各移动 2006.为了使每秒钟发生一次计时器事件，可以将其 Interval 属性设置为( )。（分数：2.00
4、）A.1B.10C.100D.10007.能够将组合框 Combo1 中最后一个数据项删除的语句为( )。（分数：2.00）A.Combo1.RemoveItem Combo1.ListCountB.Combo1.RemoveItem Combo1.ListCount1C.Combo1.RemoveItem Combo1.ListIndexD.Combo1.RemoveItem Combo1.ListIndex18.用来设置文字字体是否为粗体的属性是( )。（分数：2.00）A.FontItalicB.FontUnderlineC.FontSizeD.FontBold9.以下不能触发滚动条 C
5、hange 事件的操作是( )。（分数：2.00）A.拖动滚动框B.单击两端的滚动箭头C.单击滚动框D.单击滚动箭头与滚动框之间的滚动条10.确定图片框 Picture1 在窗体上位置的属性是( )。（分数：2.00）A.Width 和 HeightB.Left 和 TopC.Width 和 TopD.Height 和 Left11.以下不属于单选按钮的属性是( )。（分数：2.00）A.CaptionB.NameC.MinD.Enabled12.以下关于图片框控件的说法中，错误的是( )。（分数：2.00）A.可以通过 Print 方法在图片框中输出文本B.图片框控件中的图形可以在程序运行过
6、程中被清除C.图片框控件中可以放置其他控件D.用 Stretch 属性可以自动调整图片框中图形的大小13.为了清除列表框中指定的项目，应使用的方法是( )。（分数：2.00）A.ClsB.ClearC.RemoveD.RemoveItem14.假定 Picture1 和 Text1 分别为图片框和文本框的名称，则下列错误的语句是( )。（分数：2.00）A.Print 25B.Picture1.Print 25C.Text1.Print 25D.Debug.Print 2515.设在工程文件中有一个标准模块，其中定义了如下记录类型 Type Books Name As String * 10
7、TelNum As String * 20End Type 在窗体上画一个名为 Command1 的命令按钮，要求当执行事件过程Command1_Click 时，在顺序文件 Person.txt 中写入一条记录。下列能够完成该操作的事件过程是( )。（分数：2.00）A.Private Sub Command1_Click() Dim B As Books Open “c：/Person.txt“ For Output As #1 B.NameInputBox(“输入姓名“) B.TelNumInputBox(“输入电话号码“) Write #1， B.Name， B.TelNum Close
8、 #1 End SubB.Private Sub Command1_Click() Dim B As Books Open “c：/Person.txt“ For Input As #1 B.NameInputBox(“输入姓名“) B.TelNumInputBox(“输入电话号码“) Print #1， B.Name， B.TelNum Close #1 End SubC.Private Sub Command1_Click() Dim B As Books Open “c：/Person.txt“ For Output As #1 B.NameInputBox(“输入姓名“) B.TelN
9、umInputBox(“输入电话号码“) Write #1， B Close #1 End SubD.Private Sub Command1_Click() Open “c：/Person.txt“ For Input As #1 NameInputBox(“输入姓名“) TelNumInputBox(“输入电话号码“) Print #1， Name， TelNum Close #1 End Sub16.运行如下程序 Private Sub Command1_Click() Dim a(5， 5)As Integer For i1 To 5 For j1 To 4 a(i， j)i * 2j
10、 If a(i， j)/ 7a(i， j)/7 Then nn1 End If Next j Next Print nEnd Subn 的值是( )。（分数：2.00）A.2B.3C.4D.517.窗体上有单选钮和列表框控件。单击名称为 Option1、标题为“国家“的单选钮，向列表框中添加国家名称，如下图所示。 （分数：2.00）A.程序有错，没有声明数组的维数及上下界B.只有一维数组才能使用 Array 为数组赋初值C.For 循环的终值应为 ListCount1D.For 循环的初值应为 118.现有如下一段程序：Private Sub Command1_Click() xUCase(I
11、nputBox(“输入：“) Select Case x Case “A“ To “C“ Print “考核通过！“ Case “D“ Print “考核不通过 ！“ Case Else Print “输入数据不合法！“ End SelectEnd Sub 执行程序，在输入框中输入字母“B“，则以下叙述中正确的是( )。（分数：2.00）A.程序运行错B.在窗体上显示“考核通过！“C.在窗体上显示“考核不通过 ！“D.在窗体上显示“输入数据不合法！“19.窗体上有三个水平滚动条，名称分别为 HSRed、HSGreen 和 HSBlue，取值范围均是 0255，代表颜色的三种基色。改变滚动框的位
12、置，可以改变三种基色的值，从而改变窗体的背景色，如下图所示。（分数：2.00）A.color 是窗体级整型数组B.改变任何一个滚动条滚动框的位置，窗体的背景色将立刻随之改变C.3 个滚动条 Change 事件过程中只设置了一个 color 数组元素的值，调用 fill 过程失败D.fill 函数定义中的形式参数是数组型参数20.命令按钮 Command1 的单击事件过程如下：Private Sub Command1_Click() x10 Print f(x)End SubPrivate Function f(y As Integer) fy * yEnd Function 运行上述程序，如下
13、叙述中正确的是( )。（分数：2.00）A.程序运行出错，x 变量的类型与函数参数的类型不符B.在窗体上显示 100C.函数定义错，函数名 f 不能又作为变量名D.在窗体上显示 1021.窗体上有 1 个名称为 Text1、内容为空的文本框。编写如下事件过程：Private Sub Text1_KeyUp(KeyCode As Integer，Shift As Integer) Print Text1.Text；End Sub 运行程序，并在文本框中输入“123“，则在窗体上的输出结果为( )。（分数：2.00）A.123B.112C.12123D.11212322.窗体上有 1 个名称为 C
14、ommand1 的命令按钮，事件过程如下：Private Sub Command1_Click() Dim x%， y%， z% xInputBox(“请输入第 1 个整数“) yInputBox(“请输入第 2 个整数“) Do Until xy If xy Then xxy Else yyx Loop Print xEnd Sub 运行程序，单击命令按钮，并输入 2 个整数 169 和 39，则在窗体上显示的内容为( )。（分数：2.00）A.11B.13C.23D.3923.窗体上有 1 个名称为 Command1 的命令按钮，事件过程及函数过程如下：Private Sub Comman
15、d1_Click() Dim m As String mInputBox(“请输入字符串“) Print pick_str(m)End SubPrivate Function pick_str(s As String)As String temp“ i1 sLenLen(s) Do While iA.bcaiB.cbiaC.bcaisD.cbias24.窗体上有 1 个名称为 Command1 的命令按钮，事件过程及函数过程如下：Private Sub Command1_Click() Dim p As Integer pm(1)m(2)m(3) Print pEnd SubPrivate F
16、unction m(n As Integer)As Integer Static s As Integer For i1 To n ss1 Next msEnd Function 运行程序，第 2 次单击命令按钮 Command1 时的输出结果为( )。（分数：2.00）A.6B.10C.16D.2825.下列链表中，其逻辑结构属于非线性结构的是（分数：2.00）A.二叉链表B.循环链表C.双向链表D.带链的栈26.设循环队列的存储空间为 Q(1: 35)，初始状态为 front=rear=35。现经过一系列入队与退队运算后，front=15，rear=15，则循环队列中的元素个数为（分数：2
17、.00）A.15B.16C.20D.0 或 3527.下列关于栈的叙述中，正确的是（分数：2.00）A.栈底元素一定是最后入栈的元素B.栈顶元素一定是最先入栈的元素C.栈操作遵循先进后出的原则D.以上说法均错误28.在关系数据库中，用来表示实体间联系的是（分数：2.00）A.属性B.二维表C.网状结构D.树状结构29.公司中有多个部门和多名职员，每个职员只能属于一个部门，一个部门可以有多名职员。则实体部门和职员间的联系是（分数：2.00）A.1：1 联系B.m：1 联系C.1：m 联系D.m：n 联系30.数据字典（DD) 所定义的对象都包含于（分数：2.00）A.数据流图（DFD 图)B.程
18、序流程图C.软件结构图D.方框图31.软件需求规格说明书的作用不包括（分数：2.00）A.软件验收的依据B.用户与开发人员对软件要做什么的共同理解C.软件设计的依据D.软件可行性研究的依据32.下面属于黑盒测试方法的是（分数：2.00）A.语句覆盖B.逻辑覆盖C.边界值分析D.路径覆盖33.下面不属于软件设计阶段任务的是（分数：2.00）A.软件总体设计B.算法设计C.制定软件确认测试计划D.数据库设计34.Visual Basic 集成环境由若干窗口组成，其中不能隐藏(关闭)的窗口是( )。（分数：2.00）A.主窗口B.属性窗口C.立即窗口D.窗体窗口35.为了声明一个长度为 128 个字
19、符的定长字符串变量 StrD，以下语句中正确的是( )。（分数：2.00）A.Dim StrD As StringB.Dim StrD As String(128)C.Dim StrD As String128D.Dim StrD As String*12836.为了用键盘打开菜单和执行菜单命令，第一步应按的键是( )。（分数：2.00）A.功能键 F10 或 AltB.Shift功能键 F4C.Ctrl 或功能键 F8D.CtrlAlt37.如果在 Visual Basic 集成环境中没有打开属性窗口，下列可以打开属性窗口的操作是( )。（分数：2.00）A.用鼠标双击窗体的任何部位B.执行
20、“工程“菜单中的“属性窗口“命令C.按 CtrlF4 键D.按 F4 键38.假定已在窗体上画了多个控件，其中有一个被选中，为了在属性窗口中设置窗体的属性，预先应执行的操作是( )。（分数：2.00）A.单击窗体上没有控件的地方B.单击任意一个控件C.双击任意一个控件D.单击属性窗口的标题栏39.下列操作中不能向工程添加窗体的是( )。（分数：2.00）A.执行“工程“菜单中的“添加窗体“命令B.单击工具栏上的“添加窗体“按钮C.右击窗体，在弹出的菜单中选择“添加窗体“命令D.右击工程资源管理器，在弹出的菜单中选择“添加“命令，然后在下一级菜单中选择“添加窗体“命令40.设 a2， b3， c
21、4， d5， 表达式 Not ay Then xxy Else yyx Loop Print xEnd Sub 运行程序，单击命令按钮，并输入 2 个整数 169 和 39，则在窗体上显示的内容为( )。（分数：2.00）A.11B.13 C.23D.39解析：解析：程序中 Do 循环比较输入的两个数的大小，把较大的数值减去较小的数值后再与较小的值比较，直到两个数值相等。程序中输入 169 和 39，则 x16939130,130y 即 13039，因此x1303991，如此循环 x9139523913，此时 1339 为假，执行 yyx391326，循环 y261313，此时 x、y 都为
22、13，循环结束，因此窗体上显示为 13。23.窗体上有 1 个名称为 Command1 的命令按钮，事件过程及函数过程如下：Private Sub Command1_Click() Dim m As String mInputBox(“请输入字符串“) Print pick_str(m)End SubPrivate Function pick_str(s As String)As String temp“ i1 sLenLen(s) Do While iA.bcai B.cbiaC.bcaisD.cbias解析：解析：过程 pick_str 的功能是对输入的字符串的字符重新组合，通过 Do 循
23、环从原字符串中头尾开始各取一个字符重新组合，循环次数小于等于原字符串长度整除 2 的值。当输入字符串是“basic“时，字符串长度为 5，循环次数为 5/22 次，因此取出的字符依次是“b“，“c“，“a“，“i“。即“bcai“，因此答案为 A。24.窗体上有 1 个名称为 Command1 的命令按钮，事件过程及函数过程如下：Private Sub Command1_Click() Dim p As Integer pm(1)m(2)m(3) Print pEnd SubPrivate Function m(n As Integer)As Integer Static s As Integ
24、er For i1 To n ss1 Next msEnd Function 运行程序，第 2 次单击命令按钮 Command1 时的输出结果为( )。（分数：2.00）A.6B.10C.16D.28 解析：解析：在过程 m 中 s 被定义为静态变量，因此它的值只在第一次调用过程时初始化，以后再调用都不再初始化，而是保留之前的值。m 过程的功能是根据参数值累加，因此第 1 次单击时，m(1)m(2)m(3)13610，此时变量 s 的值，即过程 m 的值为 6，第 2 次单击时，m(1)m(2)m(3)791228。因此答案为 D。25.下列链表中，其逻辑结构属于非线性结构的是（分数：2.00
25、）A.二叉链表 B.循环链表C.双向链表D.带链的栈解析：解析：在定义的链表中，若只含有一个指针域来存放下一个元素地址，称这样的链表为单链表或线性链表。带链的栈可以用来收集计算机存储空间中所有空闲的存储结点，是线性表。在单链表中的结点中增加一个指针域指向它的直接前件，这样的链表，就称为双向链表（一个结点中含有两个指针），也是线性链表。循环链表具有单链表的特征，但又不需要增加额外的存贮空间，仅对表的链接方式稍做改变，使得对表的处理更加方便灵活，属于线性链表。二叉链表是二叉树的物理实现，是一种存储结构，不属于线性结构。答案为 A 选项。26.设循环队列的存储空间为 Q(1: 35)，初始状态为 f
26、ront=rear=35。现经过一系列入队与退队运算后，front=15，rear=15，则循环队列中的元素个数为（分数：2.00）A.15B.16C.20D.0 或 35 解析：解析：在循环队列中，用队尾指针 rear 指向队列中的队尾元素，用排头指针 front 指向排头元素的前一个位置。在循环队列中进行出队、入队操作时，头尾指针仍要加，朝前移动。只不过当头尾指针指向向量上界时，其加操作的结果是指向向量的下界。由于入队时尾指针向前追赶头指针，出队时头指针向前追赶尾指针，故队空和队满时，头尾指针均相等。答案为 D 选项。27.下列关于栈的叙述中，正确的是（分数：2.00）A.栈底元素一定是最
27、后入栈的元素B.栈顶元素一定是最先入栈的元素C.栈操作遵循先进后出的原则 D.以上说法均错误解析：解析：栈顶元素总是后被插入的元素，从而也是最先被删除的元素；栈底元素总是最先被插入的元素，从而也是最后才能被删除的元素。栈的修改是按后进先出的原则进行的。因此，栈称为先进后出表，或“后进先出“表，所以选择 C。28.在关系数据库中，用来表示实体间联系的是（分数：2.00）A.属性B.二维表 C.网状结构D.树状结构解析：解析：关系模型实体间的联系采用二维表来表示，简称表。选项 C 为网状模型实体间的联系，选项D 为层次模型实体间的联系，选项 A 属性刻画了实体29.公司中有多个部门和多名职员，每个
28、职员只能属于一个部门，一个部门可以有多名职员。则实体部门和职员间的联系是（分数：2.00）A.1：1 联系B.m：1 联系C.1：m 联系 D.m：n 联系解析：解析：两个实体集间的联系实际上是实体集间的函数关系，主要有一对一联系（1:1）、一对多联系（1:m）、多对一联系（m:1）、多对多联系（m:n）。对于每一个实体部门，都有多名职员，则其对应的联系为一对多联系（1:m），答案选 C。30.数据字典（DD) 所定义的对象都包含于（分数：2.00）A.数据流图（DFD 图) B.程序流程图C.软件结构图D.方框图解析：解析：在数据流图中，对所有元素都进行了命名，所有名字的定义集中起来就构成了
29、数据字典。因此选 A，而 B，C，D 都不符合。31.软件需求规格说明书的作用不包括（分数：2.00）A.软件验收的依据B.用户与开发人员对软件要做什么的共同理解C.软件设计的依据D.软件可行性研究的依据 解析：解析：软件需求规格说明书是需求分析阶段的最后成果，是软件开发的重要文档之一。软件需求规格说明书有以下几个方面的作用。便于用户、开发人员进行理解和交流，B 正确；反映出用户问题的结构，可以作为软件开发工作的基础和依据，C 正确；作为确认测试和验收的依据，A 正确。32.下面属于黑盒测试方法的是（分数：2.00）A.语句覆盖B.逻辑覆盖C.边界值分析 D.路径覆盖解析：解析：黑盒测试不关心
30、程序内部的逻辑，只是根据程序的功能说明来设计测试用例。在使用黑盒测试法时，手头只需要有程序功能说明就可以了。黑盒测试法分等价类划分法、边界值分析法和错误推测法，答案为 C。而 A、B、D 均为白盒测试方法。33.下面不属于软件设计阶段任务的是（分数：2.00）A.软件总体设计B.算法设计C.制定软件确认测试计划 D.数据库设计解析：解析：从技术观点上看，软件设计包括软件结构设计、数据设计、接口设计、过程设计。所以A、B、D 正确，C 为软件测试阶段的任务。34.Visual Basic 集成环境由若干窗口组成，其中不能隐藏(关闭)的窗口是( )。（分数：2.00）A.主窗口 B.属性窗口C.立
31、即窗口D.窗体窗口解析：解析：属性窗口、立即窗口和窗体窗口都能隐藏，但主窗口不能。故选 A。35.为了声明一个长度为 128 个字符的定长字符串变量 StrD，以下语句中正确的是( )。（分数：2.00）A.Dim StrD As StringB.Dim StrD As String(128)C.Dim StrD As String128D.Dim StrD As String*128 解析：解析：有定长和不定长的字符串变量。默认情况下，定义的字符串变量属于不定长的，字符串长度可以改变，比如：Dim str As String。如果声明一个定长字符串变量，形如 Dim str As Strin
32、g *字符个数。故 D 选项正确。36.为了用键盘打开菜单和执行菜单命令，第一步应按的键是( )。（分数：2.00）A.功能键 F10 或 Alt B.Shift功能键 F4C.Ctrl 或功能键 F8D.CtrlAlt解析：解析：按 F10 或 Alt 键可激活菜单，焦点聚焦到菜单栏上，进而可用键盘打开菜单和执行菜单命令。故选 A。37.如果在 Visual Basic 集成环境中没有打开属性窗口，下列可以打开属性窗口的操作是( )。（分数：2.00）A.用鼠标双击窗体的任何部位B.执行“工程“菜单中的“属性窗口“命令C.按 CtrlF4 键D.按 F4 键 解析：解析：用鼠标双击窗体的任何
33、部位会打开“代码窗口“，故 A 选项错误。在“视图“菜单中才有“属性窗口“命令，故 B 选项错误。按 CtrlF4 键关闭当前活动窗体窗口。故 C 选项错误。按 F4 会打开“属性窗口“。故 D 选项正确。38.假定已在窗体上画了多个控件，其中有一个被选中，为了在属性窗口中设置窗体的属性，预先应执行的操作是( )。（分数：2.00）A.单击窗体上没有控件的地方 B.单击任意一个控件C.双击任意一个控件D.单击属性窗口的标题栏解析：解析：单击窗体上没有控件的地方，在属性窗口就会出现窗体的各属性，这样就可对窗体的属性进行设置，故 A 选项正确。单击任意一个控件，在属性窗口中出现的是该控件的属性，故
34、 B 选项错误；双击任意一个控件，打开的是“代码窗口“，故 C 选项错误；单击属性窗口的标题栏，属性窗口成为活动窗口，故 D 选项错误。39.下列操作中不能向工程添加窗体的是( )。（分数：2.00）A.执行“工程“菜单中的“添加窗体“命令B.单击工具栏上的“添加窗体“按钮C.右击窗体，在弹出的菜单中选择“添加窗体“命令 D.右击工程资源管理器，在弹出的菜单中选择“添加“命令，然后在下一级菜单中选择“添加窗体“命令解析：解析：右击窗体，弹出的菜单中没有“添加窗体“命令，故 C 选项错误。40.设 a2， b3， c4， d5， 表达式 Not a “ “ Then t = t + c Else
35、 x = ? If InStr(x, “o“) 0 Then m = m + 1 End If t = “ End If Next i ? = Str(m) End If End If End Sub 程序结束 参考答案 第1 个？处填入：0 第 2 个？处填入：SelLength 第 3 个？处填入：LCase(t) 第 4 个？处填入：Text2 步骤 3：调试并运行程序，关闭程序后按题目要求存盘。)解析：四、综合应用题(总题数：1，分数：2.00)43.考生文件夹下有一个工程文件 sjt5vbp。运行程序后，从文件中读出数据，将其放入一个 55 的二维数组 a 中。请编写程序，找出数组
36、a 中每行的最大值及该值在行中的次序(列下标)，并将所找到的结果分别保存到一维数组 b、c 中(a 中第一行的最大值保存在 b(1)中，最大值的列次序保存在 c(1)中)。 注意：不能修改程序的其他部分和控件属性，最后将修改后的文件按原文件名存盘。程序调试通过后，命令按钮的事件过程必须至少执行一次。（分数：2.00）_正确答案：(正确答案：【操作步骤】 步骤 1：打开本题工程文件。 步骤 2：分析并编写程序代码。 程序提供代码 Dim a(5, 5) As Integer Dim b(5) As Integer Dim c(5) As Integer Private Sub Command1_
37、Click() N = 5 For i = 1 To N 考生编写程序开始 考生编写程序结束 Next i Save End Sub Private Sub Form_Load() read End Sub Public Sub read() Open App.Path & “/Data5.txt“ For Input As #1 Do While Not EOF(1) For i = 1 To 5 For j = 1 To 5 Input #1, a(i, j) Next j Next i Loop Close #1 End Sub Public Sub Save() Open App.Path & “/out5.txt“ For Output As #1 For i = 1 To 5 Print #1, b(i), c(i) Next i Close #1 End Sub 程序结束 参考答案 Max = a(i, 1) For j = 1 To 5 If Max a(i, j) Then Max = a(i, j) End If b(i) = Max If Max = a(i, j) Then c(i) = j Next j 步骤 3：调试并运行程序，关闭程序后按题目要求存盘。)解析：
