1、二级 VISUAL+BASIC 笔试-421 及答案解析(总分：98.00，做题时间：90 分钟)一、选择题(总题数：35，分数：70.00)1.软件是指( )A程序 B程序和文档C算法加数据结构 D程序、数据与相关文档的完整集合（分数：2.00）A.B.C.D.2.软件调试的目的是( )A发现错误 B改正错误C改善软件的性能 D验证软件的正确性（分数：2.00）A.B.C.D.3.在面向对象方法中，实现信息隐蔽是依靠( )A对象的继承 B对象的多态C对象的封装 D对象的分类（分数：2.00）A.B.C.D.4.下列叙述中，不符合良好程序设计风格要求的是( )A程序的效率第一，清晰第二 B程序
2、的可读性好C程序中要有必要的注释 D输入数据前要有提示信息（分数：2.00）A.B.C.D.5.下列叙述中正确的是( )A程序执行的效率与数据的存储结构密切相关 B程序执行的效率只取决于程序的控制结构C程序执行的效率只取决于所处理的数据量 D以上三种说法都不对（分数：2.00）A.B.C.D.6.下列叙述中正确的是( )A数据的逻辑结构与存储结构必定是一一对应的B由于计算机存储空间是矢量式的存储结构，因此，数据的存储结构一定是线性结构C程序设计语言中的数组一般是顺序存储结构，因此，利用数组只能处理线性结构D以上三种说法都不对（分数：2.00）A.B.C.D.7.冒泡排序在最坏情况下的比较次数是
3、( )An(n+1)/2 Bnlog2 nCn(n-1)/2 Dn/2（分数：2.00）A.B.C.D.8.一棵二叉树中共有 70 个叶子结点与 80 个度为 1 的结点，则该二叉树中的总结点数为( )A219 B221C229 D231（分数：2.00）A.B.C.D.9.下列叙述中正确的是( )A数据库系统是一个独立的系统，不需要操作系统的支持B数据库技术的根本目标是要解决数据的共享问题C数据库管理系统就是数据库系统D以上三种说法都不对（分数：2.00）A.B.C.D.10.下列叙述中正确的是( )A为了建立一个关系，首先要构造数据的逻辑关系B表示关系的二维表中各元组的每一个分量还可以分成
4、若干数据项C一个关系的属性表称为关系模式D一个关系可以包括多个二维表（分数：2.00）A.B.C.D.11.要使一个文本框可以显示多行文本，应设置为 True 的属性是( )AEnabled BMultiLineCMasLenfth DWidth（分数：2.00）A.B.C.D.12.在窗体上有一个名为 Text1 的文本框，当光标在文本框中时，如果按下字母键“A”，则被调用的事件过程是( )AForm_KeyPress() BText1_LostFocus()CText1_Click() DTest1_Change()（分数：2.00）A.B.C.D.13.设在窗体上有一个名称为 Comma
5、nd1 的命令按钮和一个名称为 Text1 的文本框。要求单击 Command1 按钮时可把光标移到文本框中。下面正确的事件过程是( )APrivate Sub Command1_Click()Text1.GotFocusEnd Sub BPrivate SubCommand1.GotFocusEnd SubCPrivate Sub Command1_Click()Text1.SetFocusEnd Sub DPrivate SubCommand1.SetFocusEnd Sub（分数：2.00）A.B.C.D.14.执行以下程序后输出的是( )Private Sub Command1_Cli
6、ck()Ch$=“AABCDEFGH“Print Mid(Right(ch$,6),Len(left(ch$,4),2)End SubACDEFGH BABCD CFG DAB（分数：2.00）A.B.C.D.15.设在窗体 Form1 上有一个列表框 List1，其中有若干个项目。要求单击列表框中的某一项时，把该项显示在窗体上，正确的事件过程是( )APrivate Sub List1_Click()Print List1.TextEnd Sub BPrivate Sub Form1_Click()Print List1.TextEnd SubCPrivate Sub List1_Click
7、()Print Form1.TextEnd Sub DPrivate Sub Form1_Click()List1.Print List1.TextEnd Sub（分数：2.00）A.B.C.D.16.若窗体上的图片框中有一个命令按钮，则此按钮的 Left 属性是指( )A按钮左端到窗体左端的距离B按钮左端到图片框左端的距离C按钮中心点到窗体左端的距离D按钮中心点到图片框左端的距离（分数：2.00）A.B.C.D.17.为使程序运行时通用对话框 CD1 上显示的标题为“对话框窗口”，若通过程序设置该标题，则应使用的语句是( )ACD1.DialogTitle=“对话框窗口“ BCD1.Acti
8、on=“对话框窗口“CCD1.FileName=“对话框窗口“ DCD1.Filter=“对话框窗口/（分数：2.00）A.B.C.D.18.在窗体上有如右图所示的控件，各控件的名称与其标题相同，并有如下程序：Private Sub Form_Load()Command2.Enabled=FalseCheck1.Value=1End Sub刚运行程序时，看到的窗体外观是( )A B C D （分数：2.00）A.B.C.D.19.设在窗体中有一个名称为 List1 的列表框，其中有若干个项目(如图所示)。要求选中某一项后单击Command1 按钮，就删除选中的项，则正确的事件过程是( )（分数
9、：2.00）A.B.C.D.20.某人设计了如下程序用来计算并输出 7!(7 的阶乘)Private Sub Command1_Click()t=0For k=7 To 2 Step-1t=t*kNextPrint tEnd Sub执行程序时，发现结果是错误的，下面的修改方案中能够得到正确结果的是( )A把 t=0 改为 t=1B把 For k=7 To 2 Step-1 改为 For k=7 To 1 Step-1C把 For k=7 To 2 Step-1 改为 For k=1 To 7D把 Next 改为 Next k（分数：2.00）A.B.C.D.21.若窗体中已经有若干个不同的单选
10、按钮，要把它们改为一个单选按钮数组，在属性窗口中需要且只需要进行的操作是( )A把所有单选按钮的 Index 属性改为相同值B把所有单选按钮的 Index 属性改为连续的不同值C把所有单选按钮的 Caption 属性值改为相同D把所有单选按钮的名称改为相同，且把它们的 Index 属性改为连续的不同值。（分数：2.00）A.B.C.D.22.窗体上有文本框 Text1 和一个菜单，菜单标题、名称如表，结构如图所示。要求程序执行时单击“保存”菜单项，则把其标题显示在 Text1 文本框中。下面可实现此功能的事件过程是( )（分数：2.00）A.B.C.D.23.某人在窗体上画了一个名称为 Tim
11、er1 的计时器和一个名称为 Lab 的标签。计时器的属性没置Enabled=True，Interval=0，并进行如下编排。希望每 2 秒在标签上显示一次系统当前时间。Private Sub Timer1_Timer()Label1.Caption=Time$End Sub在程序执行时发现未能实现上述目的，那么应做的修改是( )A通过属性窗口把计时器的 Interval 属性设置为 2000B通过属性窗口把计时器的 Enabled 属性设置为 FalseC把事件过程中的 Label1.Caption=Time$语句改为 Timer1.Interval=Time$D把事件过程中的 Label1
12、.Caption=Time$语句改为 Label1.Caption=Timer1.Time（分数：2.00）A.B.C.D.24.形状控件的 Shape 属性有 6 种取值，分别代表 6 种几何图形。下列不属于这 6 种几何图形的是( )（分数：2.00）A.B.C.D.25.下面关于文件的叙述中错误的是( )A随机文件中各条记录的长度是相同的B打开随机文件时采用的文件存取方式应该是 RandomC向随机文件中写数据应使用语句 Print#文件号D打开随机文件与打开顺序文件一样，都使用 Open 语句（分数：2.00）A.B.C.D.26.设窗体上有一个图片框 Picture1，要在程序运行期
13、间装入当前文件夹下的图形文件 File1.jpg，能实现此功能的语句是( )APicture1.Picture=“Flie1.jpg“BPicture1.Picture=LoadPicture(“File1.jpg“)CLoadPicture(“File1.jpg“)DCall LoadPicture(“File1.jpg“)（分数：2.00）A.B.C.D.27.下面程序执行时，在窗体上显示的是( )Private Sub Command1_Click()Dim a(10)For k=1 To 10a(k)=11 - kNext kPrint a(a(3)/a(7)Mod a(5)End S
14、ubA3 B5 C7 D9（分数：2.00）A.B.C.D.28.为达到把 a、b 中的值交换后输出的目的，某人编程如下：Private Sub Command1_Click()a%=10:b%=20Call swap(a,b)Print a,bEnd SubPrivate Sub swap(ByVal a As Integer，ByVal b As Integer)c=a:a=b:b=CEnd Sub在运行时发现输出结果错了，需要修改。下面列出的错误原因和修改方案中正确的是( )A调用 swap 过程的语句错误，应改为 Call swap a,bB输出语句错误，应改为 Print“a“,“b
15、“C过程的形式参数有错，应改为 swap(ByRef a As Integer,ByRef b As Integer)Dswap 中 3 条赋值语句的顺序是错误的，应改为 a=b:b=c:c=a（分数：2.00）A.B.C.D.29.有如下函数：Function fun(a As Integer,n As Integer) As IntegerDim m As IntegerWhile a=naa-nmm+1Wendfun=mEnd Function该函数的返回值是( )Aa 乘以 n 的乘积 Ba 加 n 的和Ca 减 n 的差 Da 除以 n 的商(不含小数部分)（分数：2.00）A.B.
16、C.D.30.下面程序的输出结果是( )Private Sub Command1_Click()ch$=“ABCDEF“proc chPrint chEnd SubPrivate Sub proc(ch As String)S=“ “For k=Len(ch) To 1 Step-1s=sMid(ch,k,1)Next kch=sEnd SubAABCDEF BFEDCBA CA DF（分数：2.00）A.B.C.D.31.某人编写了一个能够返回数组 a 中 10 个数中最大数的函数过程，代码如下：Function MaxValue(a()As Integer)As IntegerDim ma
17、x%max=1For k=2 To 10If a(k)a(max) Thenmax=kEnd IfNext kMaxValue=maxEnd Function程序运行时，发现函数过程的返回值是错的，需要修改，下面的修改方案中正确的是( )A语句 max1 应改为 maxa(1)B语句 For k=2 To 10 应改为 For k=1 To 10CIf 语句中的条件 a(k)a(max)应改为 a(k)maxD语句 MaxValue=max 应改为 MaxValue=a(max)（分数：2.00）A.B.C.D.32.在窗体上画一个名称为 Command1 的命令按钮，并编写以下程序：Priv
18、ate Sub Command1_Click()Dim n%,b,tt=1:b=1:n=2Dob=b*nt=t+bn=n+1Loop Until n9Print tEnd Sub此程序计算并输出一个表达式的值，该表达式是( )A9! B10!C1! +2! +9! D1! +2! +10!（分数：2.00）A.B.C.D.33.有一个名称为 Form1 的窗体，上面没有控件，没有以下程序(其中方法 Pset(X,Y)的功能是在坐标 X,Y处画一个点)：Dim cmdmave As BooleanPrivate Sub Form_MouseDown(Button As Integer,Shift
19、 As Integer,X As Single,Y As Single)cmdmave=TrueEnd SubPrivate Sub Form_MouseMove(Button As Integer,Shift As Integer,X As Single,Y As Single)If cmdmave ThenForm1.Pset(X,Y)End IfEnd SubPrivate Sub Form_MouseUp(Button As Integer,Shift As Integer,X As Single,Y As Single)cmdmave=FalseEnd Sub此程序的功能是( )A每
20、按下鼠标键一次，在鼠标所指位置画一个点B按下鼠标键，则在鼠标所指位置画一个点；放开鼠标键，则此点消失C不按鼠标键而拖动鼠标，则沿鼠标拖动的轨迹画一条线D按下鼠标键并拖动鼠标则沿鼠标拖动的轨迹画一条线，放开鼠标键则结束画线（分数：2.00）A.B.C.D.34.某人设计了下面的函数 fun，功能是返回参数 a 中数值的位数Function fun(a As Integer)As IntegerDim n%n=1While a/100nn+1aa/10Wendfun=nEnd FUnction在调用该函数时发现返回的结果不正确，函数需要修改，下面的修改方案中正确的是( )A把语句 n=1 改为 n
21、=0B把循环条件 a/100 改为 a/100C把语句 aa/10 改为 a=a Mod 10D把语句 fun=n 改为 fun=a（分数：2.00）A.B.C.D.35.在窗体上有一个名称为 Check1 的复选框数组(含 4 个复选框)，还有一个名称为 Text1 的文本框，初始内容为空。程序运行时，单击任何复选框，则把所有选中的复选框后面的方字罗列在文本框中(如下图所示)。下面能实现此功能的事件过程是( )（分数：2.00）A.B.C.D.二、填空题(总题数：10，分数：28.00)36.软件需求规格说明书应具有完整性、无歧义性、正确性、可验证性、可修改性等特征，其中最重要的是 1。（分
22、数：2.00）填空项 1:_37.在两种基本测试方法中， 1 测试的原则之一是保证所测模块中每一个独立路径至少执行一次。（分数：2.00）填空项 1:_38.线性表的存储结构主要分为顺序存储结构和链式存储结构。队列是一种特殊的线性表，循环队列是队列的 1 存储结构。（分数：2.00）填空项 1:_39.对右边二叉树进行中序遍历的结果为_。（分数：2.00）填空项 1:_40.在 ER 图中，矩形表示 1。（分数：2.00）填空项 1:_41.窗体上有一个组合框，其中已输入了若干个项目。程序运行时，单击其中一项，即可把该项与最上面的一项交换。例如单击图 1 中的“重庆”，则与“北京”交换，得到图
23、 2 的结果。下面是可实现此功能的程序，请填空。（分数：2.00）填空项 1:_42.设窗体上有一个名称为 HScroIII 的水平滚动条，要求当滚动块移动位置后，能够在窗体上输出移动的距离(即新位置与原位置的刻度值之差，向右移动为正数，向左移动为负数)。下面是可实现此功能的程序，请填写。Dim_As IntegerPrivate Sub Form_Load()pos=HScroIII.ValueEnd SubPrivate Sub HScroIII_Change()Print_-pospos=HScroIII.ValueEnd Sub（分数：4.00）填空项 1:_43.设窗体上有一个名称为
24、 CD1 的通用对话框，一个名称为 Text1 的文本框和一个名称为 Command1 的命令按钮。程序执行时，单击 Command1 按钮，则显示打开文件对话框，操作者从中选择一个文本文件，并单击对话框上的“打开”按钮后，则可打开该文本文件，并读入一行文本，显示在 Text1 中。下面是实现此功能的事件过程，请填空。Private Sub Command1_Click()CD1.Filter=“文本文件 1*.txt(Word 文档)*.doc“CD1.Filterinder=1CD1.ShowOpenIf CD1.FileName“ “ThenOpen_For Input As # 1Li
25、ne Input #1,ch$Close #1Text1.Text=_End IfEnd Sub（分数：4.00）填空项 1:_44.下面的程序执行时，可以从键盘中输入一个正整数，然后把该数的每位数字按逆序输出。例如输入7685，则输出 5867，输入 1000，则输出 0001。请填空。Private Sub Command1_Click()Dim x As Integerx=InputBox(“请输入一个正整数“)While x_Print x Mod 10x=x/10WendPrint_End Sub（分数：4.00）填空项 1:_45.有如图所示的窗体。程序执行时先在 Text1 文本
26、框中输入编号，当焦点试图离开 Text1 时，程序检查编号的合法性，若编号合法，则焦点可以离开 Text1 文本框；否则显示相应的错误信息，并自动选中错误的字符，且焦点不能离开 Text1 文本框(如下图所示)。合法编号的组成是：前 2 个字符是大写英文字母，第 3 个字符是“-”，后面是数字字符(至少 1 个)。下面程序可实现此功能，请填空。（分数：4.00）填空项 1:_二级 VISUAL+BASIC 笔试-421 答案解析(总分：98.00，做题时间：90 分钟)一、选择题(总题数：35，分数：70.00)1.软件是指( )A程序 B程序和文档C算法加数据结构 D程序、数据与相关文档的完
27、整集合（分数：2.00）A.B.C.D. 解析：解析 计算机系统由硬件和软件两部分组成。其中，计算机软件包括程序、数据与相关文档的完整集合。2.软件调试的目的是( )A发现错误 B改正错误C改善软件的性能 D验证软件的正确性（分数：2.00）A.B. C.D.解析：解析 软件调试的任务是诊断和改正程序中的错误。3.在面向对象方法中，实现信息隐蔽是依靠( )A对象的继承 B对象的多态C对象的封装 D对象的分类（分数：2.00）A.B.C. D.解析：解析 对象的封装是指从外部看只能看到对象的外部特征，即只需知道数据的取值范围和可以对该数据施加的操作，而不需要知道数据的具体结构以及实现操作的算法。
28、4.下列叙述中，不符合良好程序设计风格要求的是( )A程序的效率第一，清晰第二 B程序的可读性好C程序中要有必要的注释 D输入数据前要有提示信息（分数：2.00）A. B.C.D.解析：解析 一般来讲，程序设计风格首先应该简单和清晰，其次程序必须是可以理解的，可以概括为“清晰第一，效率第二”。5.下列叙述中正确的是( )A程序执行的效率与数据的存储结构密切相关 B程序执行的效率只取决于程序的控制结构C程序执行的效率只取决于所处理的数据量 D以上三种说法都不对（分数：2.00）A. B.C.D.解析：解析 数据的存储结构、程序处理的数据量、程序的算法等都会影响程序执行效率。6.下列叙述中正确的是
29、( )A数据的逻辑结构与存储结构必定是一一对应的B由于计算机存储空间是矢量式的存储结构，因此，数据的存储结构一定是线性结构C程序设计语言中的数组一般是顺序存储结构，因此，利用数组只能处理线性结构D以上三种说法都不对（分数：2.00）A.B.C.D. 解析：解析 数据的逻辑结构是指反映数据元素之间逻辑关系的数据结构。数据的存储结构(也称数据的物理结构)是指数据的逻辑结构在计算机存储空间中的存放形式。通常一种数据的逻辑结构根据需要可以表示成多种存储结构。7.冒泡排序在最坏情况下的比较次数是( )An(n+1)/2 Bnlog2 nCn(n-1)/2 Dn/2（分数：2.00）A.B.C. D.解析
30、：解析 对 n 个结点的线性表采用冒泡排序，在最坏情况下，需要经过 n/2 次的从前往后的扫描和n/2 次的从后往前的扫描，需要的比较次数为 n(n-1)/2。8.一棵二叉树中共有 70 个叶子结点与 80 个度为 1 的结点，则该二叉树中的总结点数为( )A219 B221C229 D231（分数：2.00）A. B.C.D.解析：解析 在任意一棵二叉树中，设度为 0 的结点(即叶子结点)数为 n0，度为 2 的结点数为 n2，则有n0n2+1，本题中叶子结点的个数为 70，所以度为 2 的结点个数为 69，故总结点数=叶子结点数+度为 1的结点数+度为 2 的结点数为 70+80+69=2
31、19。9.下列叙述中正确的是( )A数据库系统是一个独立的系统，不需要操作系统的支持B数据库技术的根本目标是要解决数据的共享问题C数据库管理系统就是数据库系统D以上三种说法都不对（分数：2.00）A.B. C.D.解析：解析 数据库、数据库管理系统、数据库管理员、硬件平台、软件平台这五部分共同构成了一个以数据库为核心的完整的运行实体，称为数据库系统。数据库技术的根本目的是要解决数据的共享问题。数据库管理系统是一种系统软件，负责数据库中的数据组织、数据操作、数据维护、控制及保护和数据服务等是数据库系统的核心，它是数据库系统的一部分，二者不能等同。10.下列叙述中正确的是( )A为了建立一个关系，
32、首先要构造数据的逻辑关系B表示关系的二维表中各元组的每一个分量还可以分成若干数据项C一个关系的属性表称为关系模式D一个关系可以包括多个二维表（分数：2.00）A. B.C.D.解析：解析 元组分量的原子性要求二维表中元组的分量是不可分割的基本数据项。关系的框架称为关系模式。一个称为关系的二维表必须同时满足关系的 7 个性质。11.要使一个文本框可以显示多行文本，应设置为 True 的属性是( )AEnabled BMultiLineCMasLenfth DWidth（分数：2.00）A.B. C.D.解析：解析 在 Visual Basic 中，文本框的 Multiline 属性为 True
33、时，可以使用多行文本，即在文本框中输入或输出文本时可以换行，并在下一行中继续输入或输出。12.在窗体上有一个名为 Text1 的文本框，当光标在文本框中时，如果按下字母键“A”，则被调用的事件过程是( )AForm_KeyPress() BText1_LostFocus()CText1_Click() DTest1_Change()（分数：2.00）A.B.C.D. 解析：解析 当用户向文本框中输入新信息或当程序把 Text 属性设置为新值，从而改变文本框的 Text属性时，将触发 Change 事件。在程序运行后，在文本框中每输入一个字符，就会触发一次 Change 事件。13.设在窗体上有
34、一个名称为 Command1 的命令按钮和一个名称为 Text1 的文本框。要求单击 Command1 按钮时可把光标移到文本框中。下面正确的事件过程是( )APrivate Sub Command1_Click()Text1.GotFocusEnd Sub BPrivate SubCommand1.GotFocusEnd SubCPrivate Sub Command1_Click()Text1.SetFocusEnd Sub DPrivate SubCommand1.SetFocusEnd Sub（分数：2.00）A.B.C. D.解析：解析 由于要单击 Command1 按钮才触发光标移
35、到文本框中这个事件，所以应该是Command1_Click()的过程中发生，而文本框的 SetFocus 方法是文本框的常用方法，可以把输入光标(焦点)移到指定的文本框中。故应选 C。14.执行以下程序后输出的是( )Private Sub Command1_Click()Ch$=“AABCDEFGH“Print Mid(Right(ch$,6),Len(left(ch$,4),2)End SubACDEFGH BABCD CFG DAB（分数：2.00）A.B.C. D.解析：解析 Mid(字符串,p,n)函数表示从位置 p 开始取字符串的 n 个字符，Righ(ch$,6)是取字符串 ch
36、右部的 6 个字符即得 CDEFGH;left(ch$,4)是取字符串 ch 左部的 4 个字符即得 AABC;Len(1eft(ch$,4)测试字符串 left(ch$,4)的长度为 4；则根据 Mid 函数的含义得：在“CDEFGH”中第 4 个位置起取 2 个字符，结果即 FG。15.设在窗体 Form1 上有一个列表框 List1，其中有若干个项目。要求单击列表框中的某一项时，把该项显示在窗体上，正确的事件过程是( )APrivate Sub List1_Click()Print List1.TextEnd Sub BPrivate Sub Form1_Click()Print Lis
37、t1.TextEnd SubCPrivate Sub List1_Click()Print Form1.TextEnd Sub DPrivate Sub Form1_Click()List1.Print List1.TextEnd Sub（分数：2.00）A. B.C.D.解析：解析 print 方法可以在窗体上显示文本字符串和表达式的值，并可在其他图形对象或打印机上输出信息。其一般格式：对象名称.Print表达式表,|;，省略对象名称就直接将字符串输出到当前窗体。本题是在单击列表项时，触发“显示在窗体上”，所以应该是在 List1_Click()中，输出List1.Text，故应选 A。16
38、.若窗体上的图片框中有一个命令按钮，则此按钮的 Left 属性是指( )A按钮左端到窗体左端的距离B按钮左端到图片框左端的距离C按钮中心点到窗体左端的距离D按钮中心点到图片框左端的距离（分数：2.00）A.B. C.D.解析：解析 若图片框中有一个命令按钮，则此按钮的 Left 属性是指按钮的左端到图片框左端的距离。17.为使程序运行时通用对话框 CD1 上显示的标题为“对话框窗口”，若通过程序设置该标题，则应使用的语句是( )ACD1.DialogTitle=“对话框窗口“ BCD1.Action=“对话框窗口“CCD1.FileName=“对话框窗口“ DCD1.Filter=“对话框窗口
39、/（分数：2.00）A. B.C.D.解析：解析 在 Visual Basic 中通用对话框控件可以通过 DialogTitle 属性设置有实际意义的标题，故本题应该选 A。18.在窗体上有如右图所示的控件，各控件的名称与其标题相同，并有如下程序：Private Sub Form_Load()Command2.Enabled=FalseCheck1.Value=1End Sub刚运行程序时，看到的窗体外观是( )A B C D （分数：2.00）A. B.C.D.解析：解析 按钮控件的 Enabled 属性为 false 时，可以使按钮失去作用，即不可用，为 true 时按钮生效可用；其 Vi
40、sible 属性为 flase 时，是使按钮消失，为 true 时使按钮重新出现。复选框的 value 为 1时表示选中该复选框，为 0 表示没有选中该选项，为 2 时表示该复选框被禁止为灰色。19.设在窗体中有一个名称为 List1 的列表框，其中有若干个项目(如图所示)。要求选中某一项后单击Command1 按钮，就删除选中的项，则正确的事件过程是( )（分数：2.00）A.B.C. D.解析：解析 在 Visual Basic 中列表框的 clear 方法是用来删除所有列表项，RemoveItem 方法是删除指定的列表项，而列表框的 Index 属性表示选中的列表项的位置；本题是删除选中
41、的列表项，故应选 C。20.某人设计了如下程序用来计算并输出 7!(7 的阶乘)Private Sub Command1_Click()t=0For k=7 To 2 Step-1t=t*kNextPrint tEnd Sub执行程序时，发现结果是错误的，下面的修改方案中能够得到正确结果的是( )A把 t=0 改为 t=1B把 For k=7 To 2 Step-1 改为 For k=7 To 1 Step-1C把 For k=7 To 2 Step-1 改为 For k=1 To 7D把 Next 改为 Next k（分数：2.00）A. B.C.D.解析：解析 由于 t=t k，若 t=0
42、，则循环的结果只能是 0，不可能得到 7 的阶乘，所以应将 t=0，改为t=1。21.若窗体中已经有若干个不同的单选按钮，要把它们改为一个单选按钮数组，在属性窗口中需要且只需要进行的操作是( )A把所有单选按钮的 Index 属性改为相同值B把所有单选按钮的 Index 属性改为连续的不同值C把所有单选按钮的 Caption 属性值改为相同D把所有单选按钮的名称改为相同，且把它们的 Index 属性改为连续的不同值。（分数：2.00）A.B.C.D. 解析：解析 控件数组由一组相同类型的控件组成，其中所有的元素的 Name 属性必须相同，即名称必须统一，且每个元素都有一个对应的下标(索引)，下
43、标值由 Index 属性指定；而 Caption 属性只是用来设置标题的。22.窗体上有文本框 Text1 和一个菜单，菜单标题、名称如表，结构如图所示。要求程序执行时单击“保存”菜单项，则把其标题显示在 Text1 文本框中。下面可实现此功能的事件过程是( )（分数：2.00）A.B. C.D.解析：解析 由于要单击 save 才会触发在文本框中显示 save 标题，所以应该是在 save_Click()中进行编写，文本框的 Text 属性表示其显示的文本，而 Caption 表示控件的标题。故依题要求应选 B。23.某人在窗体上画了一个名称为 Timer1 的计时器和一个名称为 Lab 的
44、标签。计时器的属性没置Enabled=True，Interval=0，并进行如下编排。希望每 2 秒在标签上显示一次系统当前时间。Private Sub Timer1_Timer()Label1.Caption=Time$End Sub在程序执行时发现未能实现上述目的，那么应做的修改是( )A通过属性窗口把计时器的 Interval 属性设置为 2000B通过属性窗口把计时器的 Enabled 属性设置为 FalseC把事件过程中的 Label1.Caption=Time$语句改为 Timer1.Interval=Time$D把事件过程中的 Label1.Caption=Time$语句改为 L
45、abel1.Caption=Timer1.Time（分数：2.00）A. B.C.D.解析：解析 计时器的 Interval 属性是用来设置计时器的，事件之间的间隔以毫秒为单位，本题要求每2 秒显示一次系统时间，故 Interval 属性应设置为 2000。24.形状控件的 Shape 属性有 6 种取值，分别代表 6 种几何图形。下列不属于这 6 种几何图形的是( )（分数：2.00）A.B. C.D.解析：解析 Visual Basic 中形状控件的 Shape 属性有 6 种取值：矩形、正方形、椭圆形、圆形、四角圆化矩形和四角圆化正方形。25.下面关于文件的叙述中错误的是( )A随机文件
46、中各条记录的长度是相同的B打开随机文件时采用的文件存取方式应该是 RandomC向随机文件中写数据应使用语句 Print#文件号D打开随机文件与打开顺序文件一样，都使用 Open 语句（分数：2.00）A.B.C. D.解析：解析 向顺序文件中写数据应使用语句 Print#文件号，而随机文件应用 put#文件号。26.设窗体上有一个图片框 Picture1，要在程序运行期间装入当前文件夹下的图形文件 File1.jpg，能实现此功能的语句是( )APicture1.Picture=“Flie1.jpg“BPicture1.Picture=LoadPicture(“File1.jpg“)CLoa
47、dPicture(“File1.jpg“)DCall LoadPicture(“File1.jpg“)（分数：2.00）A.B. C.D.解析：解析 Visual Basic 中可以通过 LoadPicture 函数把图形文件装入窗体、图片框或图像框中，一般格式是：对象名.Picture=LoadPicture(“文件名“)结合本题要求应该选 B。27.下面程序执行时，在窗体上显示的是( )Private Sub Command1_Click()Dim a(10)For k=1 To 10a(k)=11 - kNext kPrint a(a(3)/a(7)Mod a(5)End SubA3 B
48、5 C7 D9（分数：2.00）A.B.C.D. 解析：解析 从题中易知 For 循环是为 a(10)赋值的，且 a(1)=10，a(2)=9a(9)=2，a(10)=1，则a(a(3)/a(7)Mod a(5)=a(8/4Mod6)=a(2)=9。28.为达到把 a、b 中的值交换后输出的目的，某人编程如下：Private Sub Command1_Click()a%=10:b%=20Call swap(a,b)Print a,bEnd SubPrivate Sub swap(ByVal a As Integer，ByVal b As Integer)c=a:a=b:b=CEnd Sub在运行时发现输出结果错了，需要修改。下面列出的错误原因和修改方案中正确的是( )A调用 swap 过
