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

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

1、二级 VISUAL+BASIC 笔试 339 及答案解析(总分：74.00，做题时间：90 分钟)一、B选择题/B(总题数：30，分数：60.00)1.以下关于图片框控件的说法中，错误的是（分数：2.00）A.可以通过 Print 方法在图片框中输出文本B.清空图片框控件中图形的方法之一是加载一个空图形C.图片框控件可以作为容器使用D.用 Stretch 属性可以自动调整图片框中图形的大小2.下列数据结构中，能用二分法进行查找的是（分数：2.00）A.顺序存储的有序线性表B.线性链表C.二叉链表D.有序线性链表3.在窗体上画一个名称为 Commandl 的命令按钮，然后编写如下事件过程： Pr

2、ivate Sub Command1_Click() a$=“VisualBasic“ Print String(3，a$) End Sub 程序运行后，单击命令按钮，在窗体上显示的内容是（分数：2.00）A.VVVB.VisC.sicD.114.设在窗体上有一个名称为 Command1 的命令按钮，并有以下事件过程： Private Sub Commandl Click() StatiC b As Variant b=Array(1，3，5，7，9) . End Sub 此过程的功能是把数组 b 中的 5 个数逆序存放(即排列为 9，7，5，3，1)。为实现此功能，省略号处的程序段应该是（分

3、数：2.00）A.For i=0 To 5-1/2 tmp=b( b(=b(5-i-1) b(5-i-1)=tmp NextB.For i=0 To 5 tmp=b( b(=b(5-i-1) b(5-i-1)=tmp NextC.For i-0 To 5/2 tmp=b( b(=b(5-i-1) b(5-i-1)=tmp NextD.For i=1 To 5/2 tmp=b( b(=b(5-i-1) b(5-i-1)=tmp Next5.下面概念中，不属于面向对象方法的是（分数：2.00）A.对象B.继承C.类D.过程调用6.在窗体上画一个名称为 Command1 的命令按钮，然后编写如下事件

4、过程： Option Base 1 Private Sub Command1_Click() Dim a a=Array(1，2，3，4，5) For i=1 To UBound(a) a(i)=a(i)+i-1 Next Print a(3) End Sub 程序运行后，单击命令按钮，则在窗体上显示的内容是（分数：2.00）A.4B.5C.6D.77.为了在按下 Esc 键时执行某个命令按钮的 Click 事件过程，需要把该命令按钮的一个属性设置为True，这个属性是（分数：2.00）A.ValueB.DefaultC.CalicelD.Enabled8.设有如下通用过程： Public F

5、unction f(x As Integer) Dim y As Integer x = 20 y = 2 f = x * y End Function 在窗体上画一个名称为 Command1 的命令按钮，然后编写如下事件过程： Private Sub Commandl Click() Static x As Integer x = 10 y = 5 y = f(x) Print x；y End Sub 程序运行后，如果单击命令按钮，则在窗体上显示的内容是（分数：2.00）A.10 5B.20 5C.20 40D.10 409.以下能够触发文本框 Change 事件的操作是（分数：2.00）A

6、.文本框失去焦点B.文本框获得焦点C.设置文本框的焦点D.改变文本框的内容10.在窗体上画一个名称为 Text1 的文本框和一个名称为 Command1 的命令按钮，然后编写如下事件过程： Private Sub Command1_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 程序运行后，单击命令按钮，在文本框中显

7、示的值是（分数：2.00）A.15B.14C.13D.1211.以下关系表达式中，其值为 False 的是（分数：2.00）A.“ABC“AbC“B.“the“they“C.“VISUAL“UCase(“Visual“)D.“Integer“Int“12.下列不能打开菜单编辑器的操作是（分数：2.00）A.按组合键 Ctrl+EB.单击工具栏中的“菜单编辑器”按钮C.执行“工具”菜单中的“菜单编辑器”命令D.按组合键 Shift+Alt+M13.有如下程序： Private Sub Command1_Click() s = 0 Do s=(s+1) ( (s+2) N=N+1 Loop Unt

8、il s=10 Print N；s End Sub 运行后的输出结果是（分数：2.00）A.0 1B.30 30C.4 30D.2 1214.设有下列二叉树： （分数：2.00）A.ABCDEFB.BDAECFC.ABDCEFD.DBEFCA15.以下声明语句中错误的是（分数：2.00）A.Constvar1=123B.Dim var2=ABCC.DefInt a-zD.Static var3 As Integer16.设一个工程由两个窗体组成，其名称分别为 Form1 和 Form2，在 Form1 上有一个名称为 Command1 的命令按钮。窗体 Form1 的程序代码如下： Priva

9、te Sub Command1_Click() Dim a As Integer a=10 Call g(Form2，a) End Sub Private Sub g(f As Form， x As Integer) y=IIf(x10， 100，-100) f.Show f.Caption =y End Sub 运行以上的程序，正确的结果是（分数：2.00）A.Forml 的 Caption 属性值为 100B.Form2 的 Caption 属性值为-100C.Forml 的 Caption 属性值为-100D.Form2 的 Caption 属性值为 10017.在设计阶段，当双击窗体上

10、的某个控件时，所打开的窗口是（分数：2.00）A.工程资源管理器窗口B.工具箱窗口C.代码窗口D.属性窗口18.有如下的程序段，该程序段的执行完后，共执行循环的次数是 Private Sub Command1_Click() total=0 Counter=l Do Print Counter total=total+Counter Print total Counter=Counter+1 If total=10 Then Exit Do End If Loop While Counter=10 End Sub（分数：2.00）A.5B.10C.12D.2019.在窗体中添加一个命令按钮，名

11、称为 Command1；添加一个文本框，名称为 Text1，然后编写如下程序：Private Sub Commandl Click() Dim a(5)， b(5) For j = 1 To 4 a(j) = 3 ( j b(j) = a(j) ( 3 Next j Text1.Text = b(j/2) End Sub 程序运行后，单击命令按钮，在文本框中显示（分数：2.00）A.25B.18C.36D.3520.设 a=10，b=5，c=1，执行语句 Print abc 后，窗体上显示的是（分数：2.00）A.TrueB.FalseC.1D.出错信息21.以下关于过程及过程参数的描述中，错

12、误的是（分数：2.00）A.过程的参数可以是控件名称B.用数组作为过程的参数时，使用的是“传地址”方式C.只有函数过程能够将过程中处理的信息传回到调用的程序中D.窗体可以作为过程的参数22.单击一次命令按钮之后，下列程序代码的执行结果为 private Sub Command1_Click() S=P(1) +P(1)+P(2)+P(3)+P(4) Print S： End Sub Public Function P(N As Integer) Static Sum For I=1 To n Sum=Sum+I Next 1 P=Sum End Function（分数：2.00）A.20B.3

13、5C.115D.13523.执行以下程序段 a$ =“abbacddcba“ For i = 6 To 2 Step - 2 X = Mid(a， i，i) Y=Left(a， i) z=Right(a，i) z=UCase(X & Y &Z) Next i Print z 输出结果为（分数：2.00）A.ABCB.BBABBAC.ABBABAD.AABAAB24.以下能够正确计算 n!的程序是（分数：2.00）A.Privas Sub Command1_Click() n=5：x=1 Do x=x*i i=i+1 Loop While in Print x End SubB.Private

14、Sub Command1_Click() n=5：x=1：i=1 Do x=x*i i=i+1 Loop While in Print x End SubC.Private Sub Command1_Click() n=5：x=1：i=1 Do x=x*i i=i+1 Loop while i=n Print x End SubD.Private Sub Command1_Click() n=5：x=1：i=1 Do x=x*i i=i+1 Loop While in Print x End Sub25.在数据库管理技术的发展过程中，经历了人工管理阶段、文件系统阶段和数据库系统阶段。其中数据独

15、立性最高的阶段是（分数：2.00）A.数据库系统阶段B.文件系统阶段C.人工管理阶段D.数据项管理26.在窗体上画一个名称为 CommonDialogl 的通用对话框，一个名称为 Commandl 的命令按钮。然后编写如下事件过程： Private Command1_Click() CommonDialogl.FileName=“ “ CommonDialogl.Filter=“All file|*.*|(*.Doc)|*.Doc|(*.Txt)|*.Txt“ CommonDialoql.Filterlndex=2 CommonDialogl.DialoqTitle=“VBTest“ Comm

16、onDialoql.Action=1 End Sub 对于这个程序，似下叙述中错误的是（分数：2.00）A.该对话框被设置为“打开”对话框B.在该对话框中指定的默认文件名为空C.该对话框的标题为 VBTestD.在该对话框中指定的默认文件类型为文本文件(*.Tx27.下列叙述中正确的是（分数：2.00）A.一个逻辑数据结构只能有一种存储结构B.数据的逻辑结构属于线性结构，存储结构属于非线性结构C.一个逻辑数据结构可以有多种存储结构，且各种存储结构不影响数据处理的效率D.一个逻辑数据结构可以有多种存储结构，且各种存储结构影响数据处理的效率28.以下叙述中错误的是（分数：2.00）A.用 Shel

17、l 函数可以调用能够在 Windows 下运行的应用程序B.用 Shell 函数可以调用可执行文件，也可以调用 Visual Basic 的内部函数C.调用 Shell 函数的格式应为；变量名Shell()D.用 Shell 函数不能执行 DOS 命令29.下面关于数据库系统的叙述正确的是（分数：2.00）A.数据库系统减少了数据冗余B.数据库系统避免了一切冗余C.数据库系统中数据的一致性是指数据类型的一致D.数据库系统比文件系统能管理更多的数据30.下列程序段的执行结果为 X=5 Y=-20 If Not X0 Then X=Y-3 Else Y=X+3 Print X-Y；（分数：2.00

18、）A.-3B.5C.3D.25二、B填空题/B(总题数：7，分数：14.00)31.在算法的 5 个特性中，算法必须能在执行有限个步骤之后终止指的是算法的 1 性。（分数：2.00）填空项 1:_32.Visual Basic 提供的对数据文件的三种访问方式为随机访问方式、 1 和二进制访问方式。（分数：2.00）填空项 1:_33.窗体上有一个名称为 List1 的列表框，一个名称为 Text1 的文本框，一个名称为 Label1、 Caption 属性为“Sum”的标签，一个名称为 Command1、标题为“计算”的命令按钮。 程序运行后，将把 1100 之间能够被 7 整除的数添加到列表

19、框中。如果单击“计算”按钮，则对 listl 中的数进行累加求和，并在文本框中显示计算结果，如图所示。以下是实现上述功能的程序，请填空。 （分数：2.00）填空项 1:_34.以下程序的功能是：生成 20 个 200300 之间的随机整数，输出其中能被 5 整除的数并求出它们的和。请填空。 Prirate Sub Command1_Click() For i=1 To 20 x=Int(_*100+200) If_=0 Then Print x S=S+ _ End If Next i Print “Sum=“；S End Sub（分数：2.00）填空项 1:_35.在 n 个运动员中选出任意

20、 r 个人参加比赛，有很多种不同的选法，选法的个数可以用公式 计算。下图窗体中 3 个文本框的名称依次是 Text1、Text2、Text3。程序运行时在 Text1、Text2 中分别输入 n和 r 的值，单击 Command1 按钮即可求出选法的个数，并显示在 Text3 文本框中(见下图)。请填空。 （分数：2.00）填空项 1:_36.以下是一个比赛评分程序。在窗体上建立一个名为 Text1 的文本框数组，然后画一个名为 Text2 的文本框和名为 Command1 的命令按钮。运行时在文本框数组中输入 7 个分数，单击“计算得分”命令按钮，则最后得分显示在 Text2 文本框中(去掉

21、一个最高分和一个最低分后的平均分即为最后得分)，如图所示。请填空。 （分数：2.00）填空项 1:_37.以下程序的功能是：把当前目录下的顺序文件 smtext1.txt 的内容读入内存，并在文本框 Text1 中显示出来。请填空。 Private Sub Command1_Click() Dim inData As String Textl.Text=“ “ Open “./smtext1._ As #1 Do While _ Input #1，inData Text1.Text=Text1.Text&inData Loop Close #1 End Sub（分数：2.00）填空项 1:_二

22、级 VISUAL+BASIC 笔试 339 答案解析(总分：74.00，做题时间：90 分钟)一、B选择题/B(总题数：30，分数：60.00)1.以下关于图片框控件的说法中，错误的是（分数：2.00）A.可以通过 Print 方法在图片框中输出文本B.清空图片框控件中图形的方法之一是加载一个空图形C.图片框控件可以作为容器使用D.用 Stretch 属性可以自动调整图片框中图形的大小 解析：解析 本题考查图片框与图像框的属性与方法。图片框中可以输出文本，与窗体类似，故答案 A是正确的。通过加载一个空图形 (Picture1.picture=LoadPicture(“ “)可以清空图片框，所以

23、答案 B 的表述正确。图片框可以作为容器使用，即可以作为父控件，这也是图片框与图像框的主要区别之一。答案C 也是正确的D 选项理解有误，Stretch 属性可以自动调整图形以适合图片框，而不是调整图形的大小关于 Stretch 属性，在 2002 年 9 月的试题中也出现过，它是图像框比较特殊的一个属性，图片框无此属性；考生应给予关注。2.下列数据结构中，能用二分法进行查找的是（分数：2.00）A.顺序存储的有序线性表 B.线性链表C.二叉链表D.有序线性链表解析：解析 二分查找只适用于顺序存储的有序表。在此所说的有序表是指线性表中的元素按值非递减排列(即从小到大，但允许相邻元素值相等)的。选

24、项 A 正确。3.在窗体上画一个名称为 Commandl 的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() a$=“VisualBasic“ Print String(3，a$) End Sub 程序运行后，单击命令按钮，在窗体上显示的内容是（分数：2.00）A.VVV B.VisC.sicD.11解析：解析 本题考查字符串函数。 String 返回 n 个字符。如果为字符串，则返回 n 个字符串的首字符。据此，本题的正确答案为 A，即返回 3 个“Visual Basic”的首字母“V”。4.设在窗体上有一个名称为 Command1 的命令按钮，并

25、有以下事件过程： Private Sub Commandl Click() StatiC b As Variant b=Array(1，3，5，7，9) . End Sub 此过程的功能是把数组 b 中的 5 个数逆序存放(即排列为 9，7，5，3，1)。为实现此功能，省略号处的程序段应该是（分数：2.00）A.For i=0 To 5-1/2 tmp=b( b(=b(5-i-1) b(5-i-1)=tmp NextB.For i=0 To 5 tmp=b( b(=b(5-i-1) b(5-i-1)=tmp NextC.For i-0 To 5/2 tmp=b( b(=b(5-i-1) b(5

26、-i-1)=tmp Next D.For i=1 To 5/2 tmp=b( b(=b(5-i-1) b(5-i-1)=tmp Next解析：解析 本题主要考查 For 循环控制结构。为了实现恰当的循环，终值应设为 5/2， A 与 B 项都不正确，同时考虑到数值 b 的下标下界为默认值 0，所以 D 项也不正确，故选 C。5.下面概念中，不属于面向对象方法的是（分数：2.00）A.对象B.继承C.类D.过程调用 解析：解析 A、B、C 属于面向对象方法，D 属于面向过程方法，故答案为 D。6.在窗体上画一个名称为 Command1 的命令按钮，然后编写如下事件过程： Option Base

27、1 Private Sub Command1_Click() Dim a a=Array(1，2，3，4，5) For i=1 To UBound(a) a(i)=a(i)+i-1 Next Print a(3) End Sub 程序运行后，单击命令按钮，则在窗体上显示的内容是（分数：2.00）A.4B.5 C.6D.7解析：解析 本题考查了数组的初始赋值。使用 Array 函数赋值的数组 a，由于“Option Base 1”故其下标下界为 1。所以 For 循环的语句表示令 a(i)为 a(i)加 i 减 1，对于 5 为 3 时，a(3)的值为“a(3)+3-1”，即“3+3-1”，结果

28、为 5，正确答案为 B。7.为了在按下 Esc 键时执行某个命令按钮的 Click 事件过程，需要把该命令按钮的一个属性设置为True，这个属性是（分数：2.00）A.ValueB.DefaultC.Calicel D.Enabled解析：解析 本题考查按钮控件的属性与事件。当一个命令按钮的 Cancel 属性被设置为 True 时，按Esc 键与单击该命令按钮的作用是相同的。在一个窗体中，只允许有一个命令按钮的 Cancel 属性被设置为 True。本题正确答案为 C。8.设有如下通用过程： Public Function f(x As Integer) Dim y As Integer x

29、 = 20 y = 2 f = x * y End Function 在窗体上画一个名称为 Command1 的命令按钮，然后编写如下事件过程： Private Sub Commandl Click() Static x As Integer x = 10 y = 5 y = f(x) Print x；y End Sub 程序运行后，如果单击命令按钮，则在窗体上显示的内容是（分数：2.00）A.10 5B.20 5C.20 40 D.10 40解析：解析 本题主要考查传值与传地址的区别。在 Command1 的 Click 事件过程中， x=10 以传地址的方式传给 Function f(x

30、As Integer)。而在这个函数过程中，x 又被赋值 20，所以此时变量 x 的值为20。y 的值为 20 乘以 2。所以正确答案为 C。9.以下能够触发文本框 Change 事件的操作是（分数：2.00）A.文本框失去焦点B.文本框获得焦点C.设置文本框的焦点D.改变文本框的内容 解析：解析 本题考查文本框的事件。文本框的属性、方法、事件都很重要。本题的 Change 事件是由文本框的内容被改变这一动作触发的，故本题正确答案为 D。选项 A 项触发了文本框的 LostFocus 事件；B 项触发了文本框的 GotFocus 事件；C 项使用了文本框的 SetFocus 方法。10.在窗体

31、上画一个名称为 Text1 的文本框和一个名称为 Command1 的命令按钮，然后编写如下事件过程： Private Sub Command1_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.12 解析：解析 本题考查用 F

32、or 循环为二维数组赋值，根据“arrayl(i，j)=i+j”可知： arrayl(2，3)的值为 5，arrayl(3，4)的值为 7，相加的结果为 12，故正确答案为 D。11.以下关系表达式中，其值为 False 的是（分数：2.00）A.“ABC“AbC“ B.“the“they“C.“VISUAL“UCase(“Visual“)D.“Integer“Int“解析：解析 本题考查关系运算符。字符串数据是按照其 ASCII 码的值进行比较的。如果两个字符串的第一个字符一样大，则比第二个字符的 ASCII 码的大小。故本题正确答案为 A。大写字母 B 的 ASCII 码值小于小写字母 b

33、 的 ASCII 码值。12.下列不能打开菜单编辑器的操作是（分数：2.00）A.按组合键 Ctrl+EB.单击工具栏中的“菜单编辑器”按钮C.执行“工具”菜单中的“菜单编辑器”命令D.按组合键 Shift+Alt+M 解析：解析 本题考查菜单编辑器的打开方式。菜单编辑器的打开方式有三种，一为使用热键 Ctrl+E；二可以使用访问键，即首先按 Alt 键激活菜单，然后按 T 键选择“工具”菜单，此时打开“工具菜单”便可以使用方向键进行选择；三便是用鼠标选择。本题答案 B 与 C 的表达的意思一致，A 用了快捷键。D不能打开任何菜单与功能，故答案为 D。13.有如下程序： Private Sub

34、 Command1_Click() s = 0 Do s=(s+1) ( (s+2) N=N+1 Loop Until s=10 Print N；s End Sub 运行后的输出结果是（分数：2.00）A.0 1B.30 30C.4 30D.2 12 解析：解析 本题主要考查 Do 循环控制语句的使用。Until s10 表示当 s 大于等于 10 时，终止循环，根据题意，循环 2 次，故 N 的值为 2，可以判断答案为 D，另外也可以计算出 s 的值为 12，但由于本题为选择题，可以不计算 s 直接得到正确答案。14.设有下列二叉树： （分数：2.00）A.ABCDEFB.BDAECFC.A

35、BDCEFD.DBEFCA 解析：解析 二叉树的遍历分为先序，中序、后序三种不同方式。本题要求后序遍历，其遍历顺序应该为：后序遍历左子树?后序遍历右子树?访问根结点。按照定义，后序遍历序列是 DBEFCA，故答案为 D。15.以下声明语句中错误的是（分数：2.00）A.Constvar1=123B.Dim var2=ABC C.DefInt a-zD.Static var3 As Integer解析：解析 本题考查常量与变量的定义。由于变量在声明时不能直接赋值，故选项 B 是错误的。A 项表示定义一个常量，并为其赋值。C 项使用 DetType 语句定义变量类型。用 DetType 语句定义变

36、量比较特殊，其格式为“DefType 字母范围”，表示对该字母范围的字母以及以该字母范围内字母开头的所有变量赋以 Type 数据类型。其中 Type 为 Visual Basic 中法定的数据类型缩写。D 项定义了一个静态变量。16.设一个工程由两个窗体组成，其名称分别为 Form1 和 Form2，在 Form1 上有一个名称为 Command1 的命令按钮。窗体 Form1 的程序代码如下： Private Sub Command1_Click() Dim a As Integer a=10 Call g(Form2，a) End Sub Private Sub g(f As Form，

37、x As Integer) y=IIf(x10， 100，-100) f.Show f.Caption =y End Sub 运行以上的程序，正确的结果是（分数：2.00）A.Forml 的 Caption 属性值为 100B.Form2 的 Caption 属性值为-100 C.Forml 的 Caption 属性值为-100D.Form2 的 Caption 属性值为 100解析：解析 本题考查了窗体参数在 Sub 过程中的使用。根据定义的 g Sub 过程，当参数 x 值大于 10 时，y 取值 100，否则取值-100，然后再把 y 值赋给窗体 f 的 Caption 属性。在事件过程

38、中调用此过程的实参分别为 Form2 与 a(其中 a 被赋值为 10)。由于 a=10，故 y=-100，所以正确的结果为：Form2 的 Caption属性为-100。B 项正确。17.在设计阶段，当双击窗体上的某个控件时，所打开的窗口是（分数：2.00）A.工程资源管理器窗口B.工具箱窗口C.代码窗口 D.属性窗口解析：解析 本题主要考查 Visual Basic 程序设计操作环境中的窗口操作，属于基本内容，需要记忆掌握在默认情况下，进入 Visual Basic 环境时，直接显示工程资源管理器窗口(可以通过“视图”菜单打开，也可以使用快捷键 Ctrl+R)、工具箱窗口(同样可以通过“视

39、图”菜单打开)、属性窗口(可以通过“视图”菜单打开，或使用快捷键 F4)。双击窗体或窗体上的控件可以打开的是代码窗口。18.有如下的程序段，该程序段的执行完后，共执行循环的次数是 Private Sub Command1_Click() total=0 Counter=l Do Print Counter total=total+Counter Print total Counter=Counter+1 If total=10 Then Exit Do End If Loop While Counter=10 End Sub（分数：2.00）A.5 B.10C.12D.20解析：解析 本题考查

40、 Do 循环内的嵌套语句。由于本题在 Do 循环内嵌套 If 语句，当 If 语句满足条件时，Do 循环也可以终止，故要比较 Total=10 与 Counter10 这两个条件谁先达到。通过观察去执行第五次循环时，Total 值满足条件， Do 循环终止，故选择 A。19.在窗体中添加一个命令按钮，名称为 Command1；添加一个文本框，名称为 Text1，然后编写如下程序：Private Sub Commandl Click() Dim a(5)， b(5) For j = 1 To 4 a(j) = 3 ( j b(j) = a(j) ( 3 Next j Text1.Text = b

41、(j/2) End Sub 程序运行后，单击命令按钮，在文本框中显示（分数：2.00）A.25B.18 C.36D.35解析：解析 本题主要考查数组的赋值以及考生对 For 循环结构的理解。本题，i 值经过 4 次赋值之后，最后一次。i 值为 5，此时 For 循环中止，故 b(j/2)=b(2)。根据 For 循环对 a(5)与 b(5)的赋值，不难看出，b(2)的值为 1，8，故本题选 B。20.设 a=10，b=5，c=1，执行语句 Print abc 后，窗体上显示的是（分数：2.00）A.TrueB.False C.1D.出错信息解析：解析 本题考查 Print 方法。 Print

42、方法具有计算的功能。本句 Print 先计算 abc。解题的关键是能否理解这一关系表达式，按照正常的理解，这个不等式为 True，但 Visual Basic 有它自己的语法。系统在判断该不等式时，从左向右解析，先解析 ab 为真，与整数比较时，真用-1 表示，故选择 B项。21.以下关于过程及过程参数的描述中，错误的是（分数：2.00）A.过程的参数可以是控件名称B.用数组作为过程的参数时，使用的是“传地址”方式C.只有函数过程能够将过程中处理的信息传回到调用的程序中 D.窗体可以作为过程的参数解析：解析 本题主要考查过程参数的传送。过程参数可以是控件名称，因为可以把控件数组作为过程的参数，

43、故窗体理所当然可以作为过程的参数，所以 A 与 D 都是正确的。C 错在 Sub 过程也可以将过程中处理的信息传回到调用的程序中。故本题选择 C 项。22.单击一次命令按钮之后，下列程序代码的执行结果为 private Sub Command1_Click() S=P(1) +P(1)+P(2)+P(3)+P(4) Print S： End Sub Public Function P(N As Integer) Static Sum For I=1 To n Sum=Sum+I Next 1 P=Sum End Function（分数：2.00）A.20B.35 C.115D.135解析：解析

44、 本题综合考查 Function 函数的建立、调用以及 For 循环控制语句。本题调用了 4 次 P 函数过程，参数赋值分别为 1、2、3、4，对应的 Sum 值分别为 1/4、10、20，之和为 35，故答案为 B。23.执行以下程序段 a$ =“abbacddcba“ For i = 6 To 2 Step - 2 X = Mid(a， i，i) Y=Left(a， i) z=Right(a，i) z=UCase(X & Y &Z) Next i Print z 输出结果为（分数：2.00）A.ABCB.BBABBA C.ABBABAD.AABAAB解析：解析 本题综合字符串函数与 For

45、 循环。由于 Print 语句在 For 循环后，而不在 For 循环内，故只有 For 循环执行完毕后，Print 方法才输出最终的 z 值。当 i=z 时，For 循环执行最后一次循环体。此时 Mid(a,2,2)表示返回 a$从第 2 个字符开始向右的第 2 个字符，即“bb”；Left(a,2)表示返回 a$左边的两个字符，即“ab”；Right(a,2)表示返回 a$右边两个字符，即“ba”。所以“X&Y&z”的值为“bbabba”，Ucase 返回字符串的大写形式，所以本题正确答案为 B。24.以下能够正确计算 n!的程序是（分数：2.00）A.Privas Sub Command

46、1_Click() 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=1 Do x=x*i i=i+1 Loop While in Print x End SubC.Private Sub Command1_Click() n=5：x=1：i=1 Do x=x*i i=i+1 Loop while i=n Print x End Sub D.Private Sub Command1_Click() n=5：x=1：i=1 Do x=x*i i=i+1 Loop

47、 While in Print x End Sub解析：解析 本题主要考查 Do 循环控制结构。只有 C 项符合题意。A 中 i 一开始未被赋值，默认为0；B 项中由于“in”的条件使得 Do 循环比应有循环次数少循环一次；选项 D 由于“in”这一条件，使得控制语句只能循环一次。25.在数据库管理技术的发展过程中，经历了人工管理阶段、文件系统阶段和数据库系统阶段。其中数据独立性最高的阶段是（分数：2.00）A.数据库系统阶段 B.文件系统阶段C.人工管理阶段D.数据项管理解析：解析 文件系统是数据库系统的初级阶段，提供了简单的数据共享与数据管理能力，附属于操作系统而不成为独立的软件，只能看作

48、是数据库系统的雏形阶段。人工管理阶段主要用于科学计算，硬件无硬盘，软件没有操作系统。数据库管理系统是从这两个阶段发展而来的，其数据独立性必然更高。因此答案为 A。26.在窗体上画一个名称为 CommonDialogl 的通用对话框，一个名称为 Commandl 的命令按钮。然后编写如下事件过程： Private Command1_Click() CommonDialogl.FileName=“ “ CommonDialogl.Filter=“All file|*.*|(*.Doc)|*.Doc|(*.Txt)|*.Txt“ CommonDialoql.Filterlndex=2 CommonDialogl.DialoqTitle=“VBTest“ CommonDialoql.Action=1 End Sub 对于这个程序，似下叙述中错误的是（分数：2.00）A.该对话框被设置为“打开”对话框B.在该对话框中指定的默认文件名为空C.该对话框的标题为 VBTestD.在该对话框中指定的默认文件类型为文本文件(*.Tx 解析：解析 本题考查通用对话框的属性。FileName 用来设置或返回要保存的文件的路径及文件名；Filter 用来指定文件对话框中显示文件的类型；FilterIndex 用来指定默认的过滤器； DialogTitle 用来设置对话框的标题，C 项表述正确；