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

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

1、二级 VISUAL+BASIC 笔试 57 及答案解析(总分：90.00，做题时间：90 分钟)一、B选择题/B(总题数：35，分数：70.00)1.以下关于过程及过程参数的描述中，错误的是（分数：2.00）A.过程的参数可以是控件名称B.用数组作为过程的参数时，使用的是“传地址”方式C.只有函数过程能够将过程中处理的信息传回到调用的程序中D.窗体可以作为过程的参数2.设有下列二叉树： （分数：2.00）A.ABCDEFB.DBEAFCC.ABDECFD.DEBFCA3.下列不属于软件工程三要素的是（分数：2.00）A.工具B.过程C.方法D.环境4.将数学表达式 Cos2(a+b)+5e2写

2、成 Visual Basic 的表达式，其正确的形式是（分数：2.00）A.Cos(a+2+5*exp(2)B.CoC22(a+5*exp(2)C.Cos(a+2+5*In(2)D.Cos2(a+5*ln(2)5.在窗体上画一个名称为 TxtA 的文本框，然后编写如下的事件过程： Private Sub TxtA_KeyPress(keyaseii as integer) End Sub 若焦点位于文本框中，则能够触发 KeyPress 事件的操作是（分数：2.00）A.单击鼠标B.双击文本框C.鼠标滑过文稿本框D.按下键盘上的某个键6.表示滚动条控件取值范围最大值的属性是（分数：2.00）A

3、.MaxB.LargeChangeC.ValueD.MaxMin7.在面向对象中，一个对象请求另一个对象为其服务的方式是通过发送（分数：2.00）A.调用语句B.命令C.口令D.消息8.设有语句 Open“c：/Test.Dat“For Output As#1 则以下错误的叙述是（分数：2.00）A.该语句打开 C 盘根目录下一个已存在的文件 TesDatB.该语句在 C 盘根目录下建立一个名为 TesDat 的文件C.该语句建立的文件的文件号为 1D.执行该语句后，就可以通过 Print语句向文件 TesDat 中写入信息9.在数据库设计的 4 个阶段，为关系模式选择存取方法应该在（分数：2

4、.00）A.需求分析阶段B.概念设计阶段C.逻辑设计阶段D.物理设计阶段10.设在窗体上有一个名称为 Command1 的命令按钮，并有以下事件过程： Private Sub Command1_Click( ) Static b As Variant b=Array(1，3，5，7，9) End Sub 此过程的功能是把数组 b 中的 5 个数逆序存放(即排列为 9，7，5，3，1)。为实现此功能，省略号处的程序段应该是（分数：2.00）A.Fori=0 T0 5-1/2 tmp=b( b(=b(5-i-1) b(5-i-1)=tmp NextB.Fori=0 To 5 tmp=b( b(=b

5、(5-i-1) b(5-i-1)=tmp NextC.Fori=0 T0 5/2 tmp=b( b(=b(5-i-1) b(5-i-1)=tmp NextD.For i=l To 5/2 tmp=b( b(=b(5-i-1) b(5-i-1)=tmp Next11.在窗体上画一个名称为 Drive1 的驱动器列表框，一个名称为 Dir1 的目录列表框，一个名称为 File1的文件列表框，两个名称分别为 Label1、Label2，标题分别为空白和“共有文件”的标签。编写程序，使得驱动器列表框与目录列表框、目录列表框与文件列表框同步变化，并且在标签 kabel1 中显示当前文件夹中文件的数量，如

6、图所示。 能够正确实现上述功能的程序是 （分数：2.00）A.Private Sub Dir1_Change( ) Filc1.Path=Dir1.Path End Sub Private Sub Drive1_Change( ) Dir1.Path=Drive1.Drive Label1.Caption=File1.ListCount End SubB.Private Sub Dir1_Change( ) File1.Path=Dir1.Path End Sub Private Sub Drive1_Change( ) Dir1.Path=Drive1.Drive Label1.Captio

7、n=File1.List End SubC.Private Sub Dir1_Change( ) File1.Path=Dir1.Path Label1.Caption=File1.ListCount End Sub Private Sub Drive1_Change( ) Dir1.Path=Drive1.Drive Label1.Caption=File1.ListCount End SubD.Private Sub Dir1_Change( ) File1.Path=Dir1.Path Label1.Caption=File1.List End Sub Private Sub Drive

8、1_Change( ) Dir1.Path=Drive1.Drive Label1.Caption=File1.List End Sub12.在窗体上画一个命令按钮，名称为 Command1。单击命令按钮时，执行如下事件过程： Private Sub Command1_Click( ) a$=“software and hardware“ b$=Right(a$，8) c$=Mid(a$，1，8) MsgBox aS，b$，c$，1 End Sub 则在弹出的信息框的标题栏中显示的信息是（分数：2.00）A.software and hardwareB.softwareC.hardwareD.

9、113.软件调试的目的是（分数：2.00）A.发现错误B.改正错误C.改善软件的性能D.挖掘软件的潜能14.在窗体上画一个名称为、commonDidog1 的通用对话框，一个名称为 Command1 的命令按钮。要求单击命令按钮时,打开一个保存文稿件的通用对话框。该窗口的标题为”Save“,缺省文件名为”SaveFile“,在“文件类型”栏中显示*.txt,则能够满足上述要求的程序是（分数：2.00）A.Private Sub Command1_Click( ) CommonDislog1.FileName=“SaveFile“ CommonDialog1.Filter=“All Files|

10、*.*|(*.tx|*.txt|(*.do|*.doc“ CommonDialog1.FUterlndex=2 CommonDialog1.DialogTitle=“Save“ CommonDi810S1.Action=2 End SubB.Pnrate Sub Command1_Click( ) CommonDialog1.FileNamc=“SaveFile“ CommonDialog1.Filtcr=“All Files|*.*|(*.tx|*.txt|(*.do|*.doc“ commonDislog1.Filterlndex=1 CommonDialog1.DialogTitle=“

11、Save“ CommonDialog1.AcUon=2 End SubC.Private Sub Command1_C1ick( ) CommonDialog1.FileName=“Saven“ CommonDislog1.Filter=“All Files|*.*I(*.txI*.txt(*.do1*.doc“ CommonDislog1.Fiterlndex=2 Commondislog1.DialogTide=“SaveFile“ CommonDialog1.Action=2 End SubD.PnvateSubCommarldl_C1ick( ) CommonDialog1.FUeNa

12、me=“SaveFile“ CommonDialog1.Filter=“All Files|*.*I(*.tx|*.txt|(*.do|*.doc“ CommonDialog1.Filterlndex=1 CommonDialog1.DislogTitle=“SaveFile“ CommonDialog1.Achon=1 End Sub15.下列叙述中，正确的是（分数：2.00）A.线性表是线性结构B.栈和队列是非线性结构C.线性链表是非线性结构D.二叉树是线性结构16.下列不属于算法特性的是（分数：2.00）A.确定性B.可行性C.有输出D.无穷性17.在窗体上画一个名称为 Command1

13、 的命令按钮，再画两个名称分别为 Label1、Label2 的标签，然后编写如下程序代码： Private X As Integer Private Sub Command1_Click( ) X=5：Y=3 Call proc(X，Y) Label1.Caption=X LabeL2.Caption=Y End Sub Private Sub proc(ByVal a As Integer，ByVal b As Integer) X=a*a Y=b+b End Sub 程序运行后，单击命令按钮，则两个标签中显示的内容分别是（分数：2.00）A.5 和 3B.25 和 3C.25 和 6D.

14、5 和 618.在窗体上画三个单选按钮，组成个名为 chkOption 的控件数组。用于标识各个控件数组元素的参数是（分数：2.00）A.TagB.IndexC.List1ndexD.Name19.以下关于菜单的叙述中，错误的是（分数：2.00）A.在程序运行过程中可以增加或减少菜单项B.如果把一个菜单项的 Enabled 属性设置为 False，则可删除该菜单项C.弹出式菜单在菜单编辑器中设计D.利用控件数组可以实现菜单项的增加或减少20.执行如下语句： a=Input Box(“Today“，“Tomorrow“，“Yesterday“，“Day before yesterday“，5)

15、将显示一个输入对话框，在对话框的输入区中显示的信息是（分数：2.00）A.TodayB.TomorrowC.YesterdayD.Day before yesterday21.一个工程中包含两个名称分别为 Form1、Form2 的窗体，一个名称为 mdlFune 的标准模块。假定在 Forml、Form2 和 mdlFunc 中分别建立了自定义过程，其定义格式为： Forml 中定义的过程： Privme Sub frmFunction1( ) End Sub Form2 中定义的过程： Public Sub frmFunction2( ) End Sub mdlFunc 中定义的过程： P

16、ubHc Sub mdl Function( ) End Sub 在调用上述过程的程序中，如果不指明窗体或模块的名称，则以下叙述中正确的是（分数：2.00）A.上述三个过程都可以在工程中的任何窗体或模块中被调用B.frmFunction2 和 mdlFunction 过程能够在工程中各个窗体或模块中被调用C.上述三个过程都只能在各自被定义的模块中调用D.只有 mdlFunction 过程能够被工程中各个窗体或模块调用22.源程序中应包含一些内部文档，以帮助阅读和理解程序，源程序的内部文档通常包括选择合适的标识符、注释和（分数：2.00）A.程序的视觉组织B.尽量不用或少用 COTO 语句C.检

17、查输入数据的有效性D.设计良好的输出报表23.在窗体上画一个命令按钮，名称为 Command1，然后编写如下事件过程： Option Base 0 Private Sub Command1_Click( ) Dim city As Variant city=Array(“北京”，“上海”，“天津”，“重庆”) Print city(1) End Sub 程序运行后，如果单击命令按钮，则在窗体上显示的内容是（分数：2.00）A.空白B.错误提示C.北京D.上海24.下列不属于数据库管理系统提供的数据语言的是（分数：2.00）A.数据定义语言B.数据查询语言C.数据操纵语言D.数据控制语言25.在

18、窗体上画一个名称为 Command1 的命令按钮，一个名称为 Label1 的标签，然后编写如下事件过程： Private Sub Command1_Click( ) S=0 For i=1 To 15 x=2*i-1 1fx Mod 3=0 Then s=s+1 Next i Label1.Caption=s End Sub 程序运行后，单击命令按钮，则标签中显示的内容是（分数：2.00）A.1B.5C.27D.4526.在窗体上画一个名称为 Command1 的命令按钮和三个名称分别为 Label1、Label2、Labet3 的标签，然后编写如下代码： Private x AS Inte

19、ger Private Sub Command1_Click( ) Static y As Integer Dim 2 As Integer n=10 Z=n+2 y=y+2 X=X+2 Label1.Caption=x Label2.Caption=y Label3.Caption=z End Sub 运行程序，连续三次单击命令按钮后，则三个标签中显示的内容分别是（分数：2.00）A.10 10 10B.30 30 30C.30 30 10D.10 30 3027.窗体上有两个名称分别为 Text1、Text2 的文本框，一个名称为 Command1 的命令按钮。运行后的窗体外观如图所示。

20、（分数：2.00）A.Open“c：/Test29.dat“For Random As#1 Put#1，1，p C10se #1B.OpeH“c：/Test29.dat“For Random As #1 Get#1，1，p C108C#1C.Open“c：/Test29.dat“For Random As#1 Len=Len( Put#1，1，p C108C#1D.OPell“c：/Test29.dat“For，Random As#1 Len=Len( Get#1，1，p C106e#128.以下能够正确计算 n!的程序是（分数：2.00）A.Private Sub Command1_Chck

21、( ) n=5：x=1 Do x=x*i i=i+1 Loop While in Print x End SubB.Private Sub Command1_Click( ) n=5：x=1：i=l Do x=x*i i=i+1 Loop While in Print x End SubC.Private Sub Command1_Click( ) n=5：x=1：i=l Do x=x*i i=i+1 Loop While i=n Print x End SubD.Private Sub Command1_Click( ) n=5：x=1：i=l Dox=x*i i=i+1 Loop Whil

22、e in Print x End Sub29.假定有如下事件过程： Private Sub Form_MouseDown(Button As Integer，Shift As Integer，X As Sinsle，Y As Single) If Button=2 then PopupMenu popForm End If End Sub 则以下描述中错误的是（分数：2.00）A.该过程的功能是弹出一个菜单B.popForm 是在菜单编辑器中定义的弹出式菜单的名称C.参数 X、Y 指明鼠标的当前位置D.Button=2 表示按下的是鼠标左键30.利用 E-R 模型进行数据库的概念设计，可以分成

23、三步：首先设计局部 E-R 模型，然后把各个局部 E-R模型综合成一个全局的模型，最后得到最终的 E-R 模型需对全局 E-R 模型进行（分数：2.00）A.简化B.结构化C.最小化D.优化31.以下叙述中错误的是（分数：2.00）A.用 Shell 函数可以调用能够在 Windows 下运行的应用程序B.用 Shell 函数可以调用可执行文件，也可以调用 VisuM Basic 的内部函数C.调用 Shell 函数的格式应为：变量名=Shell()D.用 Shell 函数不能执行 DOS 命令32.目录列表框的 Path 属性的作用是（分数：2.00）A.显示当前驱动器或指定驱动器上的路径B

24、.显示当前驱动器或指定驱动器上的某目录下的文件名C.显示根目录下的文件名D.只显示当前路径下的文件33.假定有以下函数过程： Function Fun(S As String) As String Dim s1 As String For i=1 To Len(S) s1=UCase(Mid(S，i，1)+s1 Next i Fun=S1 End Function 在窗体上画一个命令按钮，然后编写如下事件过程： Private Sub Command1_Click( ) Dim Str1 As String，Str2 As String Str1=Input Box(“请输入一个字符串”) S

25、tr2=Fun(Str1) Print Str2 End Sub 程序运行后，单击命令按钮，如果在输入对话框中输入字符串“abcdefg”，则单击“确定”按钮后在窗体上的输出结果为（分数：2.00）A.abedergB.ABCDEFGC.gfedcbaD.GFEDCBA34.在窗体上画一个名称为 List1 的列表框，一个名称为 Label1 的标签。列表框中显示若干城市的名称。当单击列表框中的某个城市的名称时，在标签中显示选中城市的名称。下列能正确实现上述功能的程序是（分数：2.00）A.Private Sub List1_Click( ) Label1.Caption=List1.List

26、1ndex End SubB.Private Sub List1_Click( ) Label1.Name=List1.List1ndex End SubC.Private Sub List1Click( ) Label1.Name=List1.Text End SubD.Private Sub List1_Click( ) Label1.Caption=List1.Text End Sub35.在窗体上画一个名称为 Command1 的命令按钮，然后编写如下事件过程： Private Sub Command1_Click( ) X=0 n=Input Box(“) For i=1 To n

27、For j=1 To i K=X+1 Next j Next i Print x End Sub 程序运行后，单击命令按钮，如果输入 3，则在窗体上显示的内容是（分数：2.00）A.3B.4C.5D.6二、B填空题/B(总题数：10，分数：20.00)36.算法执行过程中，所需要的基本运算次数称为算法的U 【1】 /U。（分数：2.00）填空项 1:_37.在一棵二叉树上第 6 层的结点个数最多是U 【2】 /U个。（分数：2.00）填空项 1:_38.软件是程序、数据和U 【3】 /U的集合。（分数：2.00）填空项 1:_39.实体联系模型是一种常用的高级概念数据模型，而U 【4】 /U是

28、实体模型中的核心。（分数：2.00）填空项 1:_40.在数据库理论中，数据库总体逻辑结构的改变，如修改数据模式、增加新的数据类型、改变数据间联系等，不需要修改相应的应用程序，称为U 【5】 /U。（分数：2.00）填空项 1:_41.以下程序的功能是：生成 20 个 200 到 300 之间的随机整数，输出其中能被 5 整除的数并求出它们的和。请填空。 Private Sub Command1_Click( ) For i=1 To 20 x=Int(U 【6】 /U*100+200) IfU【7】 /U=0 Then Print x S=S+U 【8】 /U End lf Next i P

29、rint“Sum=“；S End Sub（分数：2.00）填空项 1:_42.设有如下程序 Private Sub Fom1_Click( ) Dim s As Integer，b As Integer a=20：b=50 p1 a，b p2 a，b p3 a，b Print“a=“；a，“b=“;b End Sub Sub pl(x As Integer，ByValy As Integer) x=x+10 y=y+20 End Sub Sub p2(ByVal x As Integer，y As Integer) x=x+10 y=y+20 End Sub Sub p3(ByVal x As

30、 Integer，ByValy As Integer) x=x+10 y=y+20 End Sub 该程序运行后，单击窗体，则在窗体上显示的内容是：a=U 【9】 /U和 b=U 【10】 /U。（分数：2.00）填空项 1:_43.在窗体上画一个名称为 Command1 的命令按钮，编写如下事件过程 Private Sub Command1_Click( ) Dim a As String a=U 【11】 /U For i=1 To 5 Print Space(6-i)；Mid $(a，6-i，2*i-1) Next i End Sub 程序运行后，单击命令按钮，要求窗体上显示的输出结果为

31、 5 456 34567 2345678 123456789 请填空。（分数：2.00）填空项 1:_44.在窗体上画一个名称为 Combol 的组合框，画两个名称分别 Label1 和 Label2 及 Caption 属性分别为“城市名称”和空白的标签。程序运行后，当在组合框中输入一个新项后按回车键(ASCII 码为 13)时，如果输入的项在组合框的列表中不存在，则自动添加到组合框的列表中，并在 Label2 中给出提示“已成功添加输入项”如图所示：如果存在，则在 Label2 中给出提示“输入项已在组合框中”。请在U 【12】 /U、U 【13】 /U和U 【14】 /U处将程序补充完整

32、。 （分数：2.00）填空项 1:_45.设有如下程序 Private Sub Search(a( )As Variant，ByVa1 key As Variant，index%) Dim I% For I=LBound(a) To UBound(a) If key=a(1) Then index=I Exit Sub End If Next I index=I End Sub Private Sub Form_Load( ) Show Dim b( ) As Variant Dim n As Integer b = Array(1,3,5,7,9,11,13,15) Call Search(

33、b, 11 ,n) Print n End Sub 程序动行后,输出结果是U 【15】 /U。（分数：2.00）填空项 1:_二级 VISUAL+BASIC 笔试 57 答案解析(总分：90.00，做题时间：90 分钟)一、B选择题/B(总题数：35，分数：70.00)1.以下关于过程及过程参数的描述中，错误的是（分数：2.00）A.过程的参数可以是控件名称B.用数组作为过程的参数时，使用的是“传地址”方式C.只有函数过程能够将过程中处理的信息传回到调用的程序中 D.窗体可以作为过程的参数解析：解析 过程参数可以是控件名称，因为可以把控件数组作为过程的参数，故窗体理所当然可以作为过程的参数，所

34、以 A 与 D 都是正确的。C 错在 Sub 过程也可以将过程中处理的信息传回到调用的程序中。2.设有下列二叉树： （分数：2.00）A.ABCDEFB.DBEAFCC.ABDECFD.DEBFCA 解析：解析 二叉树的遍历分为先序、中序、后序三种不同方式。本题要求后序遍历，其遍历顺序应该为：后序遍历左子树一，后序遍历右子树，访问根结点。按照定义，后序遍历序列是 DEBFCA。3.下列不属于软件工程三要素的是（分数：2.00）A.工具B.过程C.方法D.环境 解析：解析 软件工程三要素是方法、工具和过程。4.将数学表达式 Cos2(a+b)+5e2写成 Visual Basic 的表达式，其正

35、确的形式是（分数：2.00）A.Cos(a+2+5*exp(2) B.CoC22(a+5*exp(2)C.Cos(a+2+5*In(2)D.Cos2(a+5*ln(2)解析：解析 e 2在 Visual Basic 中表示为 exp(2)，COS 2(a+b)在 Visual Basic 中表示为 COS(a+b)2 而非cos2(a+b)，故本题选 A。5.在窗体上画一个名称为 TxtA 的文本框，然后编写如下的事件过程： Private Sub TxtA_KeyPress(keyaseii as integer) End Sub 若焦点位于文本框中，则能够触发 KeyPress 事件的操作

36、是（分数：2.00）A.单击鼠标B.双击文本框C.鼠标滑过文稿本框D.按下键盘上的某个键 解析：解析 只要按下键盘上的任何键，都可以触发 KeyPress 事件。故选择 D 项。 A 项触发的事件为MouseDown 或 MouseUp，B 项触发文本框的 DblClick 事件，而 C 触发了文本框的 MouseMove 事件。6.表示滚动条控件取值范围最大值的属性是（分数：2.00）A.Max B.LargeChangeC.ValueD.MaxMin解析：解析 滚动条常用的属性有 Max 与 Min，分别表示取值范围的最大值与最小值。LargeChange 表示Value 值的增加量，其中

37、 Value 值即为滚动条的当前值，故本题选 A。7.在面向对象中，一个对象请求另一个对象为其服务的方式是通过发送（分数：2.00）A.调用语句B.命令C.口令D.消息 解析：解析 面向对象的世界是通过对象与对象间彼此的相互合作来推动的，一个对象与另一个对象通过发送消息彼此交换信息，请求对方执行某一处理或回答某一要求的信息。8.设有语句 Open“c：/Test.Dat“For Output As#1 则以下错误的叙述是（分数：2.00）A.该语句打开 C 盘根目录下一个已存在的文件 TesDat B.该语句在 C 盘根目录下建立一个名为 TesDat 的文件C.该语句建立的文件的文件号为 1

38、D.执行该语句后，就可以通过 Print语句向文件 TesDat 中写入信息解析：解析 Open 语句兼有打开文件和建立文件两种功能。如果以输出方式 (Output)打开的文件不存在，则 Visual Basic 会建立相应的文件。9.在数据库设计的 4 个阶段，为关系模式选择存取方法应该在（分数：2.00）A.需求分析阶段B.概念设计阶段C.逻辑设计阶段D.物理设计阶段 解析：解析 需求分析阶段是分析用户的需求，显然不属于这个阶段，由此可以排除选项 A。概念设计是将需求分析得到的用户需求抽象为信息结构及概念模型的过程，涉及不到数据的存取。逻辑设计是在概念设计的基础上将 ER 图转换成数据库管

39、理系统的逻辑数据模型表示的逻辑模式，也不涉及存取问题。10.设在窗体上有一个名称为 Command1 的命令按钮，并有以下事件过程： Private Sub Command1_Click( ) Static b As Variant b=Array(1，3，5，7，9) End Sub 此过程的功能是把数组 b 中的 5 个数逆序存放(即排列为 9，7，5，3，1)。为实现此功能，省略号处的程序段应该是（分数：2.00）A.Fori=0 T0 5-1/2 tmp=b( b(=b(5-i-1) b(5-i-1)=tmp NextB.Fori=0 To 5 tmp=b( b(=b(5-i-1) b

40、(5-i-1)=tmp NextC.Fori=0 T0 5/2 tmp=b( b(=b(5-i-1) b(5-i-1)=tmp Next D.For i=l To 5/2 tmp=b( b(=b(5-i-1) b(5-i-1)=tmp Next解析：解析 为了实现恰当的循环，终值应设为 5/2，A 与 B 项都不正确，同时考虑到数值 b 的下标下界为默认值 0，所以 D 项也不正确，故选 C。11.在窗体上画一个名称为 Drive1 的驱动器列表框，一个名称为 Dir1 的目录列表框，一个名称为 File1的文件列表框，两个名称分别为 Label1、Label2，标题分别为空白和“共有文件”的

41、标签。编写程序，使得驱动器列表框与目录列表框、目录列表框与文件列表框同步变化，并且在标签 kabel1 中显示当前文件夹中文件的数量，如图所示。 能够正确实现上述功能的程序是 （分数：2.00）A.Private Sub Dir1_Change( ) Filc1.Path=Dir1.Path End Sub Private Sub Drive1_Change( ) Dir1.Path=Drive1.Drive Label1.Caption=File1.ListCount End SubB.Private Sub Dir1_Change( ) File1.Path=Dir1.Path End S

42、ub Private Sub Drive1_Change( ) Dir1.Path=Drive1.Drive Label1.Caption=File1.List End SubC.Private Sub Dir1_Change( ) File1.Path=Dir1.Path Label1.Caption=File1.ListCount End Sub Private Sub Drive1_Change( ) Dir1.Path=Drive1.Drive Label1.Caption=File1.ListCount End Sub D.Private Sub Dir1_Change( ) Fil

43、e1.Path=Dir1.Path Label1.Caption=File1.List End Sub Private Sub Drive1_Change( ) Dir1.Path=Drive1.Drive Label1.Caption=File1.List End Sub解析：解析 List 属性用来列出表项的内容，可以加下标用“( )”括起来配合使用。根据题意，应选择文件列表框的 ListCount 属性，该属性用于返回文件的数量值。故 B、D 项错误。A 项缺少“Label1.Caption=File1.ListCount”这一语句，从而使得在仅触动 Dir1 的 Change 事件时，

44、Label1l 没有反应。12.在窗体上画一个命令按钮，名称为 Command1。单击命令按钮时，执行如下事件过程： Private Sub Command1_Click( ) a$=“software and hardware“ b$=Right(a$，8) c$=Mid(a$，1，8) MsgBox aS，b$，c$，1 End Sub 则在弹出的信息框的标题栏中显示的信息是（分数：2.00）A.software and hardwareB.softwareC.hardware D.1解析：解析 Right(a，8)表示返回字符串 a从右数的 8 个字符，Mid(a，1，8)表示从 a的第

45、一个字符处向右取 8 个字符。Msg Box 语句后的第三项表示弹出的对话框的标题栏内的内容，故本题选择 C项。注意 Msg Box 语句后省略某项参数时，逗号不能省略。13.软件调试的目的是（分数：2.00）A.发现错误B.改正错误 C.改善软件的性能D.挖掘软件的潜能解析：解析 在对程序进行了测试以后进入程序调试。调试的任务是诊断和改正程序中的错误。它与软件测试不同，软件测试是尽可能多地发现软件中的错误。14.在窗体上画一个名称为、commonDidog1 的通用对话框，一个名称为 Command1 的命令按钮。要求单击命令按钮时,打开一个保存文稿件的通用对话框。该窗口的标题为”Save“

46、,缺省文件名为”SaveFile“,在“文件类型”栏中显示*.txt,则能够满足上述要求的程序是（分数：2.00）A.Private Sub Command1_Click( ) CommonDislog1.FileName=“SaveFile“ CommonDialog1.Filter=“All Files|*.*|(*.tx|*.txt|(*.do|*.doc“ CommonDialog1.FUterlndex=2 CommonDialog1.DialogTitle=“Save“ CommonDi810S1.Action=2 End Sub B.Pnrate Sub Command1_Cli

47、ck( ) CommonDialog1.FileNamc=“SaveFile“ CommonDialog1.Filtcr=“All Files|*.*|(*.tx|*.txt|(*.do|*.doc“ commonDislog1.Filterlndex=1 CommonDialog1.DialogTitle=“Save“ CommonDialog1.AcUon=2 End SubC.Private Sub Command1_C1ick( ) CommonDialog1.FileName=“Saven“ CommonDislog1.Filter=“All Files|*.*I(*.txI*.tx

48、t(*.do1*.doc“ CommonDislog1.Fiterlndex=2 Commondislog1.DialogTide=“SaveFile“ CommonDialog1.Action=2 End SubD.PnvateSubCommarldl_C1ick( ) CommonDialog1.FUeName=“SaveFile“ CommonDialog1.Filter=“All Files|*.*I(*.tx|*.txt|(*.do|*.doc“ CommonDialog1.Filterlndex=1 CommonDialog1.DislogTitle=“SaveFile“ CommonDialog1.Achon=1 End Sub解析：解析 FileName 用来设置或返回要保存的文件的路径及文件名，Filter 用来指定文件对话框中显示文件的类型，Filterlndex 用来指定默认的过滤器，DialosTitle 用来设置对话框的标题，Action 表示对话框的类型，保存文件对话框的 Action 值为 2。注意，Filter lndex 选择 1