1、二级 VISUAL+BASIC 笔试 322 及答案解析(总分：88.00，做题时间：90 分钟)一、B选择题/B(总题数：35，分数：70.00)1.把窗体的 KeyPreview 属性设置为 True，然后编写如下事件过程： Private Sub Form_KeyPress(KeyAscii As Integer) Dim Ch As String Ch=Chr(KeyAscii) KeyAscii=Asc(UCase(Ch) Print Chr(KeyAscii+2) End Sub 程序运行后，按键盘上的 A 键，则在窗体上显示的内容是_。（分数：2.00）A.AB.BC.CD.D2
2、.在长度为 n 的线性表中用二分法查找一个表中不存在的元素，需要的比较次数为_。（分数：2.00）A.log2nB.nlog2nC.n/2D.n3.数据字典是软件需求分析阶段的最重要的工具之一，其最基苯的功能是_。（分数：2.00）A.数据库设计B.数据通信C.数据定义D.数据维护4.在窗体上有若干控件，其中有一个名称为 Text1 的文本框。影响 Text1 的 Tab 顺序的属性是_。（分数：2.00）A.TabStopB.EnabledC.VisibleD.TabIndex5.在窗体上画一个名称为 Coramandl 的命令按钮，然后编写如下程序； Dim SW As Boolean F
3、unction func(X As Integer)As Integer If X20 Then Y=X Else Y=20+X End If func=Y End Function Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) Dim a As Boolean SW=False End Sub Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Sing
4、le) SW=True End Sub Private Sub Command1_Click() Dim intNum As Integer intNum=InputBox(“) If SW Then Print flmc(intNum) End If End Sub 程序运行后，单击命令按钮，将显示一个输入对话框，如果在对话框中输入 25，则程序的执行结果为（分数：2.00）A.输出 0B.输出 2C.输出 45D.无任何输出6.开发软件时对提高开发人员的工作效率至关重要的是_。（分数：2.00）A.计算机的并行处理能力B.领导的关心C.程序人员的数量D.软件开发环境7.有如下程序： Opt
5、ion Base 1 Private Sub Form_Click() Dim arr, Sum Sum=0 arr=Array(1, 3, 5, 7, 9, 11, 13, 15, 17, 19) For i=1 To 10 If arE(i)/3=arr(i)/3 Then Sum=Sum+arr(i) End If Next i Print Sum End Sub 程序运行后，单击窗体，输出结果为_。（分数：2.00）A.25B.26C.27D.288.在窗体上画一个名为 Text1 的文本框和一个名称为 Command1 的命令按钮，然后编写如下事件过程： Private Sub Co
6、mmand1_Click() Dim arrayl(10, 10)As Integer Dim i As Integer, j As Integer For i=1 To 3 For j=2 To 4 arrayl(i, j)=i+j Next j Next i Text1. Text=arrayl(2, 3)+arrayl(3, 4) End Sub 程序运行后，单击命令按钮，在文本框中显示的值是_。（分数：2.00）A.12B.13C.14D.159.面向对象的程序设计主要考虑提高程序的_。（分数：2.00）A.可靠性B.可重用性C.可移植性D.可修改性10.在窗体上画一个名称为 Comm
7、and1 的命令按钮，然后编写如下程序： Option Base 1 Private Sub Command1_Click() Dim c As Integer, d As Integer d=0 c=6 x=Array(2, 4, 6, 8, 10, 12) For i=1 To 6 If x(i)c Then d=d+x(i) c=x(i) Else d=d-c End If Next i Print d End Sub 程序运行后，如果单击命令按钮，则在窗体上输出的内容为_。（分数：2.00）A.10B.16C.12D.2011.在窗体上画一个名称为 Text1 的文本框，一个名称为 C
8、ommand1 的命令按钮，然后编写如下事件过程和通用过程： Private Sub Command1_Click() n=Val(Text1. Text) If n/2=n/2 Then f=f1(n) Else f=f2(n) End If Print f; n End Sub Public Function f1(ByRef x) x=x*x f1=x+x End Function Public Function f2(Byval x) x=x*x f1=x+x+x End Function 程序运行后，在文本框中输入 6，然后单击命令按钮，窗体上显示的是_。（分数：2.00）A.72
9、36B.108 36C.72 6D.108 612.在窗体上画一个文本框和一个计时器控件，名称分别为 Text1 和 Timer1，在属性窗口中把计时器的Interval 属性设置为 1000，Enabled 属性设置为 False。程序运行后，如果单击命令按钮，则每隔一秒钟在文本框中显示一次当前的时间。以下是实现上述操作的程序： Private Sub Command1_Click() Timer1. _ End Sub Private Sub Timer1_Timer() Text1. Text=Time End Sub 在填空处应填入的内容是_。（分数：2.00）A.Enabled=Tr
10、ueB.Enabled=FalseC.Visible=TrueD.Visible=False13.表达式 5 Mod 3+3/5*2 的值是_。（分数：2.00）A.0B.2C.4D.614.执行以下程序段： a $=“abbaedduba“ For i=6 To 2 Step-2 X=Mid(a, i, i) Y=Left(a, i) z=Right(a, i) z=UCase(X Next End Sub 程序运行后，单击命令按钮，输出结果是_。（分数：2.00）A.ABCDEB.1 2 3 4 5C.abodeD.出错信息26.在窗体上画一个名称为 Text1 的文本框和一个名称为 Co
11、mmand1 的命令按钮，然后编写如下事件过程： Private Sub Comandl_Click() Dim arrayl(10, 10)As Integer Dim i As Integer, j As Integer For i=1 To 3 For j=2 To 4 arrayl(i, j)=i+j Next j Next i Text1. Text=arrayl(2, 3)+arrayl(3, 4) End Sub 程序运行后，单击命令按钮，在文本框中显示的值是_。（分数：2.00）A.15B.14C.13D.1227.阅读程序： Option Base 1 Private Sub
12、 Form_Click() Dim arr, Sum Sum=0 art=Array(1, 3, 5, 7, 9, 11, 13, 15, 17, 19) For i=1 To 10 If arr(i)/3=arr(i)/3 Then Sum=Sum+arr(i) End If Next i Print Sum End Sub 程序运行后，单击窗体，输出结果为_。（分数：2.00）A.13B.14C.27D.1528.在窗体上画一个名称为 CommonDialogl 的通用对话框，一个名称为 Command1 的命令按钮。然后编写如下事件过程： Prirate Sub Command1_Cli
13、ck() CommonDialogl. FileName=“ CommonDialogl. Filter=“All file|*. *|(*. Doc)|*. Doc|(*. Txt)|*. Txt“ CommonDialogl. Filterlndex=2 CommonDialogl. DialogTitle=“VBTest“ CommonDialogl. Action=1 End Sub 对于这个程序，以下叙述中错误的是_。（分数：2.00）A.该对话框被设置为“打开”对话框B.在该对话框中指定的默认文件名为空C.该对话框的标题为 VBTestD.在该对话框中指定的默认文件类型为文本文件(
14、*. Tx29.当型循环和直到型循环的区别是_。（分数：2.00）A.当型循环效率高B.直到型循环效率高C.当型循环至少执行一次运算D.直到型循环至少执行一次运算30.在窗体上画一个列表框和一个命令按钮，其名称分别为 List1 和 Command1，然后编写如下事件过程： Private Sub Form_Load() List1. AddItem“Item1“ List1AddItem“Item2“ List1. AddItem“Item3“ End Sub Private Sub Command1_Click() List1. List(List1. ListCount)=“AAAA“
15、End Sub 程序运行后，单击命令按钮，其结果为_。（分数：2.00）A.把字符串“AAAA”添加到列表框中，但位置不能确定B.把字符串“AAAA”添到列表框的最后(即“Item3”的后面)C.把列表框之中原有的最后一项改为“AAAA”D.把字符串“AAAA”插入到列表框的最前面(即“Iteml”的前面)31.在窗体上画两个文本框，其名称分别为 Text1 和 Text2，然后编写如下程序： Private Sub Form Load() Show Text1. Text=“ Text2. Text=“ Text1. SetFocus End Sub Private Sub Text1_Ch
16、ange() Text2. Text=Mid(Text1. Text, 8) End Sub 程序运行后，如果在文本框 Text1 中输入 BeijingChina，则在文本框 Text2 中显示的内容是_。（分数：2.00）A.BeijingB.ChinaC.BeijingD.BeijingC32.在窗体上画一个名称为 Command1 的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() x=0 n=InputBox(“) For i=1 To n For j=1 To i x=x+1 Next j Next i Print x End Sub 程序
17、运行后，单击命令按钮，如果输入 3，则在窗体上显示的内容是_。（分数：2.00）A.3B.4C.5D.633.设有如下程序： Dption Base 1 Private Sub Command1_Click() Dim a(10)As Integer Dim n As Integer n=InputBox(“输入数据“) If n10 Then Call GetArray(a, n) End If End Sub Private Sub GetArray(h()As Integer, n As Integer) Dim c(10)As Integer j=0 For i=1 To n b(i)
18、=CInt(Rnd()*100) If b(i)/2=b(i)/2 Then j=j+1 c(j)=b(i) End If Next print j Knd Sub 以下叙述中错误的是_。（分数：2.00）A.数组 b 中的偶数被保存在数组 c 中B.程序运行结束时，在窗体上显示的是 c 数组中元素的个数C.GetArray 过程的参数 n 是按值传送的D.如果输入的数据大于 10，则窗体上不显示任何信息34.下列关于栈的描述中错误的是_。（分数：2.00）A.栈是先进后出的线性表B.栈只能顺序存储C.栈具有记忆作用D.对栈的插入与删除操作中，不需要改变栈底指针35.在软件生命周期法中，用户的
19、参与主要在_。（分数：2.00）A.软件定义期B.软件开发期C.软件维护期D.整个软件生命周期过程中二、B填空题/B(总题数：9，分数：18.00)36.顺序查找一般是指在U 【1】 /U中查找指定的元素。（分数：2.00）填空项 1:_37.面向对象的程序设计主要的优点包括与人类习惯思维方法一致、稳定性好、可重用性好、U 【2】 /U和可维护性好等 5 个方面。（分数：2.00）填空项 1:_38.在软件生命周期的各个阶段都会产生一系列的文件，如手册、数据和程序等，它们总称为U 【3】 /U。（分数：2.00）填空项 1:_39.在关系数据库中，把数据表示成二维表，每一个二维表称为U 【4】
20、 /U。（分数：2.00）填空项 1:_40.数据是信息的符号表示，又称载体；信息是数据的U 【5】 /U。（分数：2.00）填空项 1:_41.如图 16-10 所示在列表框 List1 中已经有若干人的简单信息，运行时在 Text1 文本框(即“查找对象”右边的文本框)输入一个姓或姓名，单击“查找”按钮，则在列表框中进行查找，若找到，则把该人的信息显示在 Text2 文本框中。若有多个匹配的列表项，则只显示第 1 个匹配项；若未找到，则在 Text2 中显示“查无此人”。请填空。 （分数：2.00）填空项 1:_42.在窗体上画一个标签(名称为 Label1)和一个计时器(名称为 Time
21、r1)，如图 16-11 所示，然后编写如下几个事件过程： （分数：2.00）填空项 1:_43.设有如下记录类型： Type student Number As String*10 Name As String*8 End Type 窗体中有若干控件，单击其中的一个按钮 Command1 时，执行如下事件过程，该过程的功能是把数据输出到指定的文件中。根据题意，请完善下列程序。 Private sub Command1_click() Dim stu As student Open “C:/file, dat“ For Random As #1 Len=Len(U 【11】 /U) Title
22、 $=“写记录到随机文件“ Str1 $=“请输入学生名“ Str2 $=“请输入学生名“ For i=1 To 5 stu. Number=InputBox(Str1 $, Title $) stu. Name=InputBox$(Str2 $, Title $) U 【12】 /U#1, i, stu Next i CloseU 【13】 /U End Sub（分数：2.00）填空项 1:_44.本程序的功能是利用随机数函数模拟投币，方法是：每次随机产生一个 0 或 1 的整数，相当于一次投币，1 代表正面，0 代表反面。在窗体上有 3 个文本框，名称分别是 Text1、Text2、Tex
23、t3，分别用于显示用户输入投币总次数、出现正面的次数和出现反面的次数，如图 16-12 所示。程序运行后，在文本框Text1 中输入总次数，然后单击“开始”按钮，按照输入的次数模拟投币，分别统计出现正面、反面的次数，并显示结果。以下是实现上述功能的程序，请填空。 Private Sub Command1_Click() Randomize n=CInt(Text1. Text) n1=0 n2=0 For i=1 ToU 【14】 /U r=Int(Rnd*2) If r=U 【15】 /UThen n1=n1+1 Else n2=n2+1 End If Next Text2. Text=n1
24、 Text3. Text=n2 End Sub （分数：2.00）填空项 1:_二级 VISUAL+BASIC 笔试 322 答案解析(总分：88.00，做题时间：90 分钟)一、B选择题/B(总题数：35，分数：70.00)1.把窗体的 KeyPreview 属性设置为 True，然后编写如下事件过程： Private Sub Form_KeyPress(KeyAscii As Integer) Dim Ch As String Ch=Chr(KeyAscii) KeyAscii=Asc(UCase(Ch) Print Chr(KeyAscii+2) End Sub 程序运行后，按键盘上的
25、A 键，则在窗体上显示的内容是_。（分数：2.00）A.AB.BC.C D.D解析：分析 KeyPress 事件用来识别按键的 ASCII 码。参数 KeyAscii 是一个预定义的变量，执行KeyPress 事件过程时，KeyAscii 是所按键的 ASCII 码。函数 Chr(x)是把 x 的值转换为相应的 ASCII 字符，函数 Asc(x)是返回字符串 x 的首个字母的字符代码，函数 UCase(x)返回大写的字符串 X。当按键盘上的A 键时，KeyPress 值为 97，Chr(97)的返回侑为“a”，Asc(UCase(“a“)返回值为“65”Chr(65+2)的返回值为“C”。2
26、.在长度为 n 的线性表中用二分法查找一个表中不存在的元素，需要的比较次数为_。（分数：2.00）A.log2nB.nlog2nC.n/2D.n 解析：分析 对于长度为 n 的有序线性表，在最坏情况下，二分查找只需要比较 log2 n 次，而顺序查找需要比较 n 次。3.数据字典是软件需求分析阶段的最重要的工具之一，其最基苯的功能是_。（分数：2.00）A.数据库设计B.数据通信C.数据定义 D.数据维护解析：分析 数据字典是系统中各类数据描述的集合，是进行详细的数据收集和数据分析所获得的成果。数据字典通过对数据项和数据结构的定义来描述数据流、数据存储的逻辑内容，所以数据字典的最基本的功能是数
27、据定义。4.在窗体上有若干控件，其中有一个名称为 Text1 的文本框。影响 Text1 的 Tab 顺序的属性是_。（分数：2.00）A.TabStopB.EnabledC.VisibleD.TabIndex 解析：分析 在设计阶段可以通过属性窗口中的 TabTndex 属性来改变 Tab 顺序。5.在窗体上画一个名称为 Coramandl 的命令按钮，然后编写如下程序； Dim SW As Boolean Function func(X As Integer)As Integer If X20 Then Y=X Else Y=20+X End If func=Y End Function
28、Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) Dim a As Boolean SW=False End Sub Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single) SW=True End Sub Private Sub Command1_Click() Dim intNum As Integer intNum=InputBox(“) If
29、 SW Then Print flmc(intNum) End If End Sub 程序运行后，单击命令按钮，将显示一个输入对话框，如果在对话框中输入 25，则程序的执行结果为（分数：2.00）A.输出 0B.输出 2C.输出 45D.无任何输出 解析：分析 上述程序由一个通用过程和 3 个事件过程组成，在命令按钮事件过程中调用通用过程，并把一个参数传送给通用过程。这里要注意，只有在一定的条件下，才能调用通用过程，这个条件就是，窗体层的 Boolean 变量 SW 的值必须为 True，否则不能调用。而为了使 SW 的值为 True，必须执行Form_MouseUp 事件过程，这只能通过单击
30、窗体来实现。单击窗体时，单击鼠标左键执行 Form_MouseDown事件过程，使得 SW=False。松开鼠标后执行 Form_MouseUp 事件过程，使得 SW=True。程序运行后，由于没有执行 Form_MouseUp 事件过程，直接单击命令按钮，因而 SW 的值为 False，这样不会调用通用过程，也就不会输出任何信息。6.开发软件时对提高开发人员的工作效率至关重要的是_。（分数：2.00）A.计算机的并行处理能力B.领导的关心C.程序人员的数量D.软件开发环境 解析：分析 程序开发环境是用来辅助计算机软件的开发、分析、维护和管理的软件系统，使用软件开发工具能节省软件开发的时间和费
31、用，对提高软件开发人员的工作是至关重要的。7.有如下程序： Option Base 1 Private Sub Form_Click() Dim arr, Sum Sum=0 arr=Array(1, 3, 5, 7, 9, 11, 13, 15, 17, 19) For i=1 To 10 If arE(i)/3=arr(i)/3 Then Sum=Sum+arr(i) End If Next i Print Sum End Sub 程序运行后，单击窗体，输出结果为_。（分数：2.00）A.25B.26C.27 D.28解析：分析 本题考查的是数组赋值以及算术运算符“/”和“/”的区别。本程
32、序段首先用 Array 函数给 arr 数组赋初值。“/”是浮点除法，执行标准除法操作，结果为浮点数。“/”为整数除法，整型整除运算，结果为整型值。本程序的功能是：找出 arr 数组中能被 3 整除的元素值，将其累加到 sum 中，然后输出。满足该条件的元素是 3、9、15，和值为 27。8.在窗体上画一个名为 Text1 的文本框和一个名称为 Command1 的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() Dim arrayl(10, 10)As Integer Dim i As Integer, j As Integer For i=1 To
33、 3 For j=2 To 4 arrayl(i, j)=i+j Next j Next i Text1. Text=arrayl(2, 3)+arrayl(3, 4) End Sub 程序运行后，单击命令按钮，在文本框中显示的值是_。（分数：2.00）A.12 B.13C.14D.15解析：分析 本题首先定义了一个整型数组 arrayl，然后用 For 循环嵌套语句给数组中的部分元素赋值。从赋值语句“arrayrl(i，j)=i+j”可以看出，元素的值等于下标之和。所以 Text1. Text=arrayl(2，3)+arrayl(3，4)=2+3+3+4=12，所以文本框中显示的值是 12
34、。9.面向对象的程序设计主要考虑提高程序的_。（分数：2.00）A.可靠性B.可重用性 C.可移植性D.可修改性解析：分析 在面向对象方法中，所使用的对象将数据和对数据的操作封装在一起，数据和操作是作为平等、伙伴的关系出现的。因此，对象具有较强的自含性，此外，对象所固有的封装性，使得对象的内部实现和外界隔离，具有较强的独立性。因此，对象提供了比较理想的模块化机制和比较理想的可重用的软件成分，所以答案 B 是正确的。10.在窗体上画一个名称为 Command1 的命令按钮，然后编写如下程序： Option Base 1 Private Sub Command1_Click() Dim c As
35、Integer, d As Integer d=0 c=6 x=Array(2, 4, 6, 8, 10, 12) For i=1 To 6 If x(i)c Then d=d+x(i) c=x(i) Else d=d-c End If Next i Print d End Sub 程序运行后，如果单击命令按钮，则在窗体上输出的内容为_。（分数：2.00）A.10B.16C.12 D.20解析：分析 当 x(i)的值分别为 2、4、6 时，变量 d 的值为 0-6-6-6=-18。当 x(i)的值分别为8、10、12 时，d 为-18+8+10+12=12。其中，将 x(i)的值赋给变量 c，
36、对 d 的运算没有影响。11.在窗体上画一个名称为 Text1 的文本框，一个名称为 Command1 的命令按钮，然后编写如下事件过程和通用过程： Private Sub Command1_Click() n=Val(Text1. Text) If n/2=n/2 Then f=f1(n) Else f=f2(n) End If Print f; n End Sub Public Function f1(ByRef x) x=x*x f1=x+x End Function Public Function f2(Byval x) x=x*x f1=x+x+x End Function 程序运行
37、后，在文本框中输入 6，然后单击命令按钮，窗体上显示的是_。（分数：2.00）A.72 36 B.108 36C.72 6D.108 6解析：分析 当在文本框中输入 6 时，条件“n/2=n/2”成立，调用 f1 函数过程。在过程的计算中，变量 x 的值为 36，函数名 f1 为 72。由于 x 是被定义为“ByRef”(按址方式传送)，所以将 36 反传送给实参n，函数名 f1 也将 72 返回给变量 f。最后在窗体上显示的是 72 和 36。12.在窗体上画一个文本框和一个计时器控件，名称分别为 Text1 和 Timer1，在属性窗口中把计时器的Interval 属性设置为 1000，E
38、nabled 属性设置为 False。程序运行后，如果单击命令按钮，则每隔一秒钟在文本框中显示一次当前的时间。以下是实现上述操作的程序： Private Sub Command1_Click() Timer1. _ End Sub Private Sub Timer1_Timer() Text1. Text=Time End Sub 在填空处应填入的内容是_。（分数：2.00）A.Enabled=True B.Enabled=FalseC.Visible=TrueD.Visible=False解析：分析 用 Visible 属性设置对象的可见性，如果将该属性设置为 False，则隐藏对象；如果
39、设置为 True，则对象可见。用 Enabled 属性设置对象的可用性，如果将该属性设置为 False，则对象为不可用；如果设置为 True，则对象为可用。按题意应将 Enablcd 属性设置为 True。13.表达式 5 Mod 3+3/5*2 的值是_。（分数：2.00）A.0B.2 C.4D.6解析：分析 按算术运算符的优先级，将上述的表达式改为 5 Mod 2+(3/5)2)。计算过程为：(3/5)=0，02=0，5 Mod 3=2，2+0=2。14.执行以下程序段： a $=“abbaedduba“ For i=6 To 2 Step-2 X=Mid(a, i, i) Y=Left(
40、a, i) z=Right(a, i) z=UCase(X Next End Sub 程序运行后，单击命令按钮，输出结果是_。（分数：2.00）A.ABCDE B.1 2 3 4 5C.abodeD.出错信息解析：分析 本程序段首先定义了一维数组 a，然后用 For 循环为其赋值，Asc()函数的作用是返回字符的 ASCII 码，字符“A”的 ASCII 码为 65，Chr()函数的作用是将 ASCII 码值变为相应的字符，而“a(i)=Chr(Asc(“A“)+(i-1)”的作用是将每次比原来大 1 的 ASCII 码值变为字符赋给 a，所以 a 的元素是A、B、C、D、E。For Each
41、-In 用于输出 a 中元素的值。26.在窗体上画一个名称为 Text1 的文本框和一个名称为 Command1 的命令按钮，然后编写如下事件过程： Private Sub Comandl_Click() Dim arrayl(10, 10)As Integer Dim i As Integer, j As Integer For i=1 To 3 For j=2 To 4 arrayl(i, j)=i+j Next j Next i Text1. Text=arrayl(2, 3)+arrayl(3, 4) End Sub 程序运行后，单击命令按钮，在文本框中显示的值是_。（分数：2.00）
42、A.15B.14C.13D.12 解析：分析 数组 Arrayl 的部分元素在双重循环中被初值，其规律为：数组元素的值是两个下标值的之和，所以 Arrayrl(2，3)=5，Arrayl(3，4)=7。表达式“Arrayl(2，3)+Arrayl(3，4)”的计算结果为12。27.阅读程序： Option Base 1 Private Sub Form_Click() Dim arr, Sum Sum=0 art=Array(1, 3, 5, 7, 9, 11, 13, 15, 17, 19) For i=1 To 10 If arr(i)/3=arr(i)/3 Then Sum=Sum+ar
43、r(i) End If Next i Print Sum End Sub 程序运行后，单击窗体，输出结果为_。（分数：2.00）A.13B.14C.27 D.15解析：分析 整数除法运算符(/)执行整除运算，结果为整型值，所以“arr(i)/3=arr(i)/3”为数组arr 元素值被 3 整除的条件。计算结果为：3+9+15=27。28.在窗体上画一个名称为 CommonDialogl 的通用对话框，一个名称为 Command1 的命令按钮。然后编写如下事件过程： Prirate Sub Command1_Click() CommonDialogl. FileName=“ CommonDia
44、logl. Filter=“All file|*. *|(*. Doc)|*. Doc|(*. Txt)|*. Txt“ CommonDialogl. Filterlndex=2 CommonDialogl. DialogTitle=“VBTest“ CommonDialogl. Action=1 End Sub 对于这个程序，以下叙述中错误的是_。（分数：2.00）A.该对话框被设置为“打开”对话框B.在该对话框中指定的默认文件名为空C.该对话框的标题为 VBTestD.在该对话框中指定的默认文件类型为文本文件(*. Tx 解析：分析 用属性 Action=1 表示显示“打开”对话框，用属性
45、 FileName=“表示默认文件名为空，用属性 DialogTitle=“VBTest“表示对话框的标题为 VBTest，用 FilterIndex 属性指定第二个即(*. Doc)|*. Doc作为默认显示的过滤器，所以正确答案为选项 D。29.当型循环和直到型循环的区别是_。（分数：2.00）A.当型循环效率高B.直到型循环效率高C.当型循环至少执行一次运算D.直到型循环至少执行一次运算 解析：分析 在程序设计语言中，重复结构对应两类循环语句，先判断后执行循环体的结构称为当型循环结构，又称 While 型循环。先执行循环体后判断的称为直到型循环结构，又称 Until 型循环。所以直到型循
46、环至少执行一次运算。30.在窗体上画一个列表框和一个命令按钮，其名称分别为 List1 和 Command1，然后编写如下事件过程： Private Sub Form_Load() List1. AddItem“Item1“ List1AddItem“Item2“ List1. AddItem“Item3“ End Sub Private Sub Command1_Click() List1. List(List1. ListCount)=“AAAA“ End Sub 程序运行后，单击命令按钮，其结果为_。（分数：2.00）A.把字符串“AAAA”添加到列表框中，但位置不能确定B.把字符串“A
47、AAA”添到列表框的最后(即“Item3”的后面) C.把列表框之中原有的最后一项改为“AAAA”D.把字符串“AAAA”插入到列表框的最前面(即“Iteml”的前面)解析：分析 列表框的 List 属性用来列出表项的内容，也可以改变数组中已有的值。列表框中表项的排列是从 0 开始，最后一项的序号为 ListCount-1。本程序的功能是：把字符串“AAAA”添加到列表框的最后，但不改变 Item3 的值。31.在窗体上画两个文本框，其名称分别为 Text1 和 Text2，然后编写如下程序： Private Sub Form Load() Show Text1. Text=“ Text2.
48、Text=“ Text1. SetFocus End Sub Private Sub Text1_Change() Text2. Text=Mid(Text1. Text, 8) End Sub 程序运行后，如果在文本框 Text1 中输入 BeijingChina，则在文本框 Text2 中显示的内容是_。（分数：2.00）A.BeijingB.China C.BeijingD.BeijingC解析：分析 Mid 函数的作用是返回从指定位开始的指定长度的字符串，如果不指定长度，则从开始位置到右边所有字符。由于在该题目中只指定了开始的字符位置为“8”，而没有指定长度，故右边的字符将全部传给文本框 Text2。32.在窗体上画一个名称为 Command1 的命令按钮
