【计算机类职业资格】二级VISUAL+BASIC笔试75及答案解析.doc
《【计算机类职业资格】二级VISUAL+BASIC笔试75及答案解析.doc》由会员分享,可在线阅读,更多相关《【计算机类职业资格】二级VISUAL+BASIC笔试75及答案解析.doc(15页珍藏版)》请在麦多课文档分享上搜索。
1、二级 VISUAL+BASIC 笔试 75 及答案解析(总分:96.00,做题时间:90 分钟)一、B选择题/B(总题数:35,分数:70.00)1.为了使列表框中的项目分为多列显示,需要设置的属性为(分数:2.00)A.ColumnsB.StyleC.ListD.MultiSelect2.使用 Do While 循环从打开的文件中逐条读取记录。以下能够正确读取数据的程序段是(分数:2.00)A.Open “c:/File1txt“ For Input As #1 Do While Not EOF() Line Input #1, strLine LoopB.Open “c:/File1txt
2、“ For Input As#1 Do While Not EOF(#1) Line Input #1, strLine LoopC.FileNo=FreeFile Open FileNo For Input As #1 Do While Not EOF(FileN Line Input #1, strLine LoopD.FileNo=FreeFile Open FileNo For Input As #1 DoWhile Not EOF(#FileN Line Input #1, strLine Loop3.在窗体上画两个名称分别为 Text1、Text2 的文本框和一个名称为 Comma
3、nd1 的命令按钮,然后编写如下事件过程: Private Sub Command1 Click() Dim x As Integer, n As Integer x = 1 n = 0 Do While x 20 x = x * 3 n = n + 1 Loop Text1Text = Str(x) Text2Text = Str(n) End Sub 程序运行后,单击命令按钮,在两个文本框中显示的值分别是(分数:2.00)A.15 和 1B.27 和 3C.195 和 3D.600 和 44.以下 Case 语句中错误的是(分数:2.00)A.Case 0 To 8B.Case Is5C.
4、Case Is0 And Is6D.Case 1,3,Is55.函数 Int(Rnd*6+1)的取值范围是(分数:2.00)A.17 共 7 个整数B.07 共 8 个整数C.16 共 6 个整数D.06 共 7 个整数6.在深度为 5 的满二叉树中,叶子结点的个数为(分数:2.00)A.32B.31C.16D.157.以下语句的输出结果是 a=Sqr(3) Print Format(a,“$#“)(分数:2.00)A.$1.732B.$1.732C.$1732D.$0001.7328.为了同时改变一个活动控件的高度和宽度,正确的操作是(分数:2.00)A.拖拉控件 4 个角上的某个小方块B.
5、只能拖拉位于控件右下角的小方块C.只能拖拉位于控件左下角的小方块D.不能同时改变控件的高度和宽度9.序言性注释的主要内容不包括(分数:2.00)A.模块的接口B.模块的功能C.程序设计者D.数据的状态10.在窗体上画一个名称为 Command1 的命令按钮,然后编写如下事件过程: Prirate Sub Command1_Click() s = 0 For i=1 To 13 x = i * i-1 If x Mod 3 = 0 Then s = s + 1 Next i Print s End Sub 程序运行后,单击命令按钮,则窗体中显示的内容是(分数:2.00)A.1B.5C.27D.4
6、511.假定 Picturel 和 Text1 分别为图片框和文本框的名称,下列不正确的语句是(分数:2.00)A.Print 25B.PicturePrint 25C.Text1Print 25D.Text1Text=Print 2512.适用于链表的查找方法是(分数:2.00)A.顺序B.二分法C.顺序,也能二分法D.随机13.在窗体上画一个名称为 CoilTlilandl 的命令按钮,然后编写如下事件过程: Private Sub command1 Click() Dim m As Integer, i As Integer, x(3)As Integer For i=0 To 3:x(
7、i)=i:Next i For i = 1 To 2: Call sub1(x,i):Next i For i = 0 To 3: Print x(i);: Next i End Sub Private Sub sub1(a()As Integer,k As Integer) Dim i As Integer Do a(k)=a(k)+a(k+1) j = j + 1 Loop While j 2 End Sub 程序运行后,单击命令按钮,则窗体上显示的内容是(分数:2.00)A.0 3 7 5B.0 1 2 3C.3 2 4 5D.0 5 8 314.Load 事件是在窗体被载入工作区时_触
8、发的事件。(分数:2.00)A.用户B.程序员C.手工D.自动15.在调用含有对象的过程时,对象只能通过_传送。(分数:2.00)A.传址方式B.传值方式C.数组方式D.变量方式16.假定有一菜单项,名为 MenuItem,为了运行时使该菜单项失效(变灰),应使用的语句为(分数:2.00)A.MenuIteEnabled=FalseB.MenuIteEnabled=TrueC.MenuIteVisible=FalseD.MenuIteVisible=True17.设 a=3,b=10,c=6,以下表达式的值是 a b And (Not bc) Or ca(分数:2.00)A.1B.-1C.Tu
9、reD.False18.下列程序执行后,在 Ctrl 和 Alt 这两个键都被按下的同时,再在文本框中输入“a”,输出结果为 Prirate Sub Text1_KeyDown(KeyCode As Integer,Shift As Integer) If Shift 0 And KeyCode = Asc(“A“)Then Print KeyCode + Shift End If End Sub(分数:2.00)A.65B.71C.0D.出错19.阅读下列程序: Private Sub Form Click() Dim i As Integer, sum As Integer For i =
10、 2 To 10 If i Mod 2 0 Then Print i; Else sum = sum + i End If Next i Print sum End Sub 程序运行后,单击窗体,在窗体上的输出结果是(分数:2.00)A.3 5 7 9 30B.1 3 5 7 9C.2 4 6 8 20D.11 15 17 19 2020.下列打开“代码窗口”的操作中不正确的是(分数:2.00)A.按 F4 键B.单击“工程资源管理器”窗口中的“查看代码”按钮C.双击已建立好的控件D.执行“视图”菜单中的“代码窗口”命令21.一个供应商可供应多种零件,而一种零件可由多个供应商供应,则实体供应商
11、与零件之间的联系是(分数:2.00)A.一对一B.一对多C.多对一D.多对多22.在数据流图中,(椭圆)代表(分数:2.00)A.源点B.终点C.加工D.模块23.设栈 S 和队列 Q 的初始状态为空。元素 a、b、c、d、e、f 依次通过栈 S,并且一个元素出栈后即进入队列 Q,若出队的顺序为 b、d、c、f、e、a,则栈 S 的容量至少应该为(分数:2.00)A.3B.4C.5D.624.以下关于函数过程的叙述中,正确的是(分数:2.00)A.函数过程中形参的类型与函数返回值的类型没有关系B.在函数过程中,过程的返回值可以有多个C.当数组作为函数过程的参数时,既能以传值方式传递,也能以传址
12、方式传递D.如果不指明函数过程参数的类型,则该参数没有数据类型25.在窗体上画一个名称为 Command1 的命令按钮,然后编写如下事件过程: Private Sub Command1 Click() a = 2 For i=1 To 3 Call funl(i,a) Next i x = i + 2 Print x;a End Sub Private Sub fun1(n,m) m=m + n * 2 n = n + m End Sub 程序运行后,单击命令按钮,则窗体上显示的内容是(分数:2.00)A.1 5B.4 5C.8 4D.3 426.为了改变一个活动控件的高度,正确的操作是(分数
13、:2.00)A.拖拉控件 4 个角上的某个小方块B.只能拖拉位于控件右下角的小方块C.只能拖拉位于控件左下角的小方块D.拖拉位于控件上方或下方的小方块27.有下列程序: Private Sub Command1_Click() X$=“Nanchang“ y$=“Beijing“ z$=“Nanjing“ z$=InStr(Left(x$,3)+Right(y$,4),z$) Print z$ End Sub 程序运行后,单击命令按钮,则窗体上显示的内容是(分数:2.00)A.0B.1C.3D.428.以下关系表达式中,其值为 False 的是(分数:2.00)A.“XYZ“XYz“B.“Vi
14、sualBasic“=“visualbasic“C.“the“there“D.“Integer“Int“29.软件测试的过程是 集成测试 验收测试 系统测试 单元测试(分数:2.00)A.、B.、C.、D.、30.数据的逻辑独立性是指(分数:2.00)A.存储结构与物理结构的逻辑独立性B.数据与存储结构的逻辑独立性C.数据与程序的逻辑独立性D.数据元素之间的逻辑独立性31.在窗体上画一个名称为 Command1 的命令按钮,然后编写如下代码: Option Base 1 Private Sub Command1 Click() d = 0 :c = 10 x=Array(10,12,21,32
15、,24) For i = 1 To 5 If x(i) c Then d = d + x(i) c = x(i) Else d = d-c End If Next i Print d End Sub 程序运行后,如果单击命令按钮,则在窗体上输出的内容为(分数:2.00)A.89B.99C.23D.7732.假定窗体的名称为 Form1,对该窗体编写如下代码: Private Sub Form_Load() Form1Caption=“计算机“ MeCaption=“等级“ Caption=“考试“ End Sub 程序运行后,窗体的标题是(分数:2.00)A.计算机B.等级C.考试D.Form
16、133.执行下列语句后,显示输入对话框,此时如果单击“确定”按钮,则变量 s1 的内容是 s1=InputBox(“请输入字符串“,“字符串对话框“,“字符串“)(分数:2.00)A.0B.请输入字符串C.字符串对话框D.字符串34.算法计算量的大小称为算法的(分数:2.00)A.现实性B.难度C.复杂性D.效率35.希尔排序法属于(分数:2.00)A.交换类排序法B.插入类排序法C.选择类排序法D.建堆排序法二、B填空题/B(总题数:13,分数:26.00)36.在单链表中,要删除一个指定的结点,必须要找到该结点的U 【1】 /U。(分数:2.00)填空项 1:_37.假设一棵二叉树的后序遍
17、历序列为 DGJHEBIFCA,中序遍历序列为 DBGEHJACIF,则其前序遍历序列为U 【2】 /U。(分数:2.00)填空项 1:_38.类是具有共同属性、共同操作方法的对象的集合,所以类是对象的U 【3】 /U。(分数:2.00)填空项 1:_39.软件工程概念的出现源自U 【4】 /U。(分数:2.00)填空项 1:_40.数据库三级模式体系结构的划分,有利于保持数据库的U 【5】 /U。(分数:2.00)填空项 1:_41.在属性窗口中,属性列表可以按两种顺序排列,这两种顺序是U 【6】 /U和U 【7】 /U。(分数:2.00)填空项 1:_42.控件和窗体的 Name 属性只能
18、通过属性窗口设置,不能在U 【8】 /U期间设置。(分数:2.00)填空项 1:_43.为了在运行时将“d:/pic”文件夹下的图形文件“a.jpg”装入图片框 Picture1,所使用的语句为U【9】 /U。(分数:2.00)填空项 1:_44.编写程序,当按下某个键时,在窗体上分别以十六进制和八进制形式输出该键的 KeyCode 码。请完善下列程序。 Private Sub Form_KeyDown(KeyCode As Integer,Shift As Integer) Print Chr(KeyCode)&“键的十六进制 KeyCode 码是“; PrintU 【10】 /U Prin
19、t“八进制 KeyCode 码是“;Oct(KeyCode) End Sub(分数:2.00)填空项 1:_45.假定有一个文本框,其名称为 Text1,为了使该文本框具有焦点,应执行的语句是U 【11】 /U。(分数:2.00)填空项 1:_46.在 3 种不同类型的组合框中,只能选择而不能输入数据的组合框是U 【12】 /U。(分数:2.00)填空项 1:_47.当运行下列程序,单击窗体后,分别输入 72 和 24,信息框上显示的结果是U 【13】 /U。 Private Sub Form_Click() Dim x As Integer,y As Integer x=Val(InputB
20、ox(“输入整数 72“) y=Val(InputBox(“输入整数 24“) z=fun1(x,y) MsgBox Str(Z) End Sub Private Function funl(ByVal a As Integer, ByVal b As Integer)As Integer Do r=a Mod b a = b b = r Loop Until r=0 funl=a End Function(分数:2.00)填空项 1:_48.以下程序的功能是,产生 10 个 01000 的随机整数,放入数组 Arr 中,然后输出其中的最大值。请完善下列程序。 Option Base 1 Pr
21、ivate Sub Form_Click() Dim Arr(10)As Integer Dim Max As Integer Randomize For i = 1 To 10 Arr(i)= Int(Rnd * 1000) Next i Max =U 【14】 /U For i = 2 To 10 IfU 【15】 /UThen Max = Arr(i) End If Next i Print Max End Sub(分数:2.00)填空项 1:_二级 VISUAL+BASIC 笔试 75 答案解析(总分:96.00,做题时间:90 分钟)一、B选择题/B(总题数:35,分数:70.00)
22、1.为了使列表框中的项目分为多列显示,需要设置的属性为(分数:2.00)A.Columns B.StyleC.ListD.MultiSelect解析:分析 Columns 属性用来确定列表框的列数。当该属性设置为 0(默认)时,所有的项目呈单列显示;如果该属性等于 1,则列表框呈多行多列显示;如果大于 1 且小于列表框中的项目数,则列表框呈单行多列显示。2.使用 Do While 循环从打开的文件中逐条读取记录。以下能够正确读取数据的程序段是(分数:2.00)A.Open “c:/File1txt“ For Input As #1 Do While Not EOF() Line Input #
23、1, strLine LoopB.Open “c:/File1txt“ For Input As#1 Do While Not EOF(#1) Line Input #1, strLine Loop C.FileNo=FreeFile Open FileNo For Input As #1 Do While Not EOF(FileN Line Input #1, strLine LoopD.FileNo=FreeFile Open FileNo For Input As #1 DoWhile Not EOF(#FileN Line Input #1, strLine Loop解析:分析 本题
- 1.请仔细阅读文档,确保文档完整性,对于不预览、不比对内容而直接下载带来的问题本站不予受理。
- 2.下载的文档,不会出现我们的网址水印。
- 3、该文档所得收入(下载+内容+预览)归上传者、原创作者;如果您是本文档原作者,请点此认领!既往收益都归您。
下载文档到电脑,查找使用更方便
5000 积分 0人已下载
下载 | 加入VIP,交流精品资源 |
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 计算机 职业资格 二级 VISUALBASIC 笔试 75 答案 解析 DOC
