【计算机类职业资格】国家计算机二级(VB)88及答案解析.doc

《【计算机类职业资格】国家计算机二级(VB)88及答案解析.doc》由会员分享，可在线阅读，更多相关《【计算机类职业资格】国家计算机二级(VB)88及答案解析.doc（15页珍藏版）》请在麦多课文档分享上搜索。

1、国家计算机二级(VB)88 及答案解析(总分：100.00，做题时间：120 分钟)一、选择题(每小题 2 分，共 70 分) 下列各(总题数：35，分数：70.00)1.用于将屏幕上的对象分组的控件是（ ）。（分数：2.00）A.键盘事件B.鼠标事件C.窗口事件D.控件事件2.确定窗体控件启动位置的属性是（ ）。（分数：2.00）A.Caption 不是只读属性，运行时对象的名称可以通过代码改变B.设置 Height 或 Width 的数值单位为 twip，1twip=1/10pointC.Icon 属性用来设置窗体最小化时的图标D.用来激活属性窗口的快捷键是 F4 键3.当双击窗体 For

2、m1 时，要将窗体 Form1 隐藏起来、将窗体 Form2 以模式方式显示出来的事件过程，正确的是( )。 （分数：2.00）A.Private Sub Form _ Db1Click( ) FormlHide Form2Show 0 End SubB.Private Sub Form _ Db1Click( ) FormHide Form 2Show 1 End SubC.Private Sub Form _ Click( ) Form lHide Form 2Show End SubD.Private Sub Form _ Dbl Click( ) Form lEnabled=False

3、 Form 2Enabled=True End Sub4.在窗体上画一个通用对话框图，其 Name 属性为 Cont,瑞画一个命令按钮，Name 属性为 Command1，然后编写如下事件过程： Privute Sub Command1_Click( ) ContFileName=“ “ ContFlags=vbOFNFileMustExist ContFilter=“All Files| * . *“ ContFilterIndes_3 ContDialogTitle=“Open File“ ContAction=1 If ContFileName=“ “ Then MsgBox “No f

4、ile selected“ Else Open ContFileName For Input As #1 Do While Not EOF(1) Input #1. b$ Print b$ Loop End If End Sub 以下各选项，对上述事件过程描述错误的是( )。 （分数：2.00）A.+i;B.D-；C.c+；D.-f；5.窗体上有 1 个名称为 List1 的列表框,其中已经输入了若干个项目(如图所示)；还有 2 个文本框,名称分别为 Text1、Text2,1 个名称为 Command1 的命令按钮,并有以下程序 （分数：2.00）A.京B.北京南京C.南京北京D.没有匹配的

5、项目6.单击命令按钮时，下列程序的执行结果为（ ）。 Private Sub Command1 Click() Dim x As Integer，y As Integer x=12：y=32 Call PCS(x，y) Print x；y End Sub Public Sub PCS(ByVal n As Integer，ByVal m As Integer) n=n Mod 10 m=m Mod 10 End Sub （分数：2.00）A.1232B.232C.23D.1237.根据变量的作用域，可以将变量分为 3 类，分别为（ ）。（分数：2.00）A.2B.-2C.0D.+28.为了通过

6、键盘访问主菜单项，可在菜单编辑器的“标题”选项中的某个字母前插入何字符，建立热键字母? （分数：2.00）A.int i=10； while(1) i； if(i= =1)break； B.for(int i=1；i n Do While m n：m=m - n：Loop Do While m n：n=n - m：Loop Loop MyFunc=m End FunCtion （分数：2.00）A.0B.2C.4D.613.下列叙述中正确的是（分数：2.00）A.顺序存储结构的存储一定是连续的，链式存储结构的存储空间不一定是连续的B.顺序存储结构只针对线性结构，链式存储结构只针对非线性结构C.

7、顺序存储结构能存储有序表，链式存储结构不能存储有序表D.链式存储结构比顺序存储结构节省存储空间14.资源文件的扩展名是（ ）。（分数：2.00）A.将在文本框 Text1 输入的数字变为数值B.将在文本框 Text1 输入的数字作为半径，求圆的周长并转换为字符串C.只要 Text1 中的内容一改变，Text2 中显示的圆周长也随之改变D.事件过程中的 Val 函数和 Str 函数使用错误，事件过程不能执行15.在窗体上画一个名称为 Label1 的标签，然后编写如下事件过程： Private Sub Form_Click() Dim arr(10, 10) As Integer Dim i A

8、s Integer, j As Integer For i = 2 To 4 For j = 2 To 4 arr(i, j) = i * j Next j Next i Label1.Caption = Str(arr(2, 2) + arr(3, 3) End Sub 程序运行后，单击窗体，在标签中显示的内容是_。 （分数：2.00）A.12B.13C.14D.1516.设在窗体上有一个文本框，然后编写如下的事件过程： Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Intcger) Const Alt=4 Const Key_

9、f2=&H71 altdown%=(Shift And Alt) 0 f2down% And f2down% Then If altdown% And f2down% Then Text =“abl“ End If Ead Sub 程序运行后，清除文本框中原有内容，如果按 Shift+F2 键，则在文本框中显示的是( )。 （分数：2.00）A.add()B.requestFocus()C.repaint()D.paint()17.下列程序段的执行结果为( )。 I=1 x=5 Do I= I + 1 x= x + 2 Loop Until I=7 Print “ I= “；I Print “

10、x=“；x （分数：2.00）A.I=4 x=5B.I=7 x=15C.I=6 x=8D.I=7 x=1718.设有如下程序： Option Base 1 Private Sub Command1_Click( ) Dim a(10) As Integer Dim n As Integer n=InputBox(“输入数据”) If nA.数组 b 的偶数被保存在数组 c 中B.程序运行结束时，在窗体上显示的是 c 数组中元素的个数C.GetArray 过程的参数 n 是按值传送的D.如果输入的数据大于 10，则窗体上不显示任何信息19.下列关于栈的描述中错误的是_。 （分数：2.00）A.栈

11、是先进后出的线性表B.栈只能顺序存储C.栈具有记忆作用D.对栈的插入与删除操作中，不需要改变栈底指针20.窗体上有两个名称分别为 Text1、Text2 的文本框。Text1 的 KeyUp 事件过程如下： Private Sub Text1_KeyUp(KeyCode As Integer, Shift As Integer) Dim c As String c=UCase(Chr(KeyCode) Text2.Text=Chr(Asc(c)+2) End Sub 当向文本框 Text1 中输入小写字母 a 时，文本框 Text2 中显示的是( )。（分数：2.00）A.AB.aC.CD.c

12、21.在 Visual Basic 种，要使标签的标题栏靠右显示，则将其 Alignment 属性设置为（ ）。（分数：2.00）A.0B.2C.1D.322.下面说法不正确的是（ ）。（分数：2.00）A.Float.MIN_VALUEB.1.8e-6FC.2.0D.abcd23.对窗体编写如下事件过程： Option Base 1 Private Sub Form_KeyPress (KeyAScii AS Integer) arr=Array(12，15，18，20，24) m1=arr(1) m2=1 If fKeyAscii=12 Then For i=2 To 5 If arr(i

13、)m1 Then m1=arr(i) m2=i End If Next i End If Print m1 Print m2 End Sub 程序运行之后按回车键，输出结果为( )。 （分数：2.00）A.N=0 Do N=N+1 Loop Until N=100B.N=0 Do N=N+1 Loop While n100C.N=0 N=N+1 Do Loop Until N100D.N=0 Do While n100 N=N+1 Loop24.在程序运行期间可以将图形装入窗体、图片框或图像框的函数是（ ）。（分数：2.00）A.DrawStyleB.AutoSizeC.PasswordCha

14、rD.LoadPicture25.设 a=4,b=3,c=2,d=1，下列表达式的值是_。ab+1 Or cA.TrueB.1C.-1D.026.下列程序段的执行结果为( )。 a=5 For k=1 To 0 a=a * k Next k Print k；a （分数：2.00）A.2 2B.4 3C.4 2D.3 227.设有如下程序： Private Sub Command1_Click() Dim c As Integer, d As Integer c = 4 d = InputBox(“请输入一个整数“) Do While d 0 If d c Then c = c + 1 End

15、If d = InputBox(“请输入一个整数“) Loop Print c + d End Sub 程序运行后，单击命令按钮，如果在输入对话框中依次输入1、2、3、4、5、6、7、8、 9、0，则输出结果是_。 （分数：2.00）A.12B.11C.10D.928.当滚动条位于最左端或最上端时，Value 属性被设置为（ ）。（分数：2.00）A.MinB.MaxC.Max 和 Min 之间D.Max 和 Min 之外29.用 InputBox 函数设计的对话框，其功能是（ ）。（分数：2.00）A.只能接收用户输入的数据，但不会返回任何信息B.能接收用户输入的数据，并能返回用户输入的信息

16、C.既能用于接收用户输入的信息，又能用于输出信息D.专门用于输出信息30.有如下程序： Private Sub Commandl_Click( ) a$=“A WORKER IS HERE“ x=Len(a$) For i=1，To x-1 b$=Mid$(a$，i，3) If b$=“WOR“ Then S=S+1 Next Print S End Sub 单击命令按钮，程序运行结果为( )。 （分数：2.00）A.1B.2C.3D.531.设菜单中有一个菜单项为“Open”。若要为该菜单命令设置访问键，即按下 Alt 及字母 O 时，能够执行“Open”命令，则在菜单编辑器中设置“Open

17、”命令的方式是（ ）。 （分数：2.00）A.把 Caption 属性设置为&OpenB.把 Caption 属性设置为&OpenC.把 Name 属性设置为&OpenD.把 Name 属性设置为&Open32.在窗体上画一个通用对话框,其名称为 CommonDialog1,然后画一个命令按钮,并编写如下事件过程： Private Sub Commandl_Click() CommonDialog1.Filter=“All Files(*.*)|*.*| Text Files“& “(*.txt)|*.txt | Executable Files(*.exe)|*.exe“ CommonDia

18、log 1.Filterlndex=3 CommonDialog 1.ShowOpen MsgB ox CommonDialog 1.FileName End Sub 程序运行后,单击命令按钮,将显示一个“打开“对话框,此时在“文件类型“框中显示的是【 】 （分数：2.00）A.11 Files(*.*)B.Text Files(*.txt)C.Executble Files(*.exe)D.不确定33. 以下语句的输出结果是( )。 a = Sqr(26) Print Formats (a，“#“) （分数：2.00）A.5.099B.5.099C.5099D.000509934.窗体上有一

19、个名称为 Picturel 的图片框控件，一个名称为 Label1 的标签控件，如下图所示。 现有如下程序： Public Sub display (x As Control) If TypeOf x Is Label Then x.Caption=“计算机等级考试“ Else x.Picture=LoadPicture(“pic.jpg“) End If End Sub Private Sub Labell_Click() Call display(Labell) End Sub Private Sub Picture1_Click() Call display(Picture1) End

20、Sub 对以上程序，下列叙述中错误的是( )。 （分数：2.00）A.程序运行时会出错B.单击图片框，在图片框中显示一幅图片C.过程中的 x 是控件变量D.单击标签，在标签中显示一串文字35.有以下程序： Option Base 1 Dim arr()As Integer Private Sub Form_Click() Dim i As Integer,j As Integer ReDim arr(3,2) FOr i=1 To 3 For j=1 To 2 an“(i,J)=i*2+j Next j Next i ReDim Preserve arr(3,4) For j=3 To 4 a

21、rr(3,j)=j+9 Next j Print arr(3,2)；arr(3,4) End Sub 程序运行后,单击窗体,输出结果为【 】 （分数：2.00）A.8 13B.0 13C.7 12D.0 0二、填空题（每空 2 分，共 30 分）(总题数：10，分数：30.00)36.在深度为 7 的满二叉树中,度为 2 的结点个数为 1。（分数：3.00）填空项 1:_37. 1 的任务是诊断和改正程序中的错误。（分数：3.00）填空项 1:_38.已知 B 的 ASCII 码为 66，以下程序统计由键盘输入的字符串中各英文字母的使用次数 Dim 1 For i=65 To 90 pp(i)

22、 =0 Next x$=InputBox(“Enter a string“，x$) x$=UCase$(x$) For i=1 To 2 n=Asc(Mid$(x$，i，1) If n =65 And n =90 Then 3 End If Next i For i=65 To 90 If pp(i) 0 Then Print Chr$(i)；pp(i) End If Next （分数：3.00）填空项 1:_填空项 1:_填空项 1:_39.下面程序的作用是用 InputBox 函数输入一个整数，然后判断能否同时被 2，5 和 7 整除， 果能则输出该数及平方值。请填空。 Private S

23、ub Command1_Click1 Dim numX As Integer numX = Val (InputBox(“请输入一个整数“) If 2Then Form1Print 3 End If End Sub （分数：3.00）填空项 1:_40.软件生命周期可分为多个阶段,一般分为定义阶段、开发阶段和维护阶段。编码和测试属于 1 阶段。 （分数：3.00）填空项 1:_41.随机文件使用 Put 语句写数据，使用 1 语句读数据。（分数：3.00）填空项 1:_42.在 Visual Basic 的立即窗口内输入以下语句 X=97 ? Chr (X) 在窗门中显示的结果是 1。 （分数

24、：3.00）填空项 1:_43.新建一个工程，内有两个窗体，窗体 Form1 上有一个命令按钮 Command1，单击该按钮， Form1 窗体消失，显示 Form2 窗体，程序如下： Private Sub Command1_Click1 2 Form2 3 End Sub 试补充完整。 （分数：3.00）填空项 1:_填空项 1:_44.阅读下面的程序： Private Sub Form_Click1 Dim Check As Boolean, Counter As Integer Check = True Counter = 5 Do Do While Counter n Do Whil

25、e m n：m=m - n：Loop Do While m n：n=n - m：Loop Loop MyFunc=m End FunCtion （分数：2.00）A.0B.2 C.4D.6解析：此题程序代码中，被调过程采用了 Do WhileLoop 的嵌套语句结构，主 凋过程只调用了一次被调过程，Print MyFtunc(20，18)语句表明，程序最后输出的只是 被调过程的返回值，主调过程在调用被调过程 MyFunc 时，把数值 20 和 18 分别传给形 参 m 和 n，从被调过程中的循环语句来看，因为此时 m 的值大于 n 的值，所以执行语句 m = m - n，m 值变为 2，由语句

26、 MyFunc=m 可看出，此过程的返回值就是 m的值，即 2。 13.下列叙述中正确的是（分数：2.00）A.顺序存储结构的存储一定是连续的，链式存储结构的存储空间不一定是连续的 B.顺序存储结构只针对线性结构，链式存储结构只针对非线性结构C.顺序存储结构能存储有序表，链式存储结构不能存储有序表D.链式存储结构比顺序存储结构节省存储空间解析：顺序存储方式是把逻辑上相邻的结点存储在物理上相邻的存储单元里，结点之间的关系由存储单元的邻接关系来体现。其优点是占用最少的存储空间，所以选项 D)错误。顺序存储结构可以存储如二叉树这样的非线性结构，所以选项 B)错误。链式存储结构也可以存储线性表，所以选

27、项 C)错误。14.资源文件的扩展名是（ ）。（分数：2.00）A.将在文本框 Text1 输入的数字变为数值B.将在文本框 Text1 输入的数字作为半径，求圆的周长并转换为字符串C.只要 Text1 中的内容一改变，Text2 中显示的圆周长也随之改变 D.事件过程中的 Val 函数和 Str 函数使用错误，事件过程不能执行解析：在此题中考查了函数的定义，及其有关操作，对于奇数的判断是用取模来判断的，奇数不能被 2 争取，或者说奇数除以 2 后的余数是 1，而偶数能被 2 整数，即偶数除以 2 后的余数是 0，因此判断语句应为 If a Mod 2=0 Then CT=0 Else CT=

28、1；即当 a 为偶数时返回值是 0，a 为奇数时返回值是 1，符合题意。15.在窗体上画一个名称为 Label1 的标签，然后编写如下事件过程： Private Sub Form_Click() Dim arr(10, 10) As Integer Dim i As Integer, j As Integer For i = 2 To 4 For j = 2 To 4 arr(i, j) = i * j Next j Next i Label1.Caption = Str(arr(2, 2) + arr(3, 3) End Sub 程序运行后，单击窗体，在标签中显示的内容是_。 （分数：2.0

29、0）A.12B.13 C.14D.15解析：本题中 For 循环语句就是对数组赋值，而 arr(i, j) = i * j。故 arr(2, 2)=2*2=4，arr(3, 3)=3*3=9，两者 相加为 13。16.设在窗体上有一个文本框，然后编写如下的事件过程： Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Intcger) Const Alt=4 Const Key_f2=&H71 altdown%=(Shift And Alt) 0 f2down% And f2down% Then If altdown% And f2do

30、wn% Then Text =“abl“ End If Ead Sub 程序运行后，清除文本框中原有内容，如果按 Shift+F2 键，则在文本框中显示的是( )。 （分数：2.00）A.add()B.requestFocus()C.repaint()D.paint() 解析：一个类的友元函数对类成员的访问能力等同于类的成员函数，即能访问类的所有成员。 17.下列程序段的执行结果为( )。 I=1 x=5 Do I= I + 1 x= x + 2 Loop Until I=7 Print “ I= “；I Print “x=“；x （分数：2.00）A.I=4 x=5B.I=7 x=15C.I

31、=6 x=8D.I=7 x=17 解析：Do 循环结构，其格式为： Do 语句块 Exit Do Loop Until 循环条件 此循环由于“先执行后检查”，所以至少执行一次。本题中，程序运行到循环条件 I =7 的值为 True，才停止。所以当程序结束运行后结果为： I = 7 x = 17 18.设有如下程序： Option Base 1 Private Sub Command1_Click( ) Dim a(10) As Integer Dim n As Integer n=InputBox(“输入数据”) If nA.数组 b 的偶数被保存在数组 c 中B.程序运行结束时，在窗体上显示

32、的是 c 数组中元素的个数C.GetArray 过程的参数 n 是按值传送的 D.如果输入的数据大于 10，则窗体上不显示任何信息解析：19.下列关于栈的描述中错误的是_。 （分数：2.00）A.栈是先进后出的线性表B.栈只能顺序存储 C.栈具有记忆作用D.对栈的插入与删除操作中，不需要改变栈底指针解析：栈是一种特殊的线性表，这种线性表只能在固定的一端进行插入和删除操作，允许插入和删除的一 端称为栈顶，另一端称为栈底。一个新元素只能从栈顶一端进入，删除时，只能删除栈顶的元素，即刚刚 被插入的元素。所以栈又称先进后出表（FILO，First In Last Out）。线性表可以顺序存储，也可以链

33、式存储， 而栈是一种线性表，也可以采用链式存储结构。20.窗体上有两个名称分别为 Text1、Text2 的文本框。Text1 的 KeyUp 事件过程如下： Private Sub Text1_KeyUp(KeyCode As Integer, Shift As Integer) Dim c As String c=UCase(Chr(KeyCode) Text2.Text=Chr(Asc(c)+2) End Sub 当向文本框 Text1 中输入小写字母 a 时，文本框 Text2 中显示的是( )。（分数：2.00）A.AB.aC.C D.c解析：本题考查的考点是有关字符转换函数的。UC

34、ase 函数的功能为强制转成大写字母：Chr 函数的功能是把整数按照 ASCII 码转换成字母；Asc 函数的功能是把字母转换成对应的 ASCII 码。本题中变量 c 的值是大写字母“A”，最终结果是大写字母“C”。21.在 Visual Basic 种，要使标签的标题栏靠右显示，则将其 Alignment 属性设置为（ ）。（分数：2.00）A.0B.2C.1 D.3解析：本题考查的是标签的 Alignment 属性的设置。 Alignment 属性用来设置标签中标题的位置，可将其设置为 0，1，2，作用如下： 0：标题靠左显示(默认)。 1：标题靠右显示。 2：标题居中显示。 22.下面说

35、法不正确的是（ ）。（分数：2.00）A.Float.MIN_VALUEB.1.8e-6FC.2.0 D.abcd解析：此题主要考查 RMI 命令，RMI 命令包括 rmic 命令，为对象生成 stub 和 skeleton；rmiregistry 命令在当前主机的指定端口上启动远程对象注册服务程序；rmid 命令，激活系统守候进程；serialver 命令，返回 serialVersionUID。23.对窗体编写如下事件过程： Option Base 1 Private Sub Form_KeyPress (KeyAScii AS Integer) arr=Array(12，15，18，20

36、，24) m1=arr(1) m2=1 If fKeyAscii=12 Then For i=2 To 5 If arr(i)m1 Then m1=arr(i) m2=i End If Next i End If Print m1 Print m2 End Sub 程序运行之后按回车键，输出结果为( )。 （分数：2.00）A.N=0 Do N=N+1 Loop Until N=100B.N=0 Do N=N+1 Loop While n100C.N=0 N=N+1 Do Loop Until N100 D.N=0 Do While n100 N=N+1 Loop解析：题中语句都属于条件语句中

37、“If 条件 Then 语句”的类型，从选项中，可以看出条件语句是 A 与 B的比较语句，其值就是此条件语句的值，也就是说，只有当其值为真时，执行 Then 语句。选项 A)和 D)中的“”符号并非比较运算符，所以不正确；选项 B)中的 Printf 并非 Visual Basic 中的输出方法，所以不正确，只有选项 C)是正确的。24.在程序运行期间可以将图形装入窗体、图片框或图像框的函数是（ ）。（分数：2.00）A.DrawStyleB.AutoSizeC.PasswordCharD.LoadPicture 解析：LoadPicture 函数用于在程序远行期间对窗体、图片框或者 m 像框

38、的 pic-0 ture 属性赋值，加载图形文件，它的格式为：.Picture=LondPicture(“文件 名”)，当默认文件名时，时清空所指定对象中的图形；PasswordChar 是用于决定密码的 显示方式的，不正确；Drawstyle 决定外观。 25.设 a=4,b=3,c=2,d=1，下列表达式的值是_。ab+1 Or cA.TrueB.1C.-1D.0 解析：在 VB 中，算术运算符的优先级高于比较运算符，比较运算符高于逻辑运算符，故本题先算 b mod c， 其结果为 1，而 cb+1 的结果也是 False，False Or 0 的结果是 0。26.下列程序段的执行结果为(

39、 )。 a=5 For k=1 To 0 a=a * k Next k Print k；a （分数：2.00）A.2 2B.4 3C.4 2 D.3 2解析：C+语言中全局变量是任何函数都可以改变的量，静态变量的有效范围在定义它的类中，而普通的变量的有效性只在使用它的函数中，在本题中 c 为全局变量，b 为静态变量，a 为普通变量，b 和 c 在类A 的对象 a1 和 a2 中都自加 1。所以 b，c 为 2，a 为 1。27.设有如下程序： Private Sub Command1_Click() Dim c As Integer, d As Integer c = 4 d = InputB

40、ox(“请输入一个整数“) Do While d 0 If d c Then c = c + 1 End If d = InputBox(“请输入一个整数“) Loop Print c + d End Sub 程序运行后，单击命令按钮，如果在输入对话框中依次输入1、2、3、4、5、6、7、8、 9、0，则输出结果是_。 （分数：2.00）A.12B.11C.10D.9 解析：Do While 语句是条件为 True 时，执行循环体。本题中当 dc 时，执行 c = c + 1，即在输入对话框中 输入 5、6、7、8、9 时执行该语句，也就是该语句被执行了 5 次，故 c=4+1*5=9。而当在

41、输入对话框中输入 0 时，循环结束，此时 d=0。所以最后输出结果为 9。28.当滚动条位于最左端或最上端时，Value 属性被设置为（ ）。（分数：2.00）A.Min B.MaxC.Max 和 Min 之间D.Max 和 Min 之外解析：一般情况下，垂直滚动条的值由上往下递增，最上端代表最小值，最下端代表最大值；水平滚动条的值从左到右递增，最 左端代表最小值，最右端代表最大值。因此当滚动条位于最左端或最下端时，Value 属性被设置为 Min。29.用 InputBox 函数设计的对话框，其功能是（ ）。（分数：2.00）A.只能接收用户输入的数据，但不会返回任何信息B.能接收用户输入的

42、数据，并能返回用户输入的信息 C.既能用于接收用户输入的信息，又能用于输出信息D.专门用于输出信息解析：InputBox 函数能接收用户输入的数据，并能返回用户输入的信息，不能用于输出信息。InputBox函数中的 Prompt 参数是在 对话框中显示提示信息，这种提示信息是由用户确定的，不能把它当作输出信息的功能。30.有如下程序： Private Sub Commandl_Click( ) a$=“A WORKER IS HERE“ x=Len(a$) For i=1，To x-1 b$=Mid$(a$，i，3) If b$=“WOR“ Then S=S+1 Next Print S En

43、d Sub 单击命令按钮，程序运行结果为( )。 （分数：2.00）A.1 B.2C.3D.5解析：此题考查了字符串函数与循环语句的嵌套使用，s 用来记录找到指定字符串的次数，在“A WORKER IS HERE”中，只出现一次，所以返回值是 1。31.设菜单中有一个菜单项为“Open”。若要为该菜单命令设置访问键，即按下 Alt 及字母 O 时，能够执行“Open”命令，则在菜单编辑器中设置“Open”命令的方式是（ ）。 （分数：2.00）A.把 Caption 属性设置为&Open B.把 Caption 属性设置为&OpenC.把 Name 属性设置为&OpenD.把 Name 属性设

44、置为&Open解析：32.在窗体上画一个通用对话框,其名称为 CommonDialog1,然后画一个命令按钮,并编写如下事件过程： Private Sub Commandl_Click() CommonDialog1.Filter=“All Files(*.*)|*.*| Text Files“& “(*.txt)|*.txt | Executable Files(*.exe)|*.exe“ CommonDialog 1.Filterlndex=3 CommonDialog 1.ShowOpen MsgB ox CommonDialog 1.FileName End Sub 程序运行后,单击命

45、令按钮,将显示一个“打开“对话框,此时在“文件类型“框中显示的是【 】 （分数：2.00）A.11 Files(*.*)B.Text Files(*.txt)C.Executble Files(*.exe) D.不确定解析：通用对话框提供诸如打开文件、保存文件、设置打印选项、选择颜色、设置字体、显示帮助等操作的一组标准对话框,通用对话框显示这些对话框对应的方法分别为ShowOpen、ShowSave、ShowPrinter、ShowColor、ShowFont、ShowHelpo 当通用对话框显示为“打开“或“另存为“类型时,其 FileNanle 属性用于返回或设置所选的文件路径和文件名；F

46、ilter 属性用于指定在对话框的文件列表中显示文件的类型。例如,过滤器为*.txt,表示显示所有的文本文件。语法为：对象名.Filter=“描述|文件扩展名“；FiherIndex 属性用于指定当 Filter 属性有多个过滤器时默认的过滤器,第1 个过滤器其索引为 1,第 2 个为 2,依次类推,当前的 Filterlndex=3,因此默认的文件类型为：Executable Files(*.exe)。33. 以下语句的输出结果是( )。 a = Sqr(26) Print Formats (a，“#“) （分数：2.00）A.5.099 B.5.099C.5099D.0005099解析：用

47、 Format()函数可以将数值按“格式字符串”指定的格式输出，包括在输出字符串前面加，字符串后面补 0 及千位分隔符等。“格式字符串”是一个常量或变量，它由专门的格式说明符组成，由这些字符决定数据项的显示格式，并指定显示区域的长度，当格式字符串为常量时，必须放在双引号中，格式说明符及作用见下表： 34.窗体上有一个名称为 Picturel 的图片框控件，一个名称为 Label1 的标签控件，如下图所示。 现有如下程序： Public Sub display (x As Control) If TypeOf x Is Label Then x.Caption=“计算机等级考试“ Else x.Picture=LoadPicture(“pic.jpg“) End If End Sub Private Sub Labell_Click() Call display(Labell) End Sub Private Sub Picture1_Click() Call display(Picture1) End Sub 对以上程序，下列叙述中错误的是( )。 （分数：2.00）A.程序运行时会出错B