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

《【计算机类职业资格】二级VISUAL+BASIC-6-1及答案解析.doc》由会员分享，可在线阅读，更多相关《【计算机类职业资格】二级VISUAL+BASIC-6-1及答案解析.doc（28页珍藏版）》请在麦多课文档分享上搜索。

1、二级 VISUAL+BASIC-6-1 及答案解析(总分：89.96，做题时间：90 分钟)一、B选择题/B(总题数：35，分数：59.00)1.在窗体上画一个命令按钮，名称为 Command1，然后编写如下代码：Option Base 0Private Sub Command1_Click()Dim A1(4)As Integer，A2(4)As IntegerFor k=0 To 2A1(k+1)=InputBox(“请输入一个整数“)A2(3-k)=A1(k+1)Next kPrint A2(k)End Sub程序运行后，单击命令按钮，在输入对话框中依次输入 2、4、6，则输出结果为_。

2、 A.0 B.1 C.2 D.3（分数：1.00）A.B.C.D.2.假定通用对话框的名称为 CommonDialog1，命令按钮的名称为 Command1，则单击命令按钮后，能使打开的对话框的标题为“New Title”的事件过程是U /U。 A.Private Sub Command1_Click() CommonDialog1.DialogTitle=“New Title“ CommonDialog 1ShowPrinter End Sub B.Private Sub Command1_Click() CommonDialog1.DialogTitle=“New Title“ Commo

3、nDialog1.ShowFont End Sub C.Private Sub Command1_Click() CommonDialog1.DialogTitle=“New Title“ CommonDialog1.ShowOpen End Sub D.Private Sub Command1.Click() CommonDialog1.DialogTitle=“New Title“ CommonDialog1.ShowColor End Sub（分数：2.00）A.B.C.D.3.如果要在程序代码中为图片框动态加载或清除图形，可以通过U /U函数来实现。 A. InputBox B. In

4、put C. LoadPicture D. PaintPicture（分数：2.00）A.B.C.D.4.在窗体上画一个名称为 Command1 的命令按钮，然后编写如下通用过程和命令按钮的事件过程： Private Function f(m As Integer) If m Mod2=0 Then f=m Else f=l End lf End Function Private Sub Command1_Click( ) Dim i As Integer s=0 For i=1 To 5 s=s+f(i) Next Print 8 End Sub 程序运行后，单击命令按钮，在窗体上显示的是

5、A11 B。10 C9 D8（分数：1.00）A.B.C.D.5.假定有以下循环结构：Do Until 条件表达式循环体Loop则下列描述正确的是U /U A.如果“条件表达式”的值是 0，则一次循环体也不执行 B.如果“条件表达式”的值不为 0，则至少执行一次循环体 C.不论“条件表达式”的值是否为真，至少要执行一次循环体 D.如果“条件表达式”的值恒为 0，则无限次执行循环体（分数：2.00）A.B.C.D.6.对象名.Cls 方法对U /U控件有效。 A. 窗体、图像框 B. 窗体、图片框 C. 屏幕、窗体 D. 图像框、图片框（分数：2.00）A.B.C.D.7.下列程序段的执行结果为

6、U /U。a=“ABBACDDCBA“For I=6 To 2 Step-2x=Mid(a,I,I)y=Left(a,I)z=Right(a，I)z=xX+Z*K;“)“ A.A(17) B.A(17.4) C.A(18) D.A(2.4+3*5)（分数：2.00）A.B.C.D.16.目录列表框的 Path 属性的作用是U /U。 A.显示当前驱动器或指定驱动器上的某目录下的文件名 B.显示当前驱动器或指定驱动器上的目录结构 C.显示根目录下的文件名 D.显示该路径下的文件（分数：2.00）A.B.C.D.17.下述说法不正确的是_。 A. 栈是一种运算受限的线性结构 B. 栈是一种后进先出

7、的线性结构 C. 栈可以是线性结构也可以是非线性结构 D. 栈可以用数组或链表来实现（分数：2.00）A.B.C.D.18.设在窗体上有一个名称为 Command1 的命令按钮，并有以下事件过程：Private Sub Commandl Click()StatiC b As Variantb=Array(1，3，5，7，9).End Sub此过程的功能是把数组 b 中的 5 个数逆序存放(即排列为 9，7，5，3，1)。为实现此功能，省略号处的程序段应该是 A. For i=0 To 5-1/2 tmp=b(i) b(i)=b(5-i-1) b(5-i-1)=tmp Next B. For i

8、=0 To 5 tmp=b(i) b(i)=b(5-i-1) b(5-i-1)=tmp Next C. For i-0 To 5/2 tmp=b(i) b(i)=b(5-i-1) b(5-i-1)=tmp Next D. For i=1 To 5/2 tmp=b(i) b(i)=b(5-i-1) b(5-i-1)=tmp Next（分数：2.00）A.B.C.D.19.假定有以下函数过程：Function Fun(S As String)As StringDim s1 As StringFor i=1 To Len(S)s1=LCase(Mid(S，i，1)+s1Next iFun=s1End

9、 Function在窗体上画一个命令按钮，然后编写如下事件过程：Private Sub Command1_Click()Dim Str1 As String，Str2 As StringStr1=InputBox(“请输入一个字符串“)Str2=Fun(Str1)Print Str2End Sub程序运行后，单击命令按钮，如果在输入对话框中输入字符串“abcdefg”，则单击“确定”按钮后在窗体上的输出结果为_。 A.ABCDEFG B.abcdefg C.GFEDCBA D.gfedcba（分数：1.00）A.B.C.D.20.以下U /U事件过程可以将打开的对话框的标题改变为“新标题”。

10、A.Private Sub Commandl_Click() Common Dialog1.DialogTitle=“新标题“ Common Dialog1.ShowFont End Sub B.Private Sub Commandl_Crick() CommonDialog1.DialogTifie=“新标题“ CommonDialog1.ShowOpen End Sub C.Private Sub Commandl_Click() Common Dialog1.DialogTitle=“新标题“ Common Dialog1.ShowClose End Sub D.Private Sub

11、 Commandl_Click() CommonDialogl.DialogTitle=“新标题“ CommonDialogl.ShowColor End Sub（分数：2.00）A.B.C.D.21.设 a=5，b=6，c=7，d=8，则执行下列语句后，x 的值为_。x=IIF(aB)And(cd),10,20) A. 10 B. 20 C. 30 D. 300（分数：2.00）A.B.C.D.22.以下不是面向对象思想中的主要特征的是 A. 多态 B. 继承 C. 封装 D. 垃圾回收（分数：2.00）A.B.C.D.23.窗体上有三个水平滚动条，名称分别为 HSRed、HSGreen 和

12、 HSBlue，取值范围均是 0255，代表颜色的三种基色。改变滚动框的位置，可以改变三种基色的值，从而改变窗体的背景色，如下图所示。（分数：1.00）A.B.C.D.24.下列叙述中，正确的是 A. 用 E-R 图能够表示实体集间一对一的联系、一对多的联系和多对多的联系 B. 用 E-R 图只能表示实体集之间一对一的联系 C. 用 E-R 图只能表示实体集之间一对多的联系 D. 用 E-R 图表示的概念数据模型只能转换为关系数据模型（分数：1.00）A.B.C.D.25.有如下程序：Private Sub Command1_Click()Dim k As Integer，m As Integ

13、erDim p As Integerk=4：m=1p=PC(k，m)：Print p；p=PC(k，m)：Print pEnd SubPrivate Function PC(a As Integer，b As Integer)Static m As Integer，i As Integerm=0：i=2i=i + m + 1m=i + a + bPC=mEnd Function程序运行后，输出的结果为 A. 4 6 B. 6 6 C.8 8 D.10 12 （分数：1.00）A.B.C.D.26.假定有如下事件过程：Private Sub Form_MouseDown(Button As In

14、teger,Shift As Integer,X As Single,Y As Single)If Button=2 ThenPopupMenu popFormEnd IfEnd Sub则以下描述中错误的是U /U。 A.该过程的功能是弹出一个菜单 B.PopForm 是在菜单编辑器中定义的弹出式菜单的名称 C.参数 X、Y 指明鼠标的当前位置 D.Button=2 表示按下的是鼠标左键（分数：2.00）A.B.C.D.27.使用U /U方法，可清除列表框中所有的列表项。 A. Remove B. Clear C. RemoveItem D. Move（分数：2.00）A.B.C.D.28.运

15、行下列程序：Private Sub Command1_Click()x = 0Do While x10x=x * x + 1y=y+xLoopMsgBox yEnd Sub单击 Command1 命令按钮后，弹出的消息对话框中会显示 A. 5 B. 8 C. 26 D. 34（分数：1.00）A.B.C.D.29.对长度为 n 的线性表进行顺序查找，在最坏的情况下所需要的比较次数为 A. log2n B. n/2 C. n D. n+1（分数：1.00）A.B.C.D.30.执行如下语句：a=InputBox(“Today“，“Tomorrow“，“Yesterday“，“Daybeforey

16、esterday“,5)将显示一个输入对话框，在对话框的输入区中显示的信息是U /U。 A.Today B.Tomorrow C.Yesterday D.Day before yesterday（分数：2.00）A.B.C.D.31.下列叙述中正确的是U /U。 A.程序设计就是编制程序 B.程序的测试必须由程序员自己去完成 C.程序经调试改错后还应进行再测试 D.程序经调试改错后不必进行再测试（分数：2.00）A.B.C.D.32.在窗体上有一个命令按钮 Command1，编写下列程序：Private Sub Command1_Click()Print ppl(3,7)End SubPubl

17、ic Function ppl(X As Single,n As Integer)As SingleIf n=0Thenppl=1ElseIf n M0d 2=1 Thenppl=x*x+nEIseppl=x*x-nEnd IfEnd IfEnd Function程序运行后，单击该命令按钮，屏幕上显示的是U /U A.2 B.1 C.0 D.16（分数：2.00）A.B.C.D.33.在 Visual Basic 中，下列运算符中优先级最高的是_。 A. * B. / C. D. Not（分数：2.00）A.B.C.D.34.以下是 MDI 子窗体在运行时特性的叙述，错误的是U /U。 A.子

18、窗体在 MDI 窗体的内部区域显示 B.子窗体可在 MDI 窗体的外部区域显示 C.当子窗体最小化时，它的图标在 MDI 窗体内显示 D.当子窗体最大化时，其标题与 MDI 窗体标题合并，并显示在 MDI 窗体的标题栏中（分数：2.00）A.B.C.D.35.视图设计一般有 3 种设计次序，下列不属于视图设计的是 _。 A. 自顶向下 B. 由外向内 C. 由内向外 D. 自底向上（分数：1.00）A.B.C.D.二、B填空题/B(总题数：1，分数：31.00)下列程序的功能是：当 X50 时，y=0.8x；当 50x100 时，y:0.7X；当x100 时，没有意义。请填空。Private

19、Sub Commandl_Click()Dim x As Singlex=InputBox(“请输入 x 的值!“)_Case Is 50Y=0.8*xCase 50 To 100Y=0.7*x_Print“输入的数据出界!“End SelectPrint x，yEnd Sub（分数：30.96）填空项 1:_填空项 1:_(3).全局变量必须在标准模块中定义，所使用的语句为U U /U /U。（分数：2.58）填空项 1:_(4).在数据库设计中，“设计 E-R 图”是U U /U /U阶段的任务。（分数：2.58）填空项 1:_(5).对于给定的一组关键字(12，2，16，30，8，28，

20、4，10，20，6，18)，按照希尔排序(增量为 5)算法进行递增排序，第一趟排序后得到的结果是U U /U /U。（分数：2.58）填空项 1:_(6).测试用例包括输入值集和_值集。（分数：2.58）填空项 1:_(7).下列程序段运行后，a 的值为_。 a=600 b=50 a=a+b b=a-b a=a-b（分数：2.58）填空项 1:_(8).一下程序的作用是生成一个 1010 的矩阵该矩阵主对角线上的数据为 1，其余数据为 0(程序运行结果如下图所示)。该程序不完整，请补充完改程序。 Private Sub Command1_Click() Dim a(10，10)As Integ

21、er For i=1 To _ For j=1 To 10 If_Then _=1 Else a(i，j)=0 End If Next j Next i For i =1 To 10 For j=1 To 10 Print a(i，j)； Next j Print Next i End Sub （分数：2.58）填空项 1:_(9).下面程序的运行结果是在窗体中显示的： （分数：2.58）填空项 1:_(10).在窗体上画一个驱动器列表框、一个目录列表框和一个文件列表框，其名称分别为 Drive1、Dir1和 File1，为了使它们同步操作，必须触发_事件和_事件，在这两个事件中执行的语句分别

22、为_和_。（分数：2.58）填空项 1:_(11).在窗体上画一个通用对话框，其名称为 CommonDialog1，然后画一个名称为 Command1 的命令按钮，并编写如下事件过程： Private Sub Command1_ Click() CommonDialog1. Flags = cd10FNHideReadOnly CommonDialog1. Filter= “All Files (*.*) *.* Text Files“ 移动三次后，各元素的值依次为 8, 9, 10, 0, 1,2 3,4,5,6,7。 Private Sub MoveRight (x() As Intege

23、r) Dim i As Integer Dim j As Integer Dim k As Integer i = UBound (x) j = x(i) For k = i ToU U /U /UStep -1 U U /U /U Next k x(LBeund(x) = j End Sub Private Sub Command1_click() Dim a(10) As Integer Dim i As Integer Dim j As Integer Dim k As Integer For i = 0 To 10 a(i) = i Next i j = Val(Text1. Text

24、) k=0 Do k=k+1 Call MoveRight(a) Loop Until k = j For i = 0 To 10 Print a(i); Next i End Sub（分数：2.58）填空项 1:_二级 VISUAL+BASIC-6-1 答案解析(总分：89.96，做题时间：90 分钟)一、B选择题/B(总题数：35，分数：59.00)1.在窗体上画一个命令按钮，名称为 Command1，然后编写如下代码：Option Base 0Private Sub Command1_Click()Dim A1(4)As Integer，A2(4)As IntegerFor k=0 To

25、 2A1(k+1)=InputBox(“请输入一个整数“)A2(3-k)=A1(k+1)Next kPrint A2(k)End Sub程序运行后，单击命令按钮，在输入对话框中依次输入 2、4、6，则输出结果为_。 A.0 B.1 C.2 D.3（分数：1.00）A.B.C. D.解析：解析 程序运行过程如下： k=0，输入 2，A1(k+1)=A1(0+1)=A1(1)=2，A2(3-k)=A2(3-0)=A2(3)=2 k=1，输入 4，A1(k+1)=A1(1+1)=A1(2)=4，A2(3-k)=A2(3-1)=A2(2)=4 k=2，输入 6，A1(k+1)=A1(2+1)=Al(3

26、)=6，A2(3-k)=A2(3-2)=A2(1)=6 k=3，For 循环结束，输出 A2(k)的值即 A2(3)的值，即 2。2.假定通用对话框的名称为 CommonDialog1，命令按钮的名称为 Command1，则单击命令按钮后，能使打开的对话框的标题为“New Title”的事件过程是U /U。 A.Private Sub Command1_Click() CommonDialog1.DialogTitle=“New Title“ CommonDialog 1ShowPrinter End Sub B.Private Sub Command1_Click() CommonDialo

27、g1.DialogTitle=“New Title“ CommonDialog1.ShowFont End Sub C.Private Sub Command1_Click() CommonDialog1.DialogTitle=“New Title“ CommonDialog1.ShowOpen End Sub D.Private Sub Command1.Click() CommonDialog1.DialogTitle=“New Title“ CommonDialog1.ShowColor End Sub（分数：2.00）A.B.C. D.解析：3.如果要在程序代码中为图片框动态加载或清

28、除图形，可以通过U /U函数来实现。 A. InputBox B. Input C. LoadPicture D. PaintPicture（分数：2.00）A.B.C. D.解析：解析 在运行期间载入图形文件，可以用 LoadPicture 函数，其格式为：Picturel.Picture=LoadPicture(“文件名”)；如果要清除图形文件，可以执行Picturel.Picture=LoadPicture(“)操作。4.在窗体上画一个名称为 Command1 的命令按钮，然后编写如下通用过程和命令按钮的事件过程： Private Function f(m As Integer) If

29、m Mod2=0 Then f=m Else f=l End lf End Function Private Sub Command1_Click( ) Dim i As Integer s=0 For i=1 To 5 s=s+f(i) Next Print 8 End Sub 程序运行后，单击命令按钮，在窗体上显示的是 A11 B。10 C9 D8（分数：1.00）A.B.C. D.解析：解析 f 函数过程令参数 m 在是 2 的倍数的情况下返回 m 值，在 m 不是 2 的倍数的情况下，返回1。在 For 循环中调用此过程，执行五次循环，i 值分别为 1、2、3、4、 5。当 i 为 2

30、、4 的时候，f(i)值为 2、4，其他情况下为 1，故 s 值为 1+1+1+2+4=9，正确答案为 C。5.假定有以下循环结构：Do Until 条件表达式循环体Loop则下列描述正确的是U /U A.如果“条件表达式”的值是 0，则一次循环体也不执行 B.如果“条件表达式”的值不为 0，则至少执行一次循环体 C.不论“条件表达式”的值是否为真，至少要执行一次循环体 D.如果“条件表达式”的值恒为 0，则无限次执行循环体（分数：2.00）A.B.C.D. 解析：解析 Do UntilLoop 循环语句的功能是，直到指定的“循环条件”变为 True 之前重复执行循环体中的语句。在进行数据转换

31、时，当转换其他的数值类型为 Boolean 值时，0 会转成 False，而其他的值则变成 True。当转换 Boolean 值为其他的数据类型时，False 成为 0，而 True 成为-1。 在选项 A 中，若“条件表达式”的值是 0,即 False，将执行循环体；在选项 B)中，若“条件表达式”的值不为 0，即True，直接结束循环；Do UntilLoop 循环属于先判断后循环，故选项 C)也错误。6.对象名.Cls 方法对U /U控件有效。 A. 窗体、图像框 B. 窗体、图片框 C. 屏幕、窗体 D. 图像框、图片框（分数：2.00）A.B. C.D.解析：解析 Cls 方法清除运

32、行时 Form 或 PietureBox 打印时所生成的图形和文本。7.下列程序段的执行结果为U /U。a=“ABBACDDCBA“For I=6 To 2 Step-2x=Mid(a,I,I)y=Left(a,I)z=Right(a，I)z=xX+Z*K;“)“ A.A(17) B.A(17.4) C.A(18) D.A(2.4+3*5)（分数：2.00）A.B. C.D.解析：16.目录列表框的 Path 属性的作用是U /U。 A.显示当前驱动器或指定驱动器上的某目录下的文件名 B.显示当前驱动器或指定驱动器上的目录结构 C.显示根目录下的文件名 D.显示该路径下的文件（分数：2.00）

33、A.B. C.D.解析：解析 目录列表框(DirListBox)用来显示当前磁盘上的所有文件夹。其 Path 属性显示当前驱动器或指定驱动器上的目录结构。常用的方法有 Change 和 Click，Change 在双击一个新的目录或通过代码改变 Path 属性的设置时发生；Click 在用鼠标单击时发生。17.下述说法不正确的是_。 A. 栈是一种运算受限的线性结构 B. 栈是一种后进先出的线性结构 C. 栈可以是线性结构也可以是非线性结构 D. 栈可以用数组或链表来实现（分数：2.00）A.B.C. D.解析：18.设在窗体上有一个名称为 Command1 的命令按钮，并有以下事件过程：Pr

34、ivate Sub Commandl Click()StatiC b As Variantb=Array(1，3，5，7，9).End Sub此过程的功能是把数组 b 中的 5 个数逆序存放(即排列为 9，7，5，3，1)。为实现此功能，省略号处的程序段应该是 A. For i=0 To 5-1/2 tmp=b(i) b(i)=b(5-i-1) b(5-i-1)=tmp Next B. For i=0 To 5 tmp=b(i) b(i)=b(5-i-1) b(5-i-1)=tmp Next C. For i-0 To 5/2 tmp=b(i) b(i)=b(5-i-1) b(5-i-1)=t

35、mp Next D. For i=1 To 5/2 tmp=b(i) b(i)=b(5-i-1) b(5-i-1)=tmp Next（分数：2.00）A.B.C. D.解析：解析 本题主要考查 For 循环控制结构。为了实现恰当的循环，终值应设为 5/2， A 与 B 项都不正确，同时考虑到数值 b 的下标下界为默认值 0，所以 D 项也不正确，故选 C。19.假定有以下函数过程：Function Fun(S As String)As StringDim s1 As StringFor i=1 To Len(S)s1=LCase(Mid(S，i，1)+s1Next iFun=s1End Fun

36、ction在窗体上画一个命令按钮，然后编写如下事件过程：Private Sub Command1_Click()Dim Str1 As String，Str2 As StringStr1=InputBox(“请输入一个字符串“)Str2=Fun(Str1)Print Str2End Sub程序运行后，单击命令按钮，如果在输入对话框中输入字符串“abcdefg”，则单击“确定”按钮后在窗体上的输出结果为_。 A.ABCDEFG B.abcdefg C.GFEDCBA D.gfedcba（分数：1.00）A.B.C.D. 解析：解析 程序中过程 Fun 的 For 循环的功能是从参数字符串中依次取

37、出一个字符经 Lcase 函数转为小写字母后存入另一个字符串变量的首部，即将输入的字符串转为小写并倒序排列。函数 Len 用于返回字符串的长度，过程中字符串的长度做为 For 循环的终值。Mid 是字符串中部截取函数，用来从指定位置开始截取指定个数的字符。过程中使用 Mid(S，i，1)，通过循环依次取出字符串的字符，然后使本次取出的字符连接到之前取出的字符前面，实现了字符串倒序排列。程序中输入字符串为“abcdefg”，倒序并转为小写后为“gfedcba”。20.以下U /U事件过程可以将打开的对话框的标题改变为“新标题”。 A.Private Sub Commandl_Click() Co

38、mmon Dialog1.DialogTitle=“新标题“ Common Dialog1.ShowFont End Sub B.Private Sub Commandl_Crick() CommonDialog1.DialogTifie=“新标题“ CommonDialog1.ShowOpen End Sub C.Private Sub Commandl_Click() Common Dialog1.DialogTitle=“新标题“ Common Dialog1.ShowClose End Sub D.Private Sub Commandl_Click() CommonDialogl.D

39、ialogTitle=“新标题“ CommonDialogl.ShowColor End Sub（分数：2.00）A.B. C.D.解析：21.设 a=5，b=6，c=7，d=8，则执行下列语句后，x 的值为_。x=IIF(aB)And(cd),10,20) A. 10 B. 20 C. 30 D. 300（分数：2.00）A.B. C.D.解析：解析 函数 IIF(expr,val1,val2)与 IF 语句相似，当布尔表达式 expr 为 True 时，则选择 val1的值，否则选择 val2 的值。22.以下不是面向对象思想中的主要特征的是 A. 多态 B. 继承 C. 封装 D. 垃圾

40、回收（分数：2.00）A.B.C.D. 解析：解析 面向对象思想中的三个主要特征是：封装性、继承性和多态性。23.窗体上有三个水平滚动条，名称分别为 HSRed、HSGreen 和 HSBlue，取值范围均是 0255，代表颜色的三种基色。改变滚动框的位置，可以改变三种基色的值，从而改变窗体的背景色，如下图所示。（分数：1.00）A.B.C. D.解析：解析 当用 Dim 语句定义数组时，该语句把数值数组中的全部元素都初始化为 0，而把字符串数组中的全部元素都初始化为空串。因此 color 数组中的元素初始值都为 0，没有空值，过程调用不会失败。C 选项叙述错。24.下列叙述中，正确的是 A.

41、 用 E-R 图能够表示实体集间一对一的联系、一对多的联系和多对多的联系 B. 用 E-R 图只能表示实体集之间一对一的联系 C. 用 E-R 图只能表示实体集之间一对多的联系 D. 用 E-R 图表示的概念数据模型只能转换为关系数据模型（分数：1.00）A.B.C. D.解析：解析 本题主要考查了用 ER 图表示实体之间联系的方法。 解题要点 两个实体之间的联系实际上是实体集间的函数关系，这种函数关系可以有下面几种，即一对一的联系、一对多(或多对一)的联系和多对多的联系；概念模型便于向各种模型转换。由于概念模型不依赖于具体的数据库管理系统，因此，容易向关系模型、网状模型和层次模型等各种模型转

42、换。25.有如下程序：Private Sub Command1_Click()Dim k As Integer，m As IntegerDim p As Integerk=4：m=1p=PC(k，m)：Print p；p=PC(k，m)：Print pEnd SubPrivate Function PC(a As Integer，b As Integer)Static m As Integer，i As Integerm=0：i=2i=i + m + 1m=i + a + bPC=mEnd Function程序运行后，输出的结果为 A. 4 6 B. 6 6 C.8 8 D.10 12 （分数

43、：1.00）A.B.C. D.解析：解析：在 Sub 过程中，程序段先定义了 3 个 Integer 型变量 k，m，P，并给 k 赋给初值 4，m 的初值为 1，然后调用事件过程 PC，并将它的值赋给 p；在事件过程 PC 中 定义了两个形参，参数的传送是通过引用实参，即将 k，m 的地址作为 a，b 的地址；在 PC 中，将 m，I 定义为静态变量，所以第一次调用后的值仍然保留，但是 m，I 分别都有赋值语 句，将它们的值变为 0，2，所以返回值不变。26.假定有如下事件过程：Private Sub Form_MouseDown(Button As Integer,Shift As Int

44、eger,X As Single,Y As Single)If Button=2 ThenPopupMenu popFormEnd IfEnd Sub则以下描述中错误的是U /U。 A.该过程的功能是弹出一个菜单 B.PopForm 是在菜单编辑器中定义的弹出式菜单的名称 C.参数 X、Y 指明鼠标的当前位置 D.Button=2 表示按下的是鼠标左键（分数：2.00）A.B.C.D. 解析：27.使用U /U方法，可清除列表框中所有的列表项。 A. Remove B. Clear C. RemoveItem D. Move（分数：2.00）A.B. C.D.解析：解析 本题考查列表框项目清除

45、。在列表框中可以使用 RemoveItem 方法和 Clear 方法来清除项目，其中 RemoveItem 清除某一项，而 Clear 清除所有项。28.运行下列程序：Private Sub Command1_Click()x = 0Do While x10x=x * x + 1y=y+xLoopMsgBox yEnd Sub单击 Command1 命令按钮后，弹出的消息对话框中会显示 A. 5 B. 8 C. 26 D. 34（分数：1.00）A.B.C.D. 解析：解析 变量 x 控制循环次数，其计算过程为： x=1，2、5、26，所以 Do-Loop 实际循环了 4 次。 变量 y 的计

46、算过程为；y=1+2+5+26=34。29.对长度为 n 的线性表进行顺序查找，在最坏的情况下所需要的比较次数为 A. log2n B. n/2 C. n D. n+1（分数：1.00）A.B.C. D.解析：解析 对线性表进行顺序查找时，从表中的第一个元素开始，将给定的值与表中逐个元素的关键字进行比较，直到两者相符，查到所要找的元素为止。在最坏的情况下，要查找的元素是表的最后一个元素或查找失败，这两种情况都将与表中所有元素进行比较，因此比较次数为 n。30.执行如下语句：a=InputBox(“Today“，“Tomorrow“，“Yesterday“，“Daybeforeyesterday“,5)将显示一个输入对话框，在对话框的输入区中显示的信息是U /U。 A.Today B.Tomorrow C.Yesterday D.Day before yesterday（分数：2.00）A.B.C. D.解析：31.下列叙述中正确的是U /U。 A.程序设计就是编制程序 B.程序的测试必须由程