【计算机类职业资格】二级VISUAL+BASIC笔试-378及答案解析.doc
《【计算机类职业资格】二级VISUAL+BASIC笔试-378及答案解析.doc》由会员分享,可在线阅读,更多相关《【计算机类职业资格】二级VISUAL+BASIC笔试-378及答案解析.doc(31页珍藏版)》请在麦多课文档分享上搜索。
1、二级 VISUAL+BASIC 笔试-378 及答案解析(总分:86.00,做题时间:90 分钟)一、选择题(总题数:35,分数:62.00)1.目录列表框的 Path 属性的作用是_。A) 显示当前驱动器或指定驱动器上的某目录下的文件名B) 显示当前驱动器或指定驱动器上的目录结构C) 显示根目录下的文件名D) 显示指定路径下的文件(分数:1.00)A.B.C.D.2.假定已经在菜单编辑器中建立了窗体的弹出式菜单,其顶级菜单项的名称为 a1,其“可见”属性为False。程序运行后,单击鼠标左键或右键都能弹出菜单的事件过程是( )。A) Private Sub Form_MouseDown(Bu
2、tton AS Intege, _Shift As Integer, X As Single, Y As Single)If Button=1 And Button=2 ThenPopupMenu a1End IfEnd SubB) Private Sub Form MouseDown(Button As Integeg_Shift As Integer, X As Single, Y As Single)PopupMenu a1End SubC) Private Sub Form MouseDown(Button As Intege_Shift As Integeg, X As Single
3、, Y As Single)If Button=1 ThenPopupMenu a1End IfEnd SubD) Private Sub Form_MouseDown(Button As Integer, _Shift As Integer, X As Single, Y As Single)If Button=2 ThenPopupMenu a1End IfEnd sub(分数:2.00)A.B.C.D.3.以下叙述不正确的是_。A) 在 Sub 过程中可以调用 Function 过程B) 在用 Call 调用 Sub 过程时必须把参数放在括号里C) 在 Sub 过程中可以嵌套定义 Fun
4、ctionD) 用 Static 声明的过程中的局部变量都是 Static 类型(分数:2.00)A.B.C.D.4.下列叙述不正确的是( )。A) 命令按钮的默认属性为 Caption B) 标签的默认属性为 CaptionC) 复选框的默认属性为 Value D) 滚动条的默认属性为 Value(分数:2.00)A.B.C.D.5.在窗体上画一个名称为 Command1 的命令按钮,然后编写如下事件过程:Private Sub Command1_Click()x = -5If Sgn(x) Theny = Sgn(x 2)Elsey = Sgn(x)End IfPrint yEnd Sub
5、程序运行后,单击命令按钮,窗体上显示的是A) -5B) 25C) 1D) -1(分数:1.00)A.B.C.D.6.在窗体上画一个命令按钮(其名称为 Command1),然后编写如下事件过程:Private Sub Command1_Click()For i=1 To 4If i=1 Then x=iIf i=4 Then x=x+1Print xNext iEnd Sub程序运行后,单击命令按钮,其输出结果为_。A) 1 2 3 4 B) 2 3 4 5C) 2 3 4 4 D) 3 4 5 6(分数:2.00)A.B.C.D.7.设有如下程序:Option Base 0Private Su
6、b Form_Click()Dim aDim i As Integera=Array(1,2,3,4,5,6,7,8,9)For i=0 To 3Print a(5-i);NextEnd Sub程序运行后,单击窗体,则在窗体上显示的是( )。A4 3 2 1 B5 4 3 2C6 5 4 3 D7 6 5 4(分数:2.00)A.B.C.D.8.要获得当前驱动器,应使用驱动器列表框的属性是_。A) Path B) Drive C) Dir D) Pattern(分数:2.00)A.B.C.D.9.改变驱动器列表框的 Drive 属性值将激活_事件。A) Change B) Scroll C)
7、KeyDown D) KeyUp(分数:2.00)A.B.C.D.10.编写如下事件过程:Private Sub Form_ MouseDown(Button As Integer,Shift As Integer,X As Single,Y As Single)If Shift=6 And Button=2 ThenPrint “BBBB“End IfEnd Sub程序运行后,为了在窗体上输出“BBBB”,应执行的操作为_。A) 同时按下 Shift 键和鼠标左键B) 同时按下 Shift 键和鼠标右键C) 同时按下 Ctrl、Alt 键和鼠标左键D) 同时按下 Ctrl、Alt 键和鼠标右
8、键(分数:2.00)A.B.C.D.11.设 a10,b5,c1,执行语句 Print abc 后,窗体上显示的是_。A) True B) False C) 1 D) 出错信息(分数:1.00)A.B.C.D.12.下列选项中,不属于模块间耦合的是A) 数据耦合 B) 标记耦合 C) 异构耦合 D) 公共耦合(分数:2.00)A.B.C.D.13.下列程序段执行结果为X=5Y=-6If Not x0 Then x=y-3 Else y=x+3Print x-y:y-xA) -3 3 B) 5 -9C) 3 -3 D) -6 5(分数:2.00)A.B.C.D.14.下面不属于软件设计原则的是A
9、) 抽象 B) 模块化 C) 自底向上 D) 信息隐蔽(分数:1.00)A.B.C.D.15.货币型数据需( )字节内存容量。A2 B4 C6 D8(分数:2.00)A.B.C.D.16.在窗体上面画一个名称为 TxtA 的文本框,然后编写如下的事件过程;Private Sub TxtA_KeyPress(Keyascii as integer)End Sub若焦点位于文本框中,则能够触发 KeyPress 事件的操作是_。A) 单击鼠标 B) 双击文本框C) 鼠标滑过文本框 D) 按下键盘上的某个键(分数:2.00)A.B.C.D.17.如果一个变量未经定义就直接使用,则该变量的默认类型为A
10、) VariantB) Byte C) Boolean D) Integer(分数:1.00)A.B.C.D.18.为计算 an的值,某人编写了函数 power 如下:Private Function power(a As Integer, n As Integer) As LongDim p As Longp=aFor k=1 To np=p*aNext kpower=pEnd Function在调试时发现是错误的,例如 Print power(5, 4)的输出应该是 625,但实际输出是 3125,程序需要修改。下面的修改方案中有 3 个是正确的,错误的是A)把 For k=1 To n
11、改为 For k=2 to n B)把 p=p*a 改为 p=pnC)把 For k=1 To n 改为 For k=1 To n-1 D)把 p=a 改为 p=1(分数:2.00)A.B.C.D.19.在窗体上画一个驱动器列表框、一个目录列表框和一个文件列表框,其名称分别为 Drive1、Dir1 和File1。当改变目录列表框的内容时,要求文件列表框中显示当前选中的文件夹中的内容,则在 Dir1_ Change 事件过程中应使用的语句是_ 。A) Dirve1.Drive=Dir1.Path B) Dir1.Path=Drive1.DriveC) Dir1.Path=File1.Path
12、D) File1.Path=Dir1.Path(分数:2.00)A.B.C.D.20.要使菜单项 MenuOne 在程序运行时失效,使用的语句是A) MenuOneVisible=True B) MenuOneVisible=FalseC) MenuOne.Enabled=True D) MenuOne.Enabled=False(分数:2.00)A.B.C.D.21.下列途述中正确的是( )。A) 在窗体的 Form_Load 事件过程中定义的变量是全局变量B) 局部变量的作用域可以超出所定义的过程C) 在某个 Sub 过程中定义的局部变量可以与其他事件过程中定义的局部变量同名,但是作用域只
13、限于该过程D) 在调用过程中,所有局部变量系统初始化为 0 或空字符串(分数:2.00)A.B.C.D.22.下列程序的运行结果是( )。Private Sub Form_Click()Dim k As Integern=5m=1k=1Dom=m+2k=k+1Loop Until knPrint mEnd SubA) 1 B) 12 C) 11 D) 32(分数:2.00)A.B.C.D.23.在窗体上画一个命令按钮,名称为 Command1。然后编写如下程序:Private Sub Command1_Click()Dim a As Integer,b As Integer,c As Inte
14、gerIf a=0 Thenx=x-1ElseIf b0 ThenEnd IfEnd IfIf c0 Thenx=3Elsex=4End IfPrint xEnd Sub程序运行后,单击命令按钮,其输出结果为 _。A34 B4 C35 D3(分数:3.00)A.B.C.D.24.要设置窗体为固定对话框,并包含控制莱单栏和标题栏,但没有最大化和最小化控钮,设置的操作是A) 设置 BoderStyle 的值为 Fixed ToolWindowB) 设置 BoderStyle 的值为 Sizable ToolWindowC) 设置 BnderStyle 的值为 FixedDialogD) 设置 Bo
15、derStyle 的佰为 Sizable(分数:1.00)A.B.C.D.25.希尔排序法属于哪一种类型的排序法_。A) 交换类捧序法 B) 插入类排序法C) 选择类排序法 D) 建堆排序法(分数:2.00)A.B.C.D.26.在窗体上画一个名称为 TxtA 的文本框,然后编写如下的事件过程:Private Sub TxtA_KeyPress(Keyascii as integer)End Sub若焦点位于文本框中,则能够触发 KeyPress 事件的操作是A) 单击鼠标 B) 双击文本框C) 鼠标滑过文本框 D) 按下键盘上的某个键(分数:2.00)A.B.C.D.27.下面概念中,不属于
16、面向对象方法的是_。A) 对象、消息 B) 继承、多态C) 类、封装 D) 过程调用(分数:2.00)A.B.C.D.28.在窗体上画一个名称为 Command1 的命令按钮和三个名称分别为 Label1、Label2、Label3 的标签,然后编写如下代码:Private x As IntegerPrivate Sub Command1_Click()Static y As IntegerDim z As Integern = 102 = n + zy=y+z x = x + zLabel1.Caption =xLabel2.Caption =yLabel3.Caption =zEnd Su
17、b运行程序,连续三次单击命令按钮后,则三个标签中显示的内容分别是A) 10 10 10 B) 30 30 30 C) 30 30 10 D) 10 30 30(分数:2.00)A.B.C.D.29.Visual Basic 集成开发环境可以A) 编辑、调试、运行程序,但不能生成执行程序B) 编辑、生成可执行程序、运行程序,但不能调试程序C) 编辑、调试、生成可执行程序,但不能运行程序D) 编辑、调试、运行程序,也能生成执行程序(分数:1.00)A.B.C.D.30.在窗体上绘制一个名称为 Commandl 的命令按钮,然后编写如下程序:Option Base 1Private Sub Comm
18、andl_Click()Dim c As Integer,d As Integerd=0c=6x=Array(2,4,6,8,10,12)Fori=1 To 61fx(i)c Thend=d+x(i)c=x(i)Elsed=d-cEnd IfNextiPrint dEnd Sub程序运行后,如果单击命令按钮,则在窗体上输出的内容为( )。A10 B16 C12 D20(分数:2.00)A.B.C.D.31.阅读下面的程序:Private Sub Form_Click()Dim Check, CounterCheck = TrueCounter = 0DoDo While Counter 20C
19、ounter = Counter + 1If Counter = 10 ThenCheck = FalseExit DoEnd IfLoopLoop Until Check = FalsePrint Counter, CheckEnd Sub程序运行后,单击窗体,输出结果为_。(A) 15 0(B) 20 -1(C) 10 True(D) 10 False(分数:2.00)A.B.C.D.32.执行下面的程序段后,变量 c 的值为a=14b=30Slect Case b/10Case 0C=a * 10 + b Case 1 To 9C=a * 100+bCase 10 To 99C=a *
20、1000 + bEnd Selectprint cA)363 B)2548 C)1430 D)9875(分数:1.00)A.B.C.D.33.设已打开 5 个文件,文件号为 1、2、3、4、5。要关闭所有文件,则下列语句正确的是( )。A)Close#1,2,3,4,5 B)Close#1,#2,#3,#4,#5C)Closeg#1-#5 D)Close#1;#2,#3;#4;#5(分数:2.00)A.B.C.D.34.当发生窗体的单击事件时,输出的第二行为( )。Private Sub Form_click()Dim N1 As Integer,N2 As Integer,N3 As Int
21、egerN1=1:N2=1Print N1;N2DoN3=N1+N2Print N3;N1=N2:N2=N3Loop Until N3=5End SubA) 1 1 1 B) 2 3 5C) 2 5 7 D) 2 3 4(分数:1.00)A.B.C.D.35.执行以下 Command1 的 Click 事件过程在窗体上显示Option Base 1Private Sub Command1 Click()Dim aa= Array(“a“, “b“, “C“, “d“, “e“, “f“, “g“)Print a(1); a(3); a(5)End SubA) ab; B) bdf C) ace
22、 D) 出错(分数:2.00)A.B.C.D.二、填空题(总题数:14,分数:24.00)已知 B 的 ASC码为 66,以下程序统计由键盘输入的字符串中各英文字母的使用次数。Dim_Fori=65 To 90pp(i)=0Nextx$=InputBox(“Enter a string“,K$)x$=U Case$(x$)Fori=1 To Len(x$)n=Asc(Mid$(x$,i,1)If n=65Andn=90Then_End IfNextiFori=65 To 90If pp(i)ThenPrint Chr$(i);pp(i)End IfNext(分数:4.00)填空项 1:_填空项
23、 1:_36.设有程序:Option Base 1Pfivme Sub Command1_Click( )Dim arr1,Max as Integer arr1=Array(12,435,76,24,78,54,866,43)_=arr1(1) For i=1 To 8If arr1(i)MaxThen_Next iPrint“最大值是:“;MaxEnd Sub以上程序的功能是:用 Array 函数建立一个含有 8 个元素的数组,然后查找并输出该数组中元素的最大值。请填空。(分数:1.00)填空项 1:_37.一个控件在窗体上的位置由_和_属性决定,而其大小则由_和_属性决定。(分数:1.0
24、0)填空项 1:_38.窗体中有图片框(Picturel)和计时器(Timed)两个控件。运行程序时,将图片加载到图片框中,然后图片框以每 2 秒钟一次的速度向窗体的右下角移动,每次向下、向右移动 100twip。请填空。Private Sub Form_Load()Prcture1_Picture=LoadPicture(“c/pic/mouth.ico“)_.Interva=2000End SubPrinvate Sub Timer1_Timer()Static x,y As Integerx=x+100y=y+100Pictuer1.Movex,yEnd Sub(分数:2.00)填空项
- 1.请仔细阅读文档,确保文档完整性,对于不预览、不比对内容而直接下载带来的问题本站不予受理。
- 2.下载的文档,不会出现我们的网址水印。
- 3、该文档所得收入(下载+内容+预览)归上传者、原创作者;如果您是本文档原作者,请点此认领!既往收益都归您。
下载文档到电脑,查找使用更方便
5000 积分 0人已下载
下载 | 加入VIP,交流精品资源 |
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 计算机 职业资格 二级 VISUALBASIC 笔试 378 答案 解析 DOC
