【计算机类职业资格】二级VISUAL+BASIC笔试-273及答案解析.doc
《【计算机类职业资格】二级VISUAL+BASIC笔试-273及答案解析.doc》由会员分享,可在线阅读,更多相关《【计算机类职业资格】二级VISUAL+BASIC笔试-273及答案解析.doc(29页珍藏版)》请在麦多课文档分享上搜索。
1、二级 VISUAL+BASIC 笔试-273 及答案解析(总分:100.00,做题时间:90 分钟)一、选择题(总题数:35,分数:70.00)1.在窗体上画一个命令按钮 command1 和两个文本框,名称分别为 Text1 和 Text2。编写如下两个事件过程:Dim Str1 As String,str2 As StringPrivate Sub form_load()Text1.Text=“ “Text2.Text=“ “Text1.Enabled=FalseText2.Enabled=FalseEnd SubPrivate Sub Form_KeyPress(KeyAscii As
2、Integer)str1=str1 str1; “str2 =“; str2End SubFu10.当文本框 ScrollBars 属性设置了非零值,却没有效果,原因是(分数:2.00)A.文本框中没有内容B.文本框的 MultiLine 属性为 FalseC.文本框的 MultiLine 属性为 TrueD.文本框的 Locked 属性为 True11.下面的数组声明语句中正确的是(分数:2.00)A.Dim gg1,5As StringB.Dim gg1 To 5,1 To 5As StringC.Dim gg(1 To 5)As StringD.Dim gg1:5,1:5As Strin
3、g12.以下各项中,Visual Basic 不能接收的图形文件是(分数:2.00)Aico 文件Bjpg 文件Cpsd 文件Dbmp 文件13.一个关系中属性个数为 1 时,称此关系为(分数:2.00)A.对应关系B.单一关系C.一元关系D.二元关系14.下列程序段,在运行时最后输出的内容是a=2c=1AAA:c=c + aIf c10 ThenPrint cGoTo AAAElsePrint “10 以内的奇数显示完毕“End If(分数:2.00)A.3B.7C.9D.10 以内的奇数显示完毕15.完全不考虑程序的内部结构和内部特征,而只是根据程序功能导出测试用例的测试方法是(分数:2.
4、00)A.黑箱测试法B.白箱测试法C.错误推测法D.安装测试法16.最简单的交换排序方法是(分数:2.00)A.快速排序B.选择排序C.堆排序D.冒泡排序17.栈通常采用的两种存储结构是(分数:2.00)A.顺序存储结构和链式存储结构B.散列方式和索引方式C.链表存储结构和数组D.线性存储结构和非线性存储结构18.相对于数据库系统,文件系统的主要缺陷有数据关联差、数据不一致性和(分数:2.00)A.可重用性差B.安全性差C.非持久性D.冗余性19.下列程序执行的结果为x=25:y=20: z=7Print“S(“;x+2*y;“)“(分数:2.00)A.S(47)B.S(165)C.S(25+
5、7*20)D.S(87)20.设有数组定义语句:Dim a(5)As Integer,List1 为列表框控件。下列给数组元素赋值的语句错误的是(分数:2.00)A.a(3)=3B.a(3)=InputBox(“input data“)C.a(3)=List1.ListIndexD.a=Array(1,2,3,4,5,6)21.如果在 c 盘当前文件夹下已存在名称为 studata.dat 的顺序文件,那么执行语句 Open“ c:/ studata.dat“ For Append As #1 之后,将(分数:2.00)A.删除文件中原有内容B.保留文件中原有内容,并在文件尾填加新内容C.保留
6、文件中原有内容,并在文件头填加新内容D.以上均不对22.在窗体上画一个通用对话框,其名称为 CommonDialogl,然后画一个命令按钮,并编写如下事件过程。Private Sub Command1_Click()CommonDialog1.Flags=vbOFNHideReadOnlyCommonDialog1.Filter=“All Files(*.*)|*.*|Text Files(*.txt)|*.txtCommonDialog1.FilterIndex=1CommonDialog1.ShowOpenMsgBox CommonDialog1.FileNameEnd Sub程序运行后,
7、单击命令按钮,将显示一个“打开”对话框,此时在“文件类型”框中显示的是(分数:2.00)A.All Files(*.*)B.Text Files(*.txt)C.*.txtD.All Files(*.*)|Text Files(*.*)23.窗体文件的扩展名是(分数:2.00)AbasBclsCfrmDres24.为用户与数据库系统提供接口的语言是(分数:2.00)A.高级语言B.数据定义语言(DDL)C.数据操纵语言(DML)D.汇编语言25.保存一个工程至少应保存两个文件,这两个文件分别是(分数:2.00)A.文本文件和工程文件B.窗体文件和工程文件C.窗体文件和标准模块文件D.类模块文件
8、和工程文件26.下列程序段的执行结果为m=1n=1Select Case mCase 1Select Case nCase 0print “A“Case 1Print “B“End SelectCase 2Print “C“End Select(分数:2.00)A.AB.BC.CD.027.有如下事件过程。Private Sub Form_KeyDown(KeyCode As Integer,Shift As Integer)If(Button And 3)=3 ThenPrint “OK“End IfEnd Sub程序运行后,为了在窗体上输出“OK”,应当按下的鼠标键是(分数:2.00)A.
9、左键B.右键C.同时按下左键和右键D.按什么都不显示28.线性表的顺序存储结构和线性表的链式存储结构分别是(分数:2.00)A.顺序存取的存储结构、顺序存取的存储结构B.随机存取的存储结构、顺序存取的存储结构C.随机存取的存储结构、随机存取的存储结构D.任意存取的存储结构、任意存取的存储结构29.下面的属性中,用于自动调整图像框中图形内容的大小的是(分数:2.00)A.PictureB.CurentYC.CurrentXD.Stretch30.声明一个变量为局部变量应该用(分数:2.00)A.GlobalB.PrivateC.StaticD.Public31.下列程序段,运行后输出的内容是a=
10、2c=1c=c+aIf c10 ThenPrint cElsePrint aEnd If(分数:2.00)A.3B.7C.9D.632.有如下程序。Private Sub Command1_Click()Dim k As Integer,m As IntegerDim op As Integerk=4:m=1Op=PPC(k,m):Print op;Op=PPC(k,m):Print opEnd SubPrivate Function PPC(a As Integer,b As Integer)Static m As Integer,i As Integerm=0:i=2i=i+m+1m=i+
11、a+bPPC=mEnd Function程序运行后,输出的结果为(分数:2.00)A.4 6B.6 6C.8 8D.10 1233.Visual Basic 集成的主窗口中不包括(分数:2.00)A.属性窗口B.标题栏C.菜单栏D.工具栏34.需求分析阶段的任务是确定(分数:2.00)A.软件开发方法B.软件开发工具C.软件开发费用D.软件系统功能35.设有下面的循环。i=0While i=1i=i + 3Print iWend则运行后的输出结果是(分数:2.00)A.1B.2C.3D.4二、填空题(总题数:14,分数:30.00)36.栈和队列通常采用的存储结构是 【1】 。(分数:2.00
12、)填空项 1:_37.在程序设计阶段应该采取 【2】 和逐步求精的方法,把一个模块的功能逐步分解,细化为一系列具体的步骤,进而用某种程序设计语言写成程序。(分数:2.00)填空项 1:_38.软件结构是以 【3】 为基础而组成的一种控制层次结构。(分数:2.00)填空项 1:_39.数据库系统阶段的数据具有较高独立性,数据独立性包括物理独立性和 【4】 两个含义。(分数:2.00)填空项 1:_40.数据库保护分为:安全性控制、 【5】 、并发性控制和数据的恢复。(分数:2.00)填空项 1:_41.在 Visual Basic 的立即窗口内输入以下语句X=97CR?Chr$(X)CR在窗口中
13、显示的结果是 【6】 。(分数:2.00)填空项 1:_42.有如下函数过程。Function UNC(ByVal x As Integer,ByVal y As Integer)As IntegerDo While y0S=x/yx=yy=SLoopUNC=xEnd Function以下事件调用该函数,程序运行结果是 【7】 。Private Sub Command1_Click()Dim a As IntegerDim b As Integera=12b=2x=UNC(a,b)Print xEnd Sub(分数:2.00)填空项 1:_43.菜单项的唯一事件是 【8】 。(分数:2.00)
14、填空项 1:_44.下列程序计算 Sn 的值。Sn=a+aa+aaa+a,其中最后一项为 n 个。例如:a=5,n=4 时,则 Sn=5+55+555+5555。请在空白处填入适当的内容,将程序补充完整。Private Sub Command1_Click( )Dim a As Integer, n As Integer, Cout As IntegerDim Sn As Long, Tn As LongCout = 1Sn =0Tn =0a = InputBox(“请输入 a 的值:“ )【9】 DoTn =Tn * 10 + aSn = Sn + TnCout = Cout + 1【10】
15、 Debug. Print a, n, SnEnd Sub(分数:4.00)填空项 1:_45.已知 B 的 ASCII 码为 66,以下程序统计由键盘输入的字符串中各英文字母的使用次数Dim pp (65 To 90)For i = 65 To 90pp(i) =0Nextx$ = InputBox(“ Enter a string“, x$ )x$ = UCase$ (x$)For i = 1 To Len (x$)n =Asc(Mid$ (x$, i, 1) )If n= 65 And n = 90 Then【11】 End IfNextFor i = 65 To 90Ifpp(i)0T
16、henPrint Chr$ (i) ; pp (i)End IfNext(分数:2.00)填空项 1:_46.下面运行程序后,单击命令按钮,输出出的结果是 【12】 。Private Sub Command1_Click( )Dim a% (1 To 5) ,i%, s#For i = 1 To 5a(i) =iNexts = Fun(a)Print“s=“; s;End SubFunction Fun(a() As Integer)Dim t#, i%t=1For i = LBound(a) To UBound(a)t=t * a(i)NextFun =tEnd Function(分数:2.
17、00)填空项 1:_47.如果存在如下过程:Private Function FMax( a( ) As Integer)Dim First As Integer, Last As Integer, i As IntegerFirst = LBound(a)Last = UBound(a)Max = a(First)For i = First To LastIf a (i)Max Then Max=a (i)NextFMax = MaxEnd FunctionPrivate Sub Commandl Click( )ReDim m (1 To 4) As Integerre(1) =20: m
18、(2) =30: m(3) =50: m(4) =100c = FMax(m)Print cEnd Sub单击命令按钮,其输出结果为 【13】 。(分数:2.00)填空项 1:_48.执行下面程序,第一行输出结果是 【14】 ,第二行输出结果是 47。Option ExplicitPrivate Sub Form_Click( )Dim A As IntegerA=2Call Sub1 (A) End SubPrivate Sub1 (x As Integer)x=x*2+1If x10 ThenCall Sub1 (x)End Ifx=x*2+1Print xEnd Sub(分数:2.00)
19、填空项 1:_49.在 Visual Basic 中按文件的编码方式不同,可将文件分为 【15】 。(分数:2.00)填空项 1:_二级 VISUAL+BASIC 笔试-273 答案解析(总分:100.00,做题时间:90 分钟)一、选择题(总题数:35,分数:70.00)1.在窗体上画一个命令按钮 command1 和两个文本框,名称分别为 Text1 和 Text2。编写如下两个事件过程:Dim Str1 As String,str2 As StringPrivate Sub form_load()Text1.Text=“ “Text2.Text=“ “Text1.Enabled=Fals
20、eText2.Enabled=FalseEnd SubPrivate Sub Form_KeyPress(KeyAscii As Integer)str1=str1 str1; “str2 =“; str2End SubFu解析:命题目的 考核数组作为过程参数的使用方法。解题要点 程序首先调用循环语句为数组 a、b 赋值,其中 a(i)=i;b(i)=i,且数组。的上下界分别为1 和 4,数组 b 的上下界分别为 2 和 6;接着将数组。作为参数调用 YAG 过程,在 YAG 过程中,定义了两个变量及 i,i 作为循环语句 For 的变量,它的初始值和终值分别为数组的上下界,循环体为 t=t*
21、a(i),即将 a(i)的值乘以 t,然后再赋给 t,当循环结束后,程序返回的就是数组 a 中的各元素的积;同理程序将数组 b 作为参数传递给 YAG 过程后返回数组 b 中各元素的积,运行程序结束后,输出结果为:strX=24。考点链接 对象参数。10.当文本框 ScrollBars 属性设置了非零值,却没有效果,原因是(分数:2.00)A.文本框中没有内容B.文本框的 MultiLine 属性为 FalseC.文本框的 MultiLine 属性为 TrueD.文本框的 Locked 属性为 True 解析:命题目的 考查考生对文本框控件属性的了解程度。解题要点 只有当 Muhiline 属
22、性被设置为 True 时,才能用 ScrollBons 属性在文本框中设置滚动条。错解分析 文本框的 SerollBars 属性与 Multiline 属性是相关联的,只有当 Multiline 属性设为 True时, ScrollBars 属性设置才有效。考点链接 变量的定义、赋值。11.下面的数组声明语句中正确的是(分数:2.00)A.Dim gg1,5As StringB.Dim gg1 To 5,1 To 5As StringC.Dim gg(1 To 5)As String D.Dim gg1:5,1:5As String解析:命题目的 考查考生对数组定义的掌握程度。解题要点 在默认
23、情况下无论是一维还是二维或更多维的数组其缺省下标都从。开始,但有时为了方便,用户可以自定义数组的上下界,这时可用关键字 To 来设置。例如;d(1 To 6),共含义就是一个名为 d,上界为 6,下界为 1 的数组。错解分析 对于数组定义概念了解不够透彻。考点链接 数组的定义、赋值和应用。12.以下各项中,Visual Basic 不能接收的图形文件是(分数:2.00)Aico 文件Bjpg 文件Cpsd 文件 Dbmp 文件解析:命题目的 考查考生应用图形控件的能力。解题要点 在 Visual Basic 中,可以接受不同的图形文件,见下表。Visual Basic 支持的图形文件文件类型
24、文件扩展名位图文件 .bmp;dib图标文件 .ico;.curWindows 图元文件 .wmf;emfGIF 格式图形压缩文件 .gifJPEG 格式图形压缩文件 .jpg从上表可知.psd 文件不是 Visual Basic 所支持的图形文件。错解分析 图形文件只能装载单层静态图片文件。考点链接 图片框和图像框的应用。13.一个关系中属性个数为 1 时,称此关系为(分数:2.00)A.对应关系B.单一关系C.一元关系 D.二元关系解析:命题目的 使学生加深对关系模型数据库基础知识的记忆。解题要点 在关系模型数据库中,基本结构是二维表,这种二维表称为关系。关系的列称为属性,一个具有 N 个
- 1.请仔细阅读文档,确保文档完整性,对于不预览、不比对内容而直接下载带来的问题本站不予受理。
- 2.下载的文档,不会出现我们的网址水印。
- 3、该文档所得收入(下载+内容+预览)归上传者、原创作者;如果您是本文档原作者,请点此认领!既往收益都归您。
下载文档到电脑,查找使用更方便
5000 积分 0人已下载
下载 | 加入VIP,交流精品资源 |
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 计算机 职业资格 二级 VISUALBASIC 笔试 273 答案 解析 DOC
