【计算机类职业资格】国家二级(VB)机试-试卷12及答案解析.doc
《【计算机类职业资格】国家二级(VB)机试-试卷12及答案解析.doc》由会员分享,可在线阅读,更多相关《【计算机类职业资格】国家二级(VB)机试-试卷12及答案解析.doc(16页珍藏版)》请在麦多课文档分享上搜索。
1、国家二级(VB)机试-试卷 12 及答案解析(总分:86.00,做题时间:90 分钟)一、选择题(总题数:40,分数:80.00)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.S
2、howOpenEnd Sub 对于以上程序,以下叙述中错误的是(分数:2.00)A.程序的功能是打开文件名为 E:/Test.doc 的文件B.CD1 被激活为“打开“文件对话框C.对话框的标题是“Open File“D.打开对话框时的默认文件类型是.Doc 文件2.以下关于使用菜单编辑器设计菜单的叙述中错误的是(分数:2.00)A.若菜单项的“可见“选项被标记为“,该菜单项不显示在菜单中B.若菜单项的“有效“选项未标记为“,该菜单项显示为灰色C.菜单中各菜单项可以是控件数组元素D.菜单项中的分隔条也必须有唯一的名称3.窗体的单击事件过程如下:Private Sub Form_Click()
3、x = InputBox(“Input 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 SelectEnd Sub 运行程序时,单击窗体,以下叙述中错误的是(分数:2.00)A.当输入值为 2 时,输出为 y=10B.当输入值为-1 时,输出为 y=1C.当输入值为 0 时,输出为 y=0D.当输入值为 1 时,输出为 y=24.窗体的单击事件过程如
4、下: Private Sub Form_Click() K = 1 For i = 5 To 1 Step -1 T = T * 10 + K S = S + T Next i Print SEnd Sub 运行程序时,单击窗体后,显示的是(分数:2.00)A.12345B.54321C.0D.111115.窗体的单击事件过程代码如下: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 iEnd
5、 Sub 运行程序,单击窗体后,窗体上显示的是(分数:2.00)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 10B.1 2 3 4 5 2 3 4 5 6 3 4 5 6 7 4 5 6 7 8 5 6 7 8 9C.3 4 5 6 7 4 5 6 7 8 5 6 7 8 9 6 7 8 9 10 7 8 9 10 11D.2 3 4 5 66.窗体上有名称为 Command1 的命令按钮,程序代码如下:Dim x As Integer, y As Integer, z As IntegerSub p(a As Integer, ByVa
6、l b As Integer) Dim c As Integer a = a * 2 b = b + 2 z = a + bEnd SubPrivate Sub Form_Click() x = 4: y = 5: z = 6 Call p(x, y) Print x, y, zEnd Sub 运行程序,单击命令按钮后,窗体上显示的是(分数:2.00)A.8 5 15B.4 5 6C.4 5 15D.8 10 157.程序代码如下: Option Base 1Private Sub Form_Click() Dim a(5, 5) As Integer Randomize For i = 1
7、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 iEnd Sub 以下关于上述程序的叙述中,错误的是(分数:2.00)A.程序为数组 a 的所有元素赋了随机值B.Randomize 的作用是避免同一序列随机数的反复出现C.程序产生随机数的范围是大于等于 0,小于 50D.输出结果组成的方阵中对角线上的值为 18.窗体上有一个名称为 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 Combo1.Text End If E
9、nd IfEnd Sub 对于上述事件过程,以下叙述中错误的是(分数:2.00)A.程序有错,不应该使用 Exit ForB.flag 为 True 时,表明输入的字符串已存在C.参数 KeyAscii 表示输入字符的 ASCII 码D.flag = False 的含义是组合框中没有与输入字符串相同的表项9.窗体上有一个名称为 Text1 的文本框,名称为 Check1 的两个复选框构成的控件数组,下标分别为1、2。窗体外观如图所示。 (分数:2.00)A.将 If Index=1 And Check1(1).Value Then 改为 If Check1(1).Value ThenB.将第
10、1 个 If 条件中的 Check1(1).Value 改为 Check1(1).Value =TrueC.将第 2 个 If 条件中的 Check1(2).Value=1 改为 Check1(2).Value =TrueD.将第 3 个 If 条件中的 Check1(2).Value=0 改为 Check1(2).Value= False10.工程文件包含 Form1、Form2 两个窗体。Form1 有包含二个菜单命令的菜单;Form2 上有一个名称为Command1 的命令按钮,如图所示。 (分数:2.00)A.Form1 中定义的菜单只出现在 Form1B.执行 Form2 的命令按钮
11、单击事件过程,显示 Form1 的同时隐藏 Form2C.Form1 的 2 个菜单命令都能隐藏 Form1D.执行“隐藏 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 程序不完整,应该在_ 处填写的内容是(
12、分数:2.00)A.k Mod 10B.kC.left(CStr(k), 1D.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 CloseEnd Sub 对于上述程序,以下叙述中错误的是(分数:2.00)A.以输入方式打开随机文件 f1.txtB.Cl
13、ose 的作用是关闭已经打开的数据文件C.单击命令按钮后,把 f1.txt 中的所有内容添加到列表框中D.运行程序后,列表框中的列表项都是 f1.txt 中的记录13.在最坏情况下(分数:2.00)A.快速排序的时间复杂度比冒泡排序的时间复杂度要小B.快速排序的时间复杂度比希尔排序的时间复杂度要小C.希尔排序的时间复杂度比直接插入排序的时间复杂度要小D.快速排序的时间复杂度与希尔排序的时间复杂度是一样的14.在深度为 7 的满二叉树中,度为 2 的结点个数为(分数:2.00)A.64B.63C.32D.3115.设栈的顺序存储空间为 S(1: m),初始状态为 top=m+1。现经过一系列入栈
14、与退栈运算后,top=20,则当前栈中的元素个数为(分数:2.00)A.30B.20C.m-19D.m-2016.算法空间复杂度的度量方法是(分数:2.00)A.算法程序的长度B.算法所处理的数据量C.执行算法所需要的工作单元D.执行算法所需要的存储空间17.下面不属于软件开发阶段任务的是(分数:2.00)A.测试B.可行性研究C.设计D.实现18.下面属于字符类的实例是(分数:2.00)A.518B.5C.nmD./n19.某系统结构图如下图所示 (分数:2.00)A.nB.1C.3D.420.一个兴趣班可以招收多名学生,而一个学生可以参加多个兴趣班。则实体兴趣班和实体学生之间的联系是(分数
15、:2.00)A.1:1 联系B.1:m 联系C.m:1 联系D.m:n 联系21.有三个关系表 R、S 和 T 如下,其中三个关系对应的关键字分别为 A,B 和复合关键字(A,B)。(分数:2.00)A.实体完整性约束B.参照完整性约束C.用户定义的完整性约束D.关系完整性约束22.在数据库系统中,给出数据模型在计算机上物理结构表示的是(分数:2.00)A.概念数据模型B.逻辑数据模型C.物理数据模型D.关系数据模型23.以下合法的 VB 变量名是(分数:2.00)A.x_B.3xC.var nameD.print24.VB 变量 x! 的数据类型是(分数:2.00)A.单精度类型B.字符串类
16、型C.整型D.双精度类型25.以下关于方法的叙述中,错误的是(分数:2.00)A.在调用方法时,对象名称是必不可缺少的B.方法是一种特殊的过程或函数C.不同对象的方法可以同名D.方法可以带有参数26.设有名称为 p 的 Sub 过程首行,其形式参数是一维整型数组,以下定义语句中正确的是(分数:2.00)A.Private Sub p(A() As Integer)B.Private Sub p(A(10) As Integer)C.Private Sub p(ByVal A() As Integer)D.Private Sub p(A As Integer)27.语句 Print String
17、(3, “string“)的功能是(分数:2.00)A.在窗体上显示字符串 sssB.把数值型数据 3 转换为字符串C.从字符串 string 左起取出 3 个字符输出D.从字符串 string 第 3 个字符开始至末尾取子字符串28.Print Abs(-52)+Int(-52)的输出结果是(分数:2.00)A.0B.1C.-1D.-5029.设程序中分别将 a、b、c、d 定义为布尔型、整型、字符串型、日期型变量,下列赋值语句错误的是(分数:2.00)A.a= #True#B.b=4.6C.c=5 x * Sgn(x) Case 0 Print “y=“; Sgn(x) * 5 Case
18、1 Print “y=“; x * Sgn(x) + 1 Case Else Print “y=“; 10 End SelectEnd Sub 运行程序时,单击窗体,以下叙述中错误的是(分数:2.00)A.当输入值为 2 时,输出为 y=10 B.当输入值为-1 时,输出为 y=1C.当输入值为 0 时,输出为 y=0D.当输入值为 1 时,输出为 y=2解析:解析:程序大意是,当输入的数字为负数时,y=x*(-1);当输入数字为 0 时,y=0*5=0;当输入数字为正数时,y=x*1+1。经过验证,B 项,C 项,D 项表述都正确。对于 A 项,当输入值为 2 时,y=3,故 A 项表述错误
19、。4.窗体的单击事件过程如下: Private Sub Form_Click() K = 1 For i = 5 To 1 Step -1 T = T * 10 + K S = S + T Next i Print SEnd Sub 运行程序时,单击窗体后,显示的是(分数:2.00)A.12345 B.54321C.0D.11111解析:解析:Step -1 表述步长为-1,For 循环体从 i=5 执行到 i=1(i=5,4,3,2,1)。T 和 S 默认值为0,当 i=5 时,T=0*10+1=1,S=0+1=1;当 i=4 时,T=1*10+1=11,S=1+11=12;当 i=3 时,
20、T=111,S=123;依次类推,当 i=1 时,T=11111,S=12345,故选择 A 项。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 iEnd Sub 运行程序,单击窗体后,窗体上显示的是(分数:2.00)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
21、 6 3 4 5 6 7 4 5 6 7 8 5 6 7 8 9C.3 4 5 6 7 4 5 6 7 8 5 6 7 8 9 6 7 8 9 10 7 8 9 10 11D.2 3 4 5 6解析:解析:本程序主要是先定义 a(5, 5)的数组,然后当 i 从 1 到 5 时,j 从 1 到 5 时,对二维整型数组 a(5,5)中的部分元素赋值 a(i,j) =i +j,最后输出数组 a 中的这部分元素值,得到 A 项的显示结果。6.窗体上有名称为 Command1 的命令按钮,程序代码如下:Dim x As Integer, y As Integer, z As IntegerSub p(
22、a As Integer, ByVal b As Integer) Dim c As Integer a = a * 2 b = b + 2 z = a + bEnd SubPrivate Sub Form_Click() x = 4: y = 5: z = 6 Call p(x, y) Print x, y, zEnd Sub 运行程序,单击命令按钮后,窗体上显示的是(分数:2.00)A.8 5 15 B.4 5 6C.4 5 15D.8 10 15解析:解析:a 参数是传地址的,即变量将地址传递给实参 a,a 的变化能改变了变量的值;ByVal 在参数b 前,表明参数 b 是传值参数,将变
23、量值传给实参 b,b 的变化不影响变量变化。调用 p(x,y),变量 x将地址传递给实参 a,变量 y 将值传递给实参 b,a=4*2=8,b=5+2=7,z=15。a 的变化,改变了 x 的值,x=a=8,b 的变化并不改变 y 的值,y 仍为 5,z 为 15,故选择 A 项。7.程序代码如下: Option Base 1Private Sub Form_Click() Dim a(5, 5) As Integer Randomize For i = 1 To 5 For j = 1 To 5 If i = j Then a(i, j) = 1 Else a(i, j) = Int(Rnd
24、 * 50) End If Print a(i, j); Next j Print Next iEnd Sub 以下关于上述程序的叙述中,错误的是(分数:2.00)A.程序为数组 a 的所有元素赋了随机值 B.Randomize 的作用是避免同一序列随机数的反复出现C.程序产生随机数的范围是大于等于 0,小于 50D.输出结果组成的方阵中对角线上的值为 1解析:解析:本题中,Rnd(x)是一个随机函数,它能产生一个 0 到 1 之间(不包括 0 和 1)之间的单精度随机数,其中变量 x 是种子数,若省略 x,Rnd 函数采用系统时间为种子值。Randomize 省略了参数,用系统计时器 返回的
- 1.请仔细阅读文档,确保文档完整性,对于不预览、不比对内容而直接下载带来的问题本站不予受理。
- 2.下载的文档,不会出现我们的网址水印。
- 3、该文档所得收入(下载+内容+预览)归上传者、原创作者;如果您是本文档原作者,请点此认领!既往收益都归您。
下载文档到电脑,查找使用更方便
5000 积分 0人已下载
下载 | 加入VIP,交流精品资源 |
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 计算机 职业资格 国家 二级 VB 试试 12 答案 解析 DOC
