【计算机类职业资格】二级VISUAL+BASIC笔试74及答案解析.doc
《【计算机类职业资格】二级VISUAL+BASIC笔试74及答案解析.doc》由会员分享,可在线阅读,更多相关《【计算机类职业资格】二级VISUAL+BASIC笔试74及答案解析.doc(15页珍藏版)》请在麦多课文档分享上搜索。
1、二级 VISUAL+BASIC 笔试 74 及答案解析(总分:92.00,做题时间:90 分钟)一、B选择题/B(总题数:35,分数:70.00)1.要存放如下矩阵的数据,在不浪费存储空间的基础上,能实现声明的语句是 1 2 3 2 4 6 3 6 9(分数:2.00)A.Dim A(9)As IntegerB.Dim A(3,3)As IntegerC.Dwn A(-1 to 1,-3 to -1)As SingleD.Dim A(-3 to -1,1 to 3)As Integer2.E-R 模型属于(分数:2.00)A.概念模型B.层次模型C.网状模型D.关系模型3.在窗体上画一个名称为
2、 Command1 的命令按钮,然后编写如下事件过程: Private Sub Command1_Click() m=1:n=0 Call sub) (m),n) m=m+2 n=n+m Print m; n End Sub Private Sub Subl(x, y) x=x+2 y=y+x End Sub 程序运行后,单击命令按钮,则窗体上显示的内容是(分数:2.00)A.5 6B.3 6C.0 1D.2 34.决定窗体有无控制菜单的属性是(分数:2.00)A.ControlBoxB.MinButtonC.EnabledD.MaxButton5.在窗体上画一个文本框,然后编写如下事件过程:
3、 Private Sub Text1_KeyPress(KeyAscii As Integer) Dim char As String char=Chr(KeyAscii) KeyAscii=Asc(Ucase(char) Print String(6,KeyAscii) End Sub 程序运行后,如果在键盘上输入字母“a”,则在窗体上显示的内容为(分数:2.00)A.aB.AC.aaaaaaD.AAAAAA6.在窗体上添加一个名称为 Text1 的文本框和一个名称为 Command1 的命令按钮,编写如下事件过程: Private Sub Command1_Click() Text1.Te
4、xt=“计算机” Me.Text1=“等级” Text1=“考试” End Sub 程序运行后如果单击命令按钮,则在文本框中显示的是(分数:2.00)A.计算机B.等级C.考试D.出错7.窗体上有一个按钮和一个列表框,执行下列程序后,输出的结果为 Private Sub Command1_Click() List1.AddItem “Visual“ List1.AddItem “Basic“ List1.AddItem “Programming“, 1 Print list1.List(2) End Sub(分数:2.00)A.VisualB.BasicC.ProgrammingD.28.以下
5、的描述中,不是线性表顺序存储结构特征的是(分数:2.00)A.不便于插入和删除B.需要连续的存储空间C.可随机访问D.需另外开辟空间来保存元素之间的关系9.结构化程序设计主要强调的是(分数:2.00)A.程序的规模B.程序的易读性C.程序的执行效率D.程序的可移植性10.在窗体上添加一个命令按钮(其 Name 属性为 Command1),然后编写如下代码: Option Base 1 Private Sub Command1_Click() Dim a s = 0 a = Array(4, 3, 2, 1) j = 1 For i = 4 To 1 Step -1 s = s + a(i)*
6、j j = j * 10 Next i Print s End Sub 运行上面的程序、单击命令按钮,其输出结果是(分数:2.00)A.4321B.1234C.34D.1211.编写如下事件过程: Private Sub Form Click() Dim Char As String,i As Integer Const ch$=“#“ msg$= “Enter a String:“ char=InputBox$(msg$) n=Len(Char) For i=1 To n If Mid$(char,i,1)=ch$ Then Exit For End If Next i Print i -
7、1 End Sub 其中 InputBox 函数的功能是弹出一个输入对话框,按所给参数给出提示,等待用户输入,并返回输入的内容。程序运行后,单击窗体,如果在输入对话框内输入字符串“12ab$%*/#fg”,则窗体上输出(分数:2.00)A.2B.2C.5D.812.已知一个有序表为(14,21,27,39,45,53,66,80,91,119,150),当使用二分法查找值为 27 的元素时,查找成功的比较次数为(分数:2.00)A.1B.2C.3D.513.阅读下面的程序; Function Func(x As Integer,y As Integer)As Integer Dim n As
8、Integer Do While n = 4 x=x + y n = n + 1 Loop Func=x End Function Private Sub Command1_Click() Dim x As Integet, y As Integer Dim n As Integer,z As Integer x=1 y=1 For n = 1 To 6 z=Func(x,y) Next n Print z End Sub 程序运行后,单击命令按钮,输出的结果为(分数:2.00)A.16B.21C.26D.3114.以下叙述中错误的是(分数:2.00)A.下拉式菜单和弹出式菜单都用编辑器建立B
9、.在多窗体程序中,每个窗体都可以建立自己的菜单系统C.除分隔线外,所有菜单项都能接收 Click 事件D.如果将一个菜单项的 Enabled 属性设置为 False,则该菜单项不可见15.在窗体上画一个名称为 Command1 的命令按钮和 3 个名称分别为 Label1, Label2, Label3 的标签,然后编写如下代码: Private x As Integer Private Sub Command1_Click() Static y As Integer Dim z As Integer n= 10 z = n + z y = y + z x = x + z Label1.Cap
10、tion = x Label2.Caption = y Label3.Caption = z End Sub 运行程序,连续三次单击命令按钮后,则 3 个标签中显示的内容分别是(分数:2.00)A.10 10 10B.30 30 30C.30 30 10D.10 30 3016.设待排序关键码序列为(33,18,9,25,67,82,53,95,12,70),要按关键码值递增的顺序排序,采取以第一个关键码为分界元素的快速排序法,第一趟排序完成后关键码 33 被放到了第 _ 个位置。(分数:2.00)A.3B.5C.7D.917.数据库系统的核心是(分数:2.00)A.数据库B.数据库管理系统C
11、.数据模型D.软件工具18.在程序代码中将图片文件 mypic.jpg 装入图片框 Picture1 的语句是(分数:2.00)A.Picture1.Picture=“mypijpg“B.Picture1.Image=“mypijpg“C.Picture1.Picture=LoadPicture(“mypijpg“)D.LoadPicture(“mypijpg“)19.关于模块设计的原则,以下叙述中正确的是(分数:2.00)A.模块的内聚性高,模块之间的耦合度高B.模块的内聚性高,模块之间的耦合度低C.模块的内聚性低,模块之间的耦合度高D.模块的内聚性低,模块之间的耦合度低20.表达式 12+
12、31/6*5/10 Mod 4 的值是(分数:2.00)A.14B.22C.12D.021.假定编写了如下事件过程: Private Sub Form_MouseDown(Button As Integer,Shift As Integer,X As Single, Y As Single) If Button=2 Then Print “aaaa“ End If End Sub 程序运行后,为了在窗体上输出“AAAA”,应按下的鼠标键为(分数:2.00)A.左键B.右键C.同时按下左、右键D.按什么键都不显示22.有下列程序: Option Base 0 Private Sub Comman
13、d1_Click() Dim City As Variant x = Array(“Visual“,“Basic“,“Microsoft“,“Programming“) Print x(2) End Sub 程序运行后,单击命令按钮,则在窗体上显示的内容是(分数:2.00)A.MicrosonB.错误提示C.VisualD.Basic23.下面四个选项,不是事件的是(分数:2.00)A.LoadB.EnabledC.UnloadD.DblClick24.下列关于栈的描述中错误的是(分数:2.00)A.栈是先进后出的线性表B.栈只能顺序存储C.栈具有记忆作用D.对栈的插入与删除操作中,不需要改变
14、栈底指针25.以下 4 组语句中不正确的是(分数:2.00)A.A=1:A=A+1B.Const A=1:A=A+110,10C.A=B=1D.Print A=B26.运行以下程序后,输出的图形是 Private Sub Command1_Click() Line(500,500)-(1000,500) Line(750,300)-(750,700) End Sub(分数:2.00)A.一条折线B.两条分离的直线段C.一个伞形图形D.一个十字形图形27.软件工程包括软件开发技术和软件工程管理。下面属于软件工程管理内容的是(分数:2.00)A.软件工具B.软件工程环境C.开发方法D.软件工程经济
15、学28.当关闭窗体(Form1)或执行 Unload 语句时所能触发的事件是(分数:2.00)A.Form1_UnloadB.Form1_UnloadC.Form1_CloseD.Form1_End29.设 s=“Visual Basic Programming“,则以下使变量 x 的值为“Basic”的语句是(分数:2.00)A.x=Left(s,6)B.x=Mid(s,6)C.x=Right(s,6)D.x=Mid(s,8,6)30.通用过程可以通过执行“工具”菜单中的 _ 命令来建立。(分数:2.00)A.添加过程B.通用过程C.添加窗体D.添加模块31.Visual Basic 集成开
16、发环境可以(分数:2.00)A.编辑、调试、运行程序,但不能生成执行程序B.编辑、生成可执行程序、运行程序,但不能调试程序C.编辑、调试、生成可执行程序,但不能运行程序D.编辑、调试、运行程序,也能生成执行程序32.在窗体上画一个名称为 Command1 的命令按钮,然后编写如下事件过程: Private Sub Command1_Click() Dim x As Integer x = 1 Do Until x 8 Print x; x = x + 3.4 Loop End Sub 程序运行后,单击命令按钮,则窗体上显示的内容是(分数:2.00)A.1 4.4 6.8B.1 3 5C.1 4
17、 7D.无数据输出33.单击滚动条上的滚动箭头时,产生的事件是(分数:2.00)A.ClickB.ScrollC.ChangeD.Move34.在窗体上画一个名称为 Command1 的命令按钮和一个名称为 Text1 的文本框,然后编写如下程序: Private Sub Command1_Click() Dim x, y, z As Integer x = 1:y = 2:z = 3 Text1. Text= “ “ Call P1(x, y, z) Text1.Text = Str(z) End Sub Sub P1 (ByVal a As Integer, ByVal b As Inte
18、ger, c As Integer) a= a + b b= b + c c= a + b End Sub 程序运行后,单击命令按钮,则在文本框中显示的内容是(分数:2.00)A.1B.3C.8D.Str(35.在一棵度为 3 的树中,度为 3 的结点个数为 2,度为 2 的结点个数为 1,则度为 0 的结点个数为(分数:2.00)A.4B.5C.6D.7二、B填空题/B(总题数:11,分数:22.00)36.问题处理方案的正确而完整的描述称为U 【1】 /U。(分数:2.00)填空项 1:_37.对于给定的一组关键字(12,2,16,30,8,28,4,10,20,6,18),按照希尔排序(
19、增量为 5)算法进行递增排序,第一趟排序后得到的结果是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键,然后逐个单击每个控件。(分数:2.00)填空项 1:_42.全局变量必须在标准模块中定义,所使用的语
20、句为U 【7】 /U。(分数:2.00)填空项 1:_43.阅读如下程序; Private Sub Form Click() msg1$=“继续吗?” msg2$=“操作对话框” r=MsgBox(msg1$,vbYesNo OrvbDefaultButton2,msg2$) End Sub 程序运行后,单击窗体,将产生一个信息框。此时如果直接按回车键,则相当于用鼠标单击信息框中的U 【8】 /U按钮。(分数:2.00)填空项 1:_44.窗体、图片框或图像框中的图形通过对象的U 【9】 /U属性设置。(分数:2.00)填空项 1:_45.下列程序中有一个按钮 Command1,一个文本框 T
21、ext1,其属性 MultiLine=True。当单击按钮后,文本框显示U 【10】 /U行数据,其中第 2 行和第 3 行的数据分别是U 【11】 /U和U 【12】 /U。 Option Base 1 Private Sub Command1_Click() Dim a, s As String,i As Integer a=Array(1,3,5,7,2,4,6,8) s=“ “ For i=1 To Ubound(A) s=s + Str(a(i)+i)+ vbCrLf Next i Text1.Text=s End Sub(分数:2.00)填空项 1:_46.编写一过程将 C 盘中的
22、 Config.sys 文件内容读出,并在文本框中显示出来。在窗体 Form1 上建立一个文本框 Text1,将其 MultiLine 属性设置为 True,ScrollBars 属性设置为 3-Both。给定的程序不完整,请将程序补充完整。 Option Explicit Private Sub Form _Click() Dim ch1 As String,fn As Integer Dim Str As String fn=U 【13】 /U Open “C:/Config.sys“ For Input As fn Do While Not EOF(U 【14】 /U) Line Inp
23、ut #fn, ch1 Str = Str + chl+ vbCrLf Loop Text1.Text =U 【15】 /U End Sub(分数:2.00)填空项 1:_二级 VISUAL+BASIC 笔试 74 答案解析(总分:92.00,做题时间:90 分钟)一、B选择题/B(总题数:35,分数:70.00)1.要存放如下矩阵的数据,在不浪费存储空间的基础上,能实现声明的语句是 1 2 3 2 4 6 3 6 9(分数:2.00)A.Dim A(9)As IntegerB.Dim A(3,3)As IntegerC.Dwn A(-1 to 1,-3 to -1)As Single D.D
24、im A(-3 to -1,1 to 3)As Integer解析:分析 在一般情况下,下标的下界默认为 0。如果希望下标从 1 开始,可以通过 Option Base 语句来设置,其语句为:Option Base 1。A(9)有 10 个元素,A(3,3)有 16 个元素,A(-1 to 1,-3 to -1)有 9 个元素,A(-3 to -1,1 to 3)有 12 个元素。选项 C 声明的语句能满足题意要求。2.E-R 模型属于(分数:2.00)A.概念模型 B.层次模型C.网状模型D.关系模型解析:分析 数据模型按不同的应用层次分成 3 种类型,它们是概念数据模型、逻辑数据模型、物理
- 1.请仔细阅读文档,确保文档完整性,对于不预览、不比对内容而直接下载带来的问题本站不予受理。
- 2.下载的文档,不会出现我们的网址水印。
- 3、该文档所得收入(下载+内容+预览)归上传者、原创作者;如果您是本文档原作者,请点此认领!既往收益都归您。
下载文档到电脑,查找使用更方便
5000 积分 0人已下载
下载 | 加入VIP,交流精品资源 |
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 计算机 职业资格 二级 VISUALBASIC 笔试 74 答案 解析 DOC
