[计算机类试卷]国家二级(VB)机试模拟试卷48及答案与解析.doc
《[计算机类试卷]国家二级(VB)机试模拟试卷48及答案与解析.doc》由会员分享,可在线阅读,更多相关《[计算机类试卷]国家二级(VB)机试模拟试卷48及答案与解析.doc(31页珍藏版)》请在麦多课文档分享上搜索。
1、国家二级( VB)机试模拟试卷 48及答案与解析 一、选择题 1 窗体上有一个名称为 CD1的通用对话框,一个名称为 Command1的命令按钮,其事件过程如下: Private Sub Command1_Click() CD1.Filter = “All File|*.*|Word|*.Doc|*.exe|*.exe“ CD1.FilterIndex = 2 CD1.DialogTitle = “Open File“ CD1.FileName = “E:Test.doc“ CD1.InitDir = “E:“ CD1.ShowOpen End Sub 对于以上程序,以下叙述中错误的是 ( A
2、)程序的功能是打开文件名为 E:Test.doc的文件 ( B) CD1被激活为 “打开 “文件对话框 ( C)对话框的标题是 “Open File“ ( D)打开对话框时的默认文件类型是 .Doc文件 2 以下关于使用菜单编辑器设计菜单的叙述中错误的是 ( A)若菜单项的 “可见 “选项被标记为 “,该菜单项不显示在菜单中 ( B)若菜单项的 “有效 “选项未标记为 “,该菜单项 显示为灰色 ( C)菜单中各菜单项可以是控件数组元素 ( D)菜单项中的分隔条也必须有唯一的名称 3 窗体的单击事件过程如下: Private Sub Form_Click() x = InputBox(“Inpu
3、t X:“) Select Case Sgn(x) Case -1 Print “y=“; x * Sgn(x) Case 0 Print “y=“; Sgn(x) * 5 Case 1 Print “y=“; x * Sgn(x) + 1 Case Else Print “y=“; 10 End Select End Sub 运行程序时,单击窗体,以下叙述中错误的是 ( A)当输入值为 2时,输出为 y=10 ( B)当输入值为 -1时,输出为 y=1 ( C)当输入值为 0时,输出为 y=0 ( D)当输入值为 1时,输出为 y=2 4 窗体的单击事件过程如下: Private Sub F
4、orm_Click() K = 1 For i = 5 To 1 Step -1 T = T * 10 + K S = S + T Next i Print S End Sub 运行程序时,单击窗体后,显示的是 ( A) 12345 ( B) 54321 ( C) 0 ( D) 11111 5 窗体的单击事件过程代码如下: Private Sub Form_Click() Dim a(5, 5) As Integer For i = 1 To 5 For j = 1 To 5 a(i, j) = i + j Print a(i, j); Next j Print Next i End Sub
5、运行程序,单击窗体后,窗体上显示的是 ( A) 2 3 4 5 6 3 4 5 6 7 4 5 6 7 8 5 6 7 8 9 6 7 8 9 10 ( B) 1 2 3 4 5 2 3 4 5 6 3 4 5 6 7 4 5 6 7 8 5 6 7 8 9 ( C) 3 4 5 6 7 4 5 6 7 8 5 6 7 8 9 6 7 8 9 10 7 8 9 10 11 ( D) 2 3 4 5 6 6 窗体上有名称为 Command1的命令按钮,程序代码如下: Dim x As Integer, y As Integer, z As Integer Sub p(a As Integer,
6、ByVal b As Integer) Dim c As Integer a = a * 2 b = b + 2 z = a + b End Sub Private Sub Form_Click() x = 4: y = 5: z = 6 Call p(x, y) Print x, y, z End Sub 运行程序,单击命令按钮后,窗体上显示的是 ( A) 8 5 15 ( B) 4 5 6 ( C) 4 5 15 ( D) 8 10 15 7 程序代码如下: Option Base 1 Private Sub Form_Click() Dim a(5, 5) As Integer Rand
7、omize For i = 1 To 5 For j = 1 To 5 If i = j Then a(i, j) = 1 Else a(i, j) = Int(Rnd * 50) End If Print a(i, j); Next j Print Next i End Sub 以下关于上述程序的叙述中,错误的是 ( A)程序为 数组 a的所有元素赋了随机值 ( B) Randomize的作用是避免同一序列随机数的反复出现 ( C)程序产生随机数的范围是大于等于 0,小于 50 ( D)输出结果组成的方阵中对角线上的值为 1 8 窗体上有一个名称为 Combo1的组合框。在组合框的文本输入区
8、输入字符串并按回车后,检查该字符串是否在组合框中已存在。若不存在,则将其添加到组合框中。相关的事件过程如下: Private Sub Combo1_KeyPress(KeyAscii As Integer) Dim flag As Boolean If KeyAscii = 13 Then flag = False For i = 0 To Combo1.ListCount - 1 If Combo1.Text = Combo1.List(i) Then flag = True Exit For End If Next i If flag = False Then Combo1.AddItem
9、 Combo1.Text End If End If End Sub 对于上述事件过程,以下叙述中错误的是 ( A)程序有错,不应该使用 Exit For ( B) flag为 True时,表明输入的字符串已存在 ( C)参数 KeyAscii表示输入字符的 ASCII码 ( D) flag = False的含义是组合框中没有与输入字符串相同的表项 9 窗体上有一个名称为 Text1的文本框,名称为 Check1的两个复选框构成的控件数组,下标分别为 1、 2。窗体外观如图所示。 要求在程序运行时,改变复选框选中状态,则文本框中文本的字体做相应变化。为此,某人编写了如下程序代码: Privat
10、e Sub Check1_Click(Index As Integer) If Index=1 And Check1(1).Value then Text1.FontItalic=True Else Text1.FontItalic=False End If If Check1(2).value=1 then Text1.FontBold=True End If If Check1(2).value=0 Then Text1.FontBold=False End IfEnd Sub但是,以上程序在运行中不能完 全达到要求,应进行修改,下面正确的修改是 ( A)将 If Index=1 And
11、Check1(1).Value Then 改为 If Check1(1).Value Then ( B)将第 1个 If条件中的 Check1(1).Value 改为 Check1(1).Value =True ( C)将第 2个 If条件中的 Check1(2).Value=1 改为 Check1(2).Value =True ( D)将第 3个 If条件中的 Check1(2).Value=0改为 Check1(2).Value= False 10 工程文件包含 Form1、 Form2两个窗体。 Form1有包含二个菜单命令的菜单;Form2上有一个名称为 Command1的命令按钮,如
12、图所示。Form1中菜单项 “隐藏Form1“的单击事件过程代码如下: Private Sub hideF1_Click() Form1.HideEnd SubForm1中菜单项 “显示 Form2“的单击事件过程代码如下: Private Sub showF2_Click() Form2.ShowEnd SubForm2的程序代码如下: Private Sub Command1_Click() Form1.ShowEnd Sub以下关于上述程序的叙述中,正确的是 ( A) Form1中定义的菜单只出现在 Form1 ( B)执行 Form2的命令按钮单击事件过程,显示 Form1的同时隐藏
13、Form2 ( C) Form1的 2个菜单命令都能隐藏 Form1 ( D)执行 “隐藏 Form1“菜单命令会出错,因为没有窗体被打开 11 编写程序,要求输入一个正整数,计算各位数字之和,并将计算结果显示在窗体上。程序如下: Private Sub Command1_Click() Dim Sum As Integer, k As Long k = Val(InputBox(“输入正整数: “) Do While k 0 Sum = Sum + ( _ ) k = k 10 Loop Print Sum End Sub 程序不完整,应该在 _ 处填写的内容是 ( A) k Mod 10
14、( B) k ( C) left(CStr(k), 1 ( D) mid (CStr(k), 1, 1) 12 窗体上有一个名称 为 Command1的命令按钮,一个名称为 List1的列表框。命令按钮的单击事件过程如下: Private Sub Command1_Click() Open “c:f1.txt“ For Input As #1 Do While Not EOF(1) Input #1, str1 List1.AddItem str1 Loop Close End Sub 对于上述程序,以下叙述中错误的是 ( A)以输入方式打开随机文件 f1.txt ( B) Close的作用是
15、关闭已经打开的数据文件 ( C)单击命令按钮后,把 f1.txt中的所有内容添加到列表框中 ( D)运行程序后,列表框中的列表项都是 f1.txt中的记录 13 在最坏情况下 ( A)快速排序的时间复杂度比冒泡排序的时间复杂度要小 ( B)快速排序的时间复杂度比希尔排序的时间复杂度要小 ( C)希尔排序的时间复杂度比直接插入排序的时间复杂度要小 ( D)快速排序的时间复杂度与希尔排序的时间复杂度是一样的 14 在深度为 7的满二叉树中,度为 2的结点个数为 ( A) 64 ( B) 63 ( C) 32 ( D) 31 15 设栈的顺序存储空间为 S(1: m),初始状态为 top=m+1。现
16、经过一系列入栈与退栈运算后, top=20,则当前栈中的元素个数为 ( A) 30 ( B) 20 ( C) m-19 ( D) m-20 16 算法空间复杂度的度量方法是 ( A)算法程序的长度 ( B)算法所处理的数据量 ( C)执行算法所需要的工作单元 ( D)执行算法所需要的存储空间 17 下面不属于软件开发阶段任务的是 ( A)测试 ( B)可行性研究 ( C)设计 ( D)实现 18 下面属于字符类 的实例是 ( A) 518 ( B) 5 ( C) nm ( D) n 19 某系统结构图如下图所示 该系统结构图的最大扇出数是 ( A) n ( B) 1 ( C) 3 ( D) 4
17、 20 一个兴趣班可以招收多名学生,而一个学生可以参加多个兴趣班。则实体兴趣班和实体学生之间的联系是 ( A) 1:1联系 ( B) 1:m联系 ( C) m:1联系 ( D) m:n联系 21 有三个关系表 R、 S和 T如下,其中三个关系对应的关键字分别为 A, B和复合关键字( A, B)。 表 T的记录项( b,q,4)违反了 ( A)实 体完整性约束 ( B)参照完整性约束 ( C)用户定义的完整性约束 ( D)关系完整性约束 22 在数据库系统中,给出数据模型在计算机上物理结构表示的是 ( A)概念数据模型 ( B)逻辑数据模型 ( C)物理数据模型 ( D)关系数据模型 23 以
18、下合法的 VB变量名是 ( A) x_ ( B) 3x ( C) var name ( D) print 24 VB变量 x! 的数据类型是 ( A)单精度类型 ( B)字符串类型 ( C)整型 ( D)双精度类型 25 以下关于方法的叙述中,错误的是 ( A)在调用方法时,对象名称是必不可缺少的 ( B)方法是一种特殊的过程或函数 ( C)不同对象的方法可以同名 ( D)方法可以带有参数 26 设有名称为 p的 Sub过程首行,其形式参数是一维整型数组,以下定义语句中正确的是 ( A) Private Sub p(A() As Integer) ( B) Private Sub p(A(10
19、) As Integer) ( C) Private Sub p(ByVal A() As Integer) ( D) Private Sub p(A As Integer) 27 语句 Print String(3, “string“)的功能是 ( A)在窗体上显示字符串 sss ( B)把数值型数据 3转换为字符串 ( C)从字符串 string左起取出 3个字符输出 ( D)从字符串 string第 3个字符开始至末尾取子字符串 28 Print Abs(-52)+Int(-52)的输出结果是 ( A) 0 ( B) 1 ( C) -1 ( D) -50 29 设程序中分别将 a、 b、
20、 c、 d定义为布尔型、整型、字符串型、日期型变量,下列赋值语句错误的是 ( A) a= #True# ( B) b=4.6 ( C) c=5 & 10 ( D) d=#2013/01/01# 30 以下叙述中错误的是 ( A)事件过程可以像通用过程一样由用户指定过程名 ( B)在 Sub过程中可以调用其它过程 ( C)在 Sub过程中不能定义其它过程 ( D)如果过程被定义为 Static类型,则该过程中的局部变量都是 Static类型 31 以下语句或语句组中,不能找出 x、 y中最大值的是 ( A) If y x Then Max = y: Max = x ( B) Max = x: I
21、f y = x Then Max = y ( C) If x y Then Max = x Else Max = y ( D) Max = IIf(x y, x, y) 32 为了建立随机文件,要求文件的每条记录应包含多个不同数据类型的数据项,则记录应使用的数据类型是 ( A)记录类型 ( B)字符串类型 ( C)字符串数组 ( D)变体类型 33 以下控件中,能够作为容器使用的是 ( A)图片框 ( B)形状控件 ( C)图像框 ( D)标签 34 窗体上有一个名称 Command1的命令按钮,为了使按 回车键与单击该命令按钮的效果相同,需要将该命令按钮的一个属性值设置为 True,这个属性
22、是 ( A) Default ( B) Value ( C) Cancel ( D) Enabled 35 以下文本框控件的事件中,能够获得 KeyCode值的是 ( A) KeyDown ( B) KeyPress ( C) Click ( D) Change 36 设列表框 List1中有若干列表项。没有任何列表项被选中时,就执行List1.RemoveItem List1.ListIndex语句,执行结果是 ( A)出错 ( B)移去第一项 ( C)移去最后一项 ( D)移去最后加入列表的一项 37 若要将单选按钮 Opt1设为被选中,应设置的属性是 ( A) Value ( B) Se
23、lected ( C) Enabled ( D) SetFocus 38 窗体上有一个名称为 Combo1的组合框,引用 Combo1中最后一个列表项应使用的表达式是 ( A) Combo1.List(Combo1.ListCount - 1) ( B) Combo1.List(ListCount) ( C) Combo1.List(ListCount - 1) ( D) Combo1.List(Combo1.ListCount) 39 以下关于菜单的叙述中,错误的是 ( A)若要求菜单项不能被选中(即灰色),应设置菜单项的 Visible属性为 False ( B)菜单项只响应单击事件 (
24、C)菜单项既可以是单个控件,也可以构成控件数组 ( D)单击右键弹出的快捷菜单可以在菜单编辑器中定义 40 若要把一个窗体从内存中删除,应该使用的方法是 ( A) UnLoad ( B) Hide ( C) Load ( D) Show 二、基本操作题 41 (1)在名称为 Forml的窗体上添加一个名称为 Shapel的形状控件,通过设置参数使其形状为圆形;添加一个名称为 Labell的标签,标题为 “形状 ”,标签的大小能够根据标签内容的字数、大小而定;添加一个名称为 Textl的文本框,文本框最多能够显示 5个字符,文本框中初始内容为 “圆形 ”,如图所示。注意:存盘时,将文件保存至考生
- 1.请仔细阅读文档,确保文档完整性,对于不预览、不比对内容而直接下载带来的问题本站不予受理。
- 2.下载的文档,不会出现我们的网址水印。
- 3、该文档所得收入(下载+内容+预览)归上传者、原创作者;如果您是本文档原作者,请点此认领!既往收益都归您。
下载文档到电脑,查找使用更方便
2000 积分 0人已下载
下载 | 加入VIP,交流精品资源 |
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 计算机 试卷 国家 二级 VB 模拟 48 答案 解析 DOC
