【计算机类职业资格】二级VISUAL+BASIC笔试-378及答案解析.doc

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）填空项

25、1:_39.下列程序的功能是：将字符串“abcde”逆序打印出来。请填写空白处以完善程序。Function rev(str1) As StringB=Mid(_,1, 1)If B= “ Thenrev=“Elserev=rev(Mid(str1, 2) +_End IfEnd FunctionPrivate Sub Form_Click()old =“abcde“Print rev(old)End Sub（分数：2.00）填空项 1:_40.在数据库中用数据模型这个工具来抽象、表示和处理现实世界中的数据和信息。常见的数据模型有 3种，它们分别是层次模犁、网状模型和 1。（分数：2.00）填空

26、项 1:_41.在面向对象方法中，类的实例称为 1。（分数：2.00）填空项 1:_42.诊断和改正程序中错误的工作通常称为 1。（分数：2.00）填空项 1:_43.当循环队列非空且队尾指针等于队头指针时，说明循环队列已满，不能进行人队运算。这种情况称为 1。（分数：1.00）填空项 1:_44.应用程序结构指的是组织指令的_，即指令存放的_和指令的_顺序。（分数：1.00）填空项 1:_45.在窗体上画一个名为 Command1 的命令按钮。下列程序的功能是：从输入对话框输入一个正整数 n。用随机函数产生 n 个 1100 范围的随机数，然后求出去掉一个最大数和最小数的平均数。根据题意，请

27、完善下列程序：Private Sub Command1_Click()Dim ave As Single, max As Integer, i As Integer, n As IntegerDim min As Integer, Sum As Integer, s As StringDim t As Integers=InputBox(“输入一个正整数: “)n=Val(s)If n0 Thenmax=n: min=n: Sum=0For j=1 To nt=_print t;Sum=Sum+tIf tmin Thenmin=tElseIf maxt Thenmax=tEnd IfNext

28、j_ave=Sum/nMsgBox“平均值=“+Str(ave)，“去掉最大数和最小数后“End IfEnd Sub（分数：2.00）填空项 1:_46.关系代数是关系操作语言的一种传统表示方式，它以集合代数为基础，它的运算对象和运算结果均为 1。（分数：2.00）填空项 1:_47.在 3 种不同类型的组合框中，只能选择而不能输入数据的组合框是 1。（分数：1.00）填空项 1:_48.一般来说，算法可以用顺序、选择和 1 三种基本控制结构组合而成。（分数：1.00）填空项 1:_二级 VISUAL+BASIC 笔试-378 答案解析(总分：86.00，做题时间：90 分钟)一、选择题(总题

29、数：35，分数：62.00)1.目录列表框的 Path 属性的作用是_。A) 显示当前驱动器或指定驱动器上的某目录下的文件名B) 显示当前驱动器或指定驱动器上的目录结构C) 显示根目录下的文件名D) 显示指定路径下的文件（分数：1.00）A.B. C.D.解析：解析 Path 属性适用于目录列表框和文件列表框，用来设置或返回当前驱动器的路径，其格式为：窗体.目录列表框文件列表框.Path=“路径“;“窗体”是目录列表框所在的窗体，如果省略则为当前窗体。“路径”的格式与 DOS 下相同，如果省略“=路径”，则显示当前路径。2.假定已经在菜单编辑器中建立了窗体的弹出式菜单，其顶级菜单项的名称为 a

30、1，其“可见”属性为False。程序运行后，单击鼠标左键或右键都能弹出菜单的事件过程是( )。A) Private Sub Form_MouseDown(Button 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

31、SubC) Private Sub Form MouseDown(Button As Intege_Shift As Integeg, X As Single, 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.解析：解析 鼠标事件分点击事

32、件和状态事件：点击事件有单击(Click)和双击(Db1Click)，不区分左键和右键；状态事件有按下(MouseDown)、移动(MouseMove)和弹起(MouseUp)，能够通过 Button 区分出鼠标的左键和右键，如果 Button 取值为 1 代表按下鼠标左键，Button 取值为 2 代表按下鼠标右键，杳然无论单击左键还是右键都能弹出菜单，应该不判断 Button 的值。3.以下叙述不正确的是_。A) 在 Sub 过程中可以调用 Function 过程B) 在用 Call 调用 Sub 过程时必须把参数放在括号里C) 在 Sub 过程中可以嵌套定义 FunctionD) 用 S

33、tatic 声明的过程中的局部变量都是 Static 类型（分数：2.00）A.B.C. D.解析：解析 Visual Basic 中，可以直接使用过程名调用过程，也可以结合 Call 关键字调用。使用Call 调用过程时，参数列表必须用括号包含起来。Visual Basic 语言不支持函数与过程的嵌套定义。Static 关键字可以指定局部变量为静态类型变量。4.下列叙述不正确的是( )。A) 命令按钮的默认属性为 Caption B) 标签的默认属性为 CaptionC) 复选框的默认属性为 Value D) 滚动条的默认属性为 Value（分数：2.00）A. B.C.D.解析：解析 命令

34、按钮的默认属性是 Value，该属性为 True 时，表示已选择该按钮，为 False(默认值)表示没有选择该按钮。如果在代码中设置 Value 属性值为 True 则会激活该按钮的 Click 事件。控件的默认属性是指不需要写属性名，只写控件名 Visual Basic 就能识别的那个属性如写 Lubel1=“VB考试“就是为 Label1 的默认属性 Caption 属性赋值。5.在窗体上画一个名称为 Command1 的命令按钮，然后编写如下事件过程：Private Sub Command1_Click()x = -5If Sgn(x) Theny = Sgn(x 2)Elsey = S

35、gn(x)End IfPrint yEnd Sub程序运行后，单击命令按钮，窗体上显示的是A) -5B) 25C) 1D) -1（分数：1.00）A.B.C. D.解析：解析：函数 Sgn(N)用于取数 N 的符号。X=-5，故 Sgn(X)=-1，为真，执行 Y=Sgn(X2)=Sgn(25)，故得 1。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程序运行后，单击命令按钮，其

36、输出结果为_。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.解析：解析 第一次循环时 x 的值为 2，每次加 1，所以答案为 2 3 4 5。7.设有如下程序：Option Base 0Private Sub 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

37、.00）A.B.C. D.解析：解析 Option Base O 指示程序中数组下标从 0 开始，因此在 For 循环中打印的数组元素分别为第 6、5、4、3 个元素，结果为 6、5、4、3。8.要获得当前驱动器，应使用驱动器列表框的属性是_。A) Path B) Drive C) Dir D) Pattern（分数：2.00）A.B. C.D.解析：解析 驱动器控件常用的属性是 Drive，返回当前驱动器号。9.改变驱动器列表框的 Drive 属性值将激活_事件。A) Change B) Scroll C) KeyDown D) KeyUp（分数：2.00）A. B.C.D.解析：解析 驱动

38、器列表框控件的相关属性和事件驱动器列表框的 Drive 属性，用来设置或返回程序运行时所选择的驱动器名。当驱动器列表框的 Drive 属性值发生变化时，会触发驱动器列表框的 Change 事件。当驱动器列表框的滚动框被重新定位或沿水平或垂直方向滚动时，会触发驱动器列表框的 Scroll 事件。在驱动器列表框获得焦点时，按下或松开键盘上的按键，会触发驱动器列表框的 KeyDown 或 KeyUp 事件。10.编写如下事件过程：Private Sub Form_ MouseDown(Button As Integer，Shift As Integer，X As Single，Y As Single

39、)If Shift=6 And Button=2 ThenPrint “BBBB“End IfEnd Sub程序运行后，为了在窗体上输出“BBBB”，应执行的操作为_。A) 同时按下 Shift 键和鼠标左键B) 同时按下 Shift 键和鼠标右键C) 同时按下 Ctrl、Alt 键和鼠标左键D) 同时按下 Ctrl、Alt 键和鼠标右键（分数：2.00）A.B.C.D. 解析：解析 在鼠标的 Mouse_ Down 事件中，当按下左键时，Button=1，右键时 Button=2，在键盘上按下 Shift 键时，Shift 值为 1，Ctrl 键时，Shift 值为 2，Alt 时，Shif

40、t 值为 4，如果同时按下多键，则它们的值也相加。11.设 a10，b5，c1，执行语句 Print abc 后，窗体上显示的是_。A) True B) False C) 1 D) 出错信息（分数：1.00）A.B. C.D.解析：解析 Visual Basic 中的关系运算从左到右计算，因此先计算出 ab 为 True，接着计算True1 为 False。所以，执行语句 Print abc 后，窗体上显示的是 False。12.下列选项中，不属于模块间耦合的是A) 数据耦合 B) 标记耦合 C) 异构耦合 D) 公共耦合（分数：2.00）A.B.C. D.解析：解析 模块之间的耦合程度反映了

41、模块的独立性，也反映了系统分解后的复杂程度。按照耦合程度从强到弱分别是：内容耦合、公共耦合、外部耦合、控制耦合、标记耦合、数据耦合和非直接耦合，没有异构耦合这种方式。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.解析：解析 程序开始时分别执行 x，y 赋值 5，-6。If 语句 Not x0 相当于 x=0，现在 x 的值为 5，比 0 大，所以条件值为 False，执行 Else 语句 y=x+3，此时 y 为 8，

42、执行 Print 方法，即输出 x-y 和 y-x的值，x-y=-3，y-x=3，所以最后输出结果应该如选项 A)所示。14.下面不属于软件设计原则的是A) 抽象 B) 模块化 C) 自底向上 D) 信息隐蔽（分数：1.00）A.B.C. D.解析：解析 软件设计遵循软件工程的基本目标和原则，建立了适用于在软件设计中应该遵循的基本原理和与软件设计有关的概念，它们是抽象、模块化、信息隐蔽和数据独立性。自底向上是集成测试中增量测试的一种。15.货币型数据需( )字节内存容量。A2 B4 C6 D8（分数：2.00）A.B.C.D. 解析：16.在窗体上面画一个名称为 TxtA 的文本框，然后编写如

43、下的事件过程；Private Sub TxtA_KeyPress(Keyascii as integer)End Sub若焦点位于文本框中，则能够触发 KeyPress 事件的操作是_。A) 单击鼠标 B) 双击文本框C) 鼠标滑过文本框 D) 按下键盘上的某个键（分数：2.00）A.B.C.D. 解析：解析 KeyPress 事件用来识别按键的 ASCII 码，从而识别键盘上某个键的按下与释放。17.如果一个变量未经定义就直接使用，则该变量的默认类型为A) VariantB) Byte C) Boolean D) Integer（分数：1.00）A. B.C.D.解析：解析：在 Visual

44、 Basic 中，系统提供了多种数据类型，有字符串类型、数值型、货币型、布尔型，日期型等，此外还有一种变体类型，Variant 是一种特殊的数据类型， Variant 变量中可以存放任何类型的数据，如数值、文本字符串、日期和时间等，向 Variant 变量赋值时不必进行任何转换，系统将自动进行必要的转换。如果变量未经定义就直接使用，则该变量为 Variant 类型。18.为计算 an的值，某人编写了函数 power 如下：Private Function power(a As Integer, n As Integer) As LongDim p As Longp=aFor k=1 To np

45、=p*aNext kpower=pEnd Function在调试时发现是错误的，例如 Print power(5, 4)的输出应该是 625，但实际输出是 3125，程序需要修改。下面的修改方案中有 3 个是正确的，错误的是A)把 For k=1 To n 改为 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.解析：解析 题目未达到要求的原因是：p 的初值设为 a，然后再循环 n 次，每次循环的操作是 p=p*a，实际上的结果变成了 an+1，所以

46、A、C 减少了一次循环，选项 D 把 P 的初值改为 1，都是正确的修改。如果按选项 B 的方法把“p=p*a”改为“p=pn”，则不需要 for 循环就可算出 an，否则计算的结果就是 a 的nn次方。19.在窗体上画一个驱动器列表框、一个目录列表框和一个文件列表框，其名称分别为 Drive1、Dir1 和File1。当改变目录列表框的内容时，要求文件列表框中显示当前选中的文件夹中的内容，则在 Dir1_ Change 事件过程中应使用的语句是_ 。A) Dirve1.Drive=Dir1.Path B) Dir1.Path=Drive1.DriveC) Dir1.Path=File1.Pa

47、th D) File1.Path=Dir1.Path（分数：2.00）A.B.C.D. 解析：解析 由于要在文件列表框中显示当前选中的文件夹中的内容，所以应使用的语句是File1.Path=Dirl.Path。20.要使菜单项 MenuOne 在程序运行时失效，使用的语句是A) MenuOneVisible=True B) MenuOneVisible=FalseC) MenuOne.Enabled=True D) MenuOne.Enabled=False（分数：2.00）A.B.C.D. 解析：解析 Enabled 属性：返回或设置一个值，该值用来确定一个窗体或控件是否能够对用户产生的事件

48、作出反应。Visible 属性：用来设置窗体或控件的可见性。21.下列途述中正确的是( )。A) 在窗体的 Form_Load 事件过程中定义的变量是全局变量B) 局部变量的作用域可以超出所定义的过程C) 在某个 Sub 过程中定义的局部变量可以与其他事件过程中定义的局部变量同名，但是作用域只限于该过程D) 在调用过程中，所有局部变量系统初始化为 0 或空字符串（分数：2.00）A.B.C. D.解析：解析 Visual Basic 中一个 Sub 中的局部变量作用域仅为 Sub 当中，不同 Sub 中的变量可以同名。22.下列程序的运行结果是( )。Private Sub Form_Click()Dim