1、二级 VISUAL+BASIC-77及答案解析(总分：100.00，做题时间：90 分钟)一、选择题(总题数：40，分数：100.00)1.软件是指_。（分数：2.50）A.程序B.程序和文档C.算法加数据结构D.程序、数据与相关文档的完整集合2.软件调试的目的是_。（分数：2.50）A.发现错误B.改正错误C.改善软件的性能D.验证软件的正确性3.在面向对象方法中，实现信息隐蔽是依靠_。（分数：2.50）A.对象的继承B.对象的多态C.对象的封装D.对象的分类4.下列叙述中，不符合良好程序设计风格要求的是_。（分数：2.50）A.程序的效率第一，清晰第二B.程序的可读性好C.程序中要有必要的
2、注释D.输入数据前要有提示信息5.下列叙述中正确的是_。（分数：2.50）A.程序执行的效率与数据的存储结构密切相关B.程序执行的效率只取决于程序的控制结构C.程序执行的效率只取决于所处理的数据量D.以上三种说法都不对6.下列叙述中正确的是_。（分数：2.50）A.数据的逻辑结构与存储结构必定是一一对应的B.由于计算机存储空间是向量式的存储结构，因此，数据的存储结构一定是线性结构C.程序设计语言中的数组一般是顺序存储结构，因此，利用数组只能处理线性结构D.以上三种说法都不对7.冒泡排序在最坏情况下的比较次数是_。（分数：2.50）A.n(n+1)/2B.nlog2nC.n(n-1)/2D.n/
3、28.一棵二叉树中共有 70个叶子结点与 80个度为 1的结点，则该二叉树中的总结点数为_。（分数：2.50）A.219B.221C.229D.2319.下列叙述中正确的是_。（分数：2.50）A.数据库系统是一个独立的系统，不需要操作系统的支持B.数据库技术的根本目标是要解决数据的共享问题C.数据库管理系统就是数据库系统D.以上三种说法都不对10.下列叙述中正确的是_。（分数：2.50）A.为了建立一个关系，首先要构造数据的逻辑关系B.表示关系的二维表中各元组的每一个分量还可以分成若干数据项C.一个关系的属性名表称为关系模式D.一个关系可以包括多个二维表11.要使一个文本框可以显示多行文本，
4、应设置为 True的属性是_。（分数：2.50）A.EnabledB.MultiLineC.MasLenfthD.Width12.在窗体上有一个名为 Text1的文本框。当光标在文本框中时，如果按下字母键“A”，则被调用的事件过程是_。（分数：2.50）A.Form_KeyPress()B.Text1_LostFocus()C.Text1_Click()D.Text1_Change()13.设在窗体上有一个名称为 Command1的命令按钮和一个名称为 Text1的文本框。要求单击 Command按钮时可把光标移到文本框中。下面正确的事件过程是_。（分数：2.50）A.Private Sub
5、Command1_Click()Text1.GotFocusEnd SubB.Private SubCommand1.GotFocusEnd SubC.Private Sub Command1_Click()Text1.SetFocusEnd SubD.Private SubCommand1.SetFocusEnd Sub14.执行以下程序后输出的是_。 Private Sub Command1_Click() Ch$=“AABCDEFGH“ Print Mid(Righ(ch$,6)，Len(left(ch$,4),2) End Sub（分数：2.50）A.CDEFGHB.ABCDC.FGD
6、.AB15.设在窗体 Form1上有一个列表框 List1，其中有若干个项目。要求单击列表框中某一项时，把该项显示在窗体上，正确的事件过程是_。（分数：2.50）A.Prvate Sub List1_Click()Print List1.TextEnd SubB.Private Sub Form1_Click()Print List1.TextEnd SubC.Private Sub List1_Click()Print Form1.TextEnd SubD.Private Sub Form1_Click()List1.Print List1.TextEnd Sub16.若窗体上的图片框中有一
7、个命令按钮，则此按钮的 Left属性是指_。（分数：2.50）A.按钮左端到窗体左端的距离B.按钮左端到图片框左端的距离C.按钮中心点到窗体左端的距离D.按钮中心点到图片框左端的距离17.为使程序运行时通用对话框 CD1上显示的标题为“对话框窗口”，若通过程序设置该标题，则应使用的语句是_。（分数：2.50）A.CD1.DialogTitle=“对话框窗口“B.CD1.Action=“对话框窗口“C.CD1.FileName=“对话框窗口“D.CD1.Filter=“对话框窗口“18.在窗体上有如下图所示的控件，各控件的名称与其标题相同，并有如下程序： Prirate Sub Form_Loa
8、d() Command2.Enabled=False Check1.Value=1 End Sub 刚运行程序时，看到的窗体外观是_。 A B C D （分数：2.50）A.B.C.D.19.设在窗体中有一个名称为 List1的列表框，其中有若干个项目(见下图)。要求选中某一项后单击Command1按钮，就删除选中的项，则正确的事件过程是_。 （分数：2.50）A.Private Sub Command1_Click()List1.ClearEnd SubB.Private Sub Command1_Click()List1.Clear List1.List IndexEnd SubC.Pri
9、vate Sub Command1_Click()List1.Removeltem List1.ListIndexEnd SubD.Private Sub Command1_Click()List1.RemoveltemEnd Sub20.某人设计了如下程序用来计算并输出 7!(7的阶乘)。 Private Sub Command1_Click() t=0 For k=7 To 2 Step-1 t=t*k Next Print t End Sub 执行程序时，发现结果是错误的，下面的修改方案中能够得到正确结构的是_。（分数：2.50）A.把 t=0改为 t=1B.把 For k=7 To 2
10、 Step-1改为 For k=7 To1 Step-1C.把 For k=7 To 2 Stip-1改为 Fork=1 To 7D.把 Next改为 Nexi k21.若窗体中已经有若干个不同的单选按钮，要把它们改为一个单选按钮数组，在属性窗口中需要且只需要进行的操作是_。（分数：2.50）A.把所有单选按钮的 Index属性改为相同值B.把所有单选按钮的 Index属性改为连续的不同值C.把所有单选按钮的 Caption属性值改为相同D.把所有单选按钮的名称改为相同，且把它们的 Index属性改为连续的不同值。22.窗体上有文本框 Text1和一个菜单，菜单标题、名称见下表，结构如下图所示
11、。要求程序执行时单击“保存”菜单项，则把其标题显示在 Text1文本框中。下面可实现此功能的事件过程是_。 标题 名称 文件 file 新建 new 保存 save （分数：2.50）A.Private Sub save_Click()Text1.Text=file.save.CaptionEnd SubB.Private Sub save_Click()Text1.Text=save.CaptionEnd SubC.Private Sub file_Click()Text1.Text=file.save.CaptionEnd SubD.Private Sub file_Click()Text
12、1.Text=save.CaptionEnd Sub23.某人在窗体上画了一个名称为 Timer1的计时器和一个名称为 Lab的属性设置为Enabled=True，Interval=0，并编程如下。希望在每 2秒在标签上显示一次系统当前时间。 Private Sub Timer1_Timer() Label1.Caption=Time End Sub 在程序执行时发现未能实现上述目的，那么，他应做的修改是_。（分数：2.50）A.通过属性窗口把计时器的 Interval属性设置为 2000B.通过属性窗口把计时器的 Enabled属生设置为 FalseC.把事件过程中的 Label1.Capt
13、ion=Time$语句改为 Timer1.Interval=TimsD.把事件过程中的 Label1.Caption=Time$语句改为 Label1.Caption=Timer1.Time24.形状控件的 Shape属性有 6种取值，分别代表 6种几何图形。下列不属于这 6种几何图形的是_。 A B C D （分数：2.50）A.B.C.D.25.下面关于文件的叙述中错误的是_。（分数：2.50）A.随机文件中各条记录的长度是相同的B.打开随机文件时采用的文件存取方式应该是 RandomC.向随机文件中写数据应使用语句 Print#文件号D.打开随机文件与打开顺序文件一样，都使用 Open语
14、句26.设窗体上有一个图片框 Picture1，要在程序运行期间装入当前文件夹下的图形文件 File1.jpg，能实现此功能的语句是_。（分数：2.50）A.Picture1.Picture=File1.jpgB.Picture1.Picture=LoadPicture(“File1.jpg“)C.LoadPicture(“File1.jpg“)D.Call LoadPicture(“File1.jpg“)27.下面程序执行时，在窗体上显示的是_。 Private Sub Command1_Click() Dim a(10) For k=1 To 10 a(k)=11-k Next k Pri
15、nt a(a(3)/a(7)Mod a(5) End Sub（分数：2.50）A.3B.5C.7D.928.为达到把 a、b 中的值交换后输出的目的，某人编程如下： Private Sub Command1_Click() a%=10:b%=20 Call swap(a,b) Print a,b End Sub Private Sub swap(ByVal a As Integer, ByVal b As Integer) c=a:a=b:b=c End Sub 在运行时发现输出结果错了，需要修改。下面列出的错误原因和修改方案中正确的是_。（分数：2.50）A.调用 swap过程的语句错误，应
16、改为 Call swap a,bB.输出语句错误，应改为：Print “a“, “b“C.过程的形式参数有错，应改为：swap(ByRef a As Integer, ByRef b As Integer)D.swap中 3条赋值语句的顺序是错误的，应改为 a=b:b=c:c=a29.有如下函数： Function fun(a As Integer, n As Integer)As Integer Dim m As Integer While a=n a=a-n m=m+1 Wend fun=m End Function 该函数的返回值是_。（分数：2.50）A.a乘以 n的乘积B.a加 n的
17、和C.a减 n的差D.a除以 n的商(不含小数部分)30.下面程序的输出结果是_。 Private Sub Command1_Click() ch$=“ABCDEF“ proc ch Print ch End Sub Private Sub proc(ch As String) S=“ For k=Len(ch)To 1 Step-1 s=s&Mid(ch,k,1) Next k ch=s End Sub（分数：2.50）A.ABCDEFB.FEDCBACADF31.某人编写了一个能够返回数组 a中 10个数中最大数的函数过程，代码如下： Function MaxValue(a()As Int
18、eger)As Integer Dim max% max=1 For k=2 To 10 If a(k)a(max)Then max=k End If Next k MaxValue=max End Function 程序运行时，发现函数过程的返回值是错的，需要修改，下面的修改方案中正确的是_。（分数：2.50）A.语句 max=1应改为 max=a(1)B.语句 For k=2 To 10应改为 For k=1 To 10C.If语句中的条件 a(k)a(max)应改为 a(k)maxD.语句 MaxValue=max应改为 MaxValue=a(max)32.在窗体上画一个名称为 Comm
19、and1的命令按钮，并编写以下程序： Private Sub Command1_Click() Dim n%,b,t t=1:b=1:n=2 Do b=b*n t=t+b n=n+1 Loop Until n9 Print t End Sub 此程序计算并输出一个表达式的值，该表达式是_。（分数：2.50）A.9!B.10!C.1!+2!+9!D.1!+2!+10!33.有一个名称为 Form1的窗体，上面没有控件，设有以下程序(其中方法 Pset(X，Y)的功能是在坐标X，Y 处画一个点)： Dim cmdmave As Boolean Private Sub Form_MouseDown(
20、Button As Integet, Shift As Integer, X As Single, Y As Single) cmdmave=True End Sub Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) If cmdmave Then Form1.Pset(X, Y) End If End Sub Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y A
21、s Single) cmdmave=False End Sub 此程序的功能是_。（分数：2.50）A.每按下鼠标键一次，在鼠标所指位置画一个点B.按下鼠标键，则在鼠标所指位置画一个点；放开鼠标键，则此点消失C.不按鼠标键而拖动鼠标，则沿鼠标拖动的轨迹画一条线D.按下鼠标键并拖动鼠标，则沿鼠标拖动的轨迹画一条线，放开鼠标键则结束画线34.某人设计了下面的函数 fun，功能是返回参数 a中数值的位数。 Function fun(a As Integer)As Integer Dim n% n=1 While a/10=0 n=n+1 a=a/10 Wend fun=n End Function
22、在调用该函数时发现返回的结果不正确，函数需要修改，下面的修改方案中正确的是_。（分数：2.50）A.把语句 n=1改为 n=0B.把循环条件 a/10=0 改为 a/100C.把语句 a=a/10改为 a=a Mod 10D.把语句 fun=n改为 fun=a35.在窗体上有一个名称为 Check1的复选框数组(含 4个复选框)，还有一个名称为 Text1的文本框，初始内容为空。程序运行时，单击任何复选框，则把所有选中的复选框后面的方字罗列在文本框中(见下图)。下而能实现此功能的事件过程是_。 （分数：2.50）A.Private Sub Check1_Click(Indes As Integ
23、er)Text1.Text=“For k=0 To 3If Check1(k).value=1 ThenText1.Text=Text1.Text&Check1(k).Capkion&“双引号中是空格 End IfNext kEnd SubB.Private Sub Check1_Click(Index As Integer)For k=0 To 3If Check1(k).Value=1 ThenText1.Text=Text1.Text&Check1(k).Caption&“ “双引号中是空格 End IfNext kEnd SubC.Private Sub Check1_Click(tn
24、dex AS Integer)Text1.Text=“For k=0 To 3If Check1(k).Value=1 ThenText1.Text=Text1.Text&Check1(Index).Caption&“ “双引号中是空格 End IfNext kEnd SubD.Private Sub Check1_Click(Index As Integer)Text1Text=“For k=0 To 3If Check1(k).Value=1 ThenText1.Text=Text1.Text&Checkl(k). Caption&“ “双引号中是空格 Exit ForEnd IfNext
25、 kEnd Sub36.设“A$=“北京“,B$=“Shanghai“”，则表达式“LEFTS(A$,2)+STRINGS(3,“-“)+LEFTS(BS,8)”构成的字符串是_。（分数：2.50）A.”北京 ”B.“北京 Shanghai“C.“Shanghai“D.“北京 Shanghai“37.有如下一个函数过程： Function fn(ByVal num As Long) Dim k As Long k=1 num=Abs(hum) do while num k=k*(num Mod 10) num=num/10 Loop fn=k End Function 以下是一个调用该函数的事
26、件过程，在运行该程序后，在输入对话框输入数字“123”，该过程的运行结果是_。 Private Sub Command1_Click() Dim n As Long Dim r As Long n=InputBox(“请输入一个数值“) n=CLng(n) r=fn(n) Print r End Sub（分数：2.50）A.12B.6C.3D.138.在窗体上画一个文本框，然后编写如下事件过程： Private Sub Text1_KeyPress(KeyAscii As Integer) Dim char As String char=Chr(KeyAscii) KeyAscii=Asc(U
27、case(char) Print String(6, KeyAscii) End Sub 程序运行后，如果在键盘上输入字母“a”，则窗体上显示的内容为_。（分数：2.50）AaBAC.aaaaaaD.AAAAAA39.在窗体(Name 属性为 form1)上画两个文本框(Name 属性分别为 Text1和 Text2)和一个命令按钮(Name属性为 Command1)，然后编写如下两个事件过程，该过程的运行结果为_。 Private Sub Command1_Click() a=Text1.Text+Text2.Text Print a End Sub Private Sub form_Loa
28、d() Text1.Text=“123“ Text2.Text=“321“ End Sub（分数：2.50）A.444B.321123C.123321D.13223140.在 Visual Basic中，要将一个窗体装载到内存进行预处理，但不显示，应该使用_语句。（分数：2.50）A.ShowB.HideC.LoadD.Unload二级 VISUAL+BASIC-77答案解析(总分：100.00，做题时间：90 分钟)一、选择题(总题数：40，分数：100.00)1.软件是指_。（分数：2.50）A.程序B.程序和文档C.算法加数据结构D.程序、数据与相关文档的完整集合 解析：解析 计算机软件
29、是计算机系统中与硬件相互依存的另一部分，是包括程序、数据及相关文档的完整集合。可见软件由两大部分组成：一是机器可执行的程序和数据；二是机器不可执行的，与软件开发、运行、维护和使用等有关的文档。2.软件调试的目的是_。（分数：2.50）A.发现错误B.改正错误 C.改善软件的性能D.验证软件的正确性解析：解析 软件测试的目的是为了发现程序中的错误，而程序调试的任务是诊断和改正程序中的错误，改正以后还需要再测试。3.在面向对象方法中，实现信息隐蔽是依靠_。（分数：2.50）A.对象的继承B.对象的多态C.对象的封装 D.对象的分类解析：解析 对象的继承是指使用已有的类定义作为基础建立新类的定义；多
30、态是指在类中可以定义名称相同的函数，但是这些函数的参数或者返回值的类型不同；封装是指将对象分为内部实现和外部接口两个部分，对象的内部对外是不可见的，从而实现信息隐蔽；分类是指将具有相同属性和操作的对象抽象成类。4.下列叙述中，不符合良好程序设计风格要求的是_。（分数：2.50）A.程序的效率第一，清晰第二 B.程序的可读性好C.程序中要有必要的注释D.输入数据前要有提示信息解析：解析 著名的“清晰第一，效率第二”的论点已经成为当今主导的程序设计风格，所以选项 A是错误的，其他选项都是良好程序设计风格的要求。5.下列叙述中正确的是_。（分数：2.50）A.程序执行的效率与数据的存储结构密切相关
31、B.程序执行的效率只取决于程序的控制结构C.程序执行的效率只取决于所处理的数据量D.以上三种说法都不对解析：解析 计算机中的数据进行处理时，数据的存储结构对程序的执行效率有很大的关系，例如，在有序存储的表中查找某个数值比在无序存储的表中查找的效率高上很多。6.下列叙述中正确的是_。（分数：2.50）A.数据的逻辑结构与存储结构必定是一一对应的B.由于计算机存储空间是向量式的存储结构，因此，数据的存储结构一定是线性结构C.程序设计语言中的数组一般是顺序存储结构，因此，利用数组只能处理线性结构D.以上三种说法都不对 解析：解析 一般来说，一种数据的逻辑结构根据需要可以表示成多种存储结构。数组是数据
32、的逻辑结构，可以用多种存储结构来表示，因此选项 B、C 错误。7.冒泡排序在最坏情况下的比较次数是_。（分数：2.50）A.n(n+1)/2B.nlog2nC.n(n-1)/2 D.n/2解析：解析 如果线性表的长度为 n，则在最坏情况下，冒泡排序需要经过 n/2遍的从前往后扫描和 n/2遍的从后往前扫描，需要比较次数为 n(n-1)/2。8.一棵二叉树中共有 70个叶子结点与 80个度为 1的结点，则该二叉树中的总结点数为_。（分数：2.50）A.219 B.221C.229D.231解析：解析 由二叉树的性质知：在任意一棵二叉树中，度为 0的结点(即叶子结点)总是比度为 2的结点多一个。本
33、题中，度为 0的结点数为 70，因此度为 2的结点数为 69，再加上度为 1的结点 80个，一共是 219个结点。9.下列叙述中正确的是_。（分数：2.50）A.数据库系统是一个独立的系统，不需要操作系统的支持B.数据库技术的根本目标是要解决数据的共享问题 C.数据库管理系统就是数据库系统D.以上三种说法都不对解析：解析 数据库系统(Database System，DBS)，是由数据库(数据)、数据库管理系统(软件)、计算机硬件、操作系统以及数据库管理员组成。作为专门处理数据的系统，数据库技术的主要目的就是解决数据的共享问题。10.下列叙述中正确的是_。（分数：2.50）A.为了建立一个关系，
34、首先要构造数据的逻辑关系 B.表示关系的二维表中各元组的每一个分量还可以分成若干数据项C.一个关系的属性名表称为关系模式D.一个关系可以包括多个二维表解析：解析 元组已经是数据的最小单位，不能再分；关系的框架称为关系模式；关系框架与关系元组一起构成了一个关系，也就是一个关系对应了一张二维表。选项 A中，在建立关系前，要先构造数据的逻辑关系是正确的。11.要使一个文本框可以显示多行文本，应设置为 True的属性是_。（分数：2.50）A.EnabledB.MultiLine C.MasLenfthD.Width解析：解析 要想在文本框中显示多行文本，则必须将 MultiLine属性值设置为“Tr
35、ue”，故选 B。12.在窗体上有一个名为 Text1的文本框。当光标在文本框中时，如果按下字母键“A”，则被调用的事件过程是_。（分数：2.50）A.Form_KeyPress()B.Text1_LostFocus()C.Text1_Click()D.Text1_Change() 解析：解析 当光标在文本框中时，按下字母键【A】，此时文本框的内容发生了改变，因而触发了文本框的 Change事件，则 D是正确的。13.设在窗体上有一个名称为 Command1的命令按钮和一个名称为 Text1的文本框。要求单击 Command按钮时可把光标移到文本框中。下面正确的事件过程是_。（分数：2.50）
36、A.Private Sub Command1_Click()Text1.GotFocusEnd SubB.Private SubCommand1.GotFocusEnd SubC.Private Sub Command1_Click()Text1.SetFocusEnd Sub D.Private SubCommand1.SetFocusEnd Sub解析：解析 B 和 D选项的语法格式是错误的。而 GotFocus是文本框的事件，不能写成Text1.GotFocus，因此 A是错误的。文本框得到光标的方法是 SetFocus，只有 C是正确的，故选 C。14.执行以下程序后输出的是_。 Pr
37、ivate Sub Command1_Click() Ch$=“AABCDEFGH“ Print Mid(Righ(ch$,6)，Len(left(ch$,4),2) End Sub（分数：2.50）A.CDEFGHB.ABCDC.FG D.AB解析：解析 Right(ch$，6)得到的结果是 CDEFGH；15.设在窗体 Form1上有一个列表框 List1，其中有若干个项目。要求单击列表框中某一项时，把该项显示在窗体上，正确的事件过程是_。（分数：2.50）A.Prvate Sub List1_Click()Print List1.TextEnd Sub B.Private Sub For
38、m1_Click()Print List1.TextEnd SubC.Private Sub List1_Click()Print Form1.TextEnd SubD.Private Sub Form1_Click()List1.Print List1.TextEnd Sub解析：解析 题目要求是单击列表框中的某一项，因此触发的事件过程名是 List1_Click，可以排除B、D。而 C中的 Print Form1.Text，本身就是错误的，窗体中没有 Text这个属性。16.若窗体上的图片框中有一个命令按钮，则此按钮的 Left属性是指_。（分数：2.50）A.按钮左端到窗体左端的距离B.
39、按钮左端到图片框左端的距离 C.按钮中心点到窗体左端的距离D.按钮中心点到图片框左端的距离解析：解析 “左边距离”、“上边距离”具体指的是：对象是窗体，则“左边距离”、“上边距离”均以屏幕左边界和上边界为基准；对象是控件，则“左边距离”、“上边距离”以窗体的左边界和上边界为基准；a 控件在 b控件里面，则“左边距离”、“上边距离”以 b控件的左边界和上边界为基准。只有 B是满足要求的，故选 B。17.为使程序运行时通用对话框 CD1上显示的标题为“对话框窗口”，若通过程序设置该标题，则应使用的语句是_。（分数：2.50）A.CD1.DialogTitle=“对话框窗口“ B.CD1.Actio
40、n=“对话框窗口“C.CD1.FileName=“对话框窗口“D.CD1.Filter=“对话框窗口“解析：解析 用来设置对话框的标题的属性是 DialogTitle，故选 A。18.在窗体上有如下图所示的控件，各控件的名称与其标题相同，并有如下程序： Prirate Sub Form_Load() Command2.Enabled=False Check1.Value=1 End Sub 刚运行程序时，看到的窗体外观是_。 A B C D （分数：2.50）A. B.C.D.解析：解析 通过分析上面的程序可知，当运行程序载入窗体后，命令按钮 Command2将不可用，图标变为灰色；而复选框
41、Check1的 Value属性值被设置成 1，则 Check1被选中，因此正确答案为 A。19.设在窗体中有一个名称为 List1的列表框，其中有若干个项目(见下图)。要求选中某一项后单击Command1按钮，就删除选中的项，则正确的事件过程是_。 （分数：2.50）A.Private Sub Command1_Click()List1.ClearEnd SubB.Private Sub Command1_Click()List1.Clear List1.List IndexEnd SubC.Private Sub Command1_Click()List1.Removeltem List1.
42、ListIndexEnd Sub D.Private Sub Command1_Click()List1.RemoveltemEnd Sub解析：解析 List1.Clear 表示将列表框中的所有项目都删除，不符合要求，A 错。List1.Clear List1.ListIndex语法错误，B 错。List1.RemoveItem 语句中缺少删除项序号，D 错。只有 C符合要求，故选择 C。20.某人设计了如下程序用来计算并输出 7!(7的阶乘)。 Private Sub Command1_Click() t=0 For k=7 To 2 Step-1 t=t*k Next Print t E
43、nd Sub 执行程序时，发现结果是错误的，下面的修改方案中能够得到正确结构的是_。（分数：2.50）A.把 t=0改为 t=1 B.把 For k=7 To 2 Step-1改为 For k=7 To1 Step-1C.把 For k=7 To 2 Stip-1改为 Fork=1 To 7D.把 Next改为 Nexi k解析：解析 通过分析上面的程序可知，如果 t=0，则在执行循环体 t=t*k时，t 的值一直为 0，这样就得不到 7的阶乘，因此只要将 t=0改为 t=1，就可以得到正确的结果，故选 A。21.若窗体中已经有若干个不同的单选按钮，要把它们改为一个单选按钮数组，在属性窗口中需
44、要且只需要进行的操作是_。（分数：2.50）A.把所有单选按钮的 Index属性改为相同值B.把所有单选按钮的 Index属性改为连续的不同值C.把所有单选按钮的 Caption属性值改为相同D.把所有单选按钮的名称改为相同，且把它们的 Index属性改为连续的不同值。 解析：解析 控件数组是由若干个 Name属性一样，Index 属性为连续的不同值的同一类型的控件组成的，故选 D。22.窗体上有文本框 Text1和一个菜单，菜单标题、名称见下表，结构如下图所示。要求程序执行时单击“保存”菜单项，则把其标题显示在 Text1文本框中。下面可实现此功能的事件过程是_。 标题 名称 文件 file
45、 新建 new 保存 save （分数：2.50）A.Private Sub save_Click()Text1.Text=file.save.CaptionEnd SubB.Private Sub save_Click()Text1.Text=save.CaptionEnd Sub C.Private Sub file_Click()Text1.Text=file.save.CaptionEnd SubD.Private Sub file_Click()Text1.Text=save.CaptionEnd Sub解析：解析 首先单击事件的对象名应该为某一控件(菜单项)的名称(Name)属性，
46、则单击【保存】菜单项，执行的事件应为 save_Click，则 C、D 是错误的。要将单击的菜单项的标题名(Caption)显示在 Text1中的语句为 Text1.Text=单击的菜单项的名称，Caption，由于单击的菜单项是【保存】，则正确的语句为 Text1.Text=save.Caption，则 A是错误的，B 是正确的，故选 B。23.某人在窗体上画了一个名称为 Timer1的计时器和一个名称为 Lab的属性设置为Enabled=True，Interval=0，并编程如下。希望在每 2秒在标签上显示一次系统当前时间。 Private Sub Timer1_Timer() Label
47、1.Caption=Time End Sub 在程序执行时发现未能实现上述目的，那么，他应做的修改是_。（分数：2.50）A.通过属性窗口把计时器的 Interval属性设置为 2000 B.通过属性窗口把计时器的 Enabled属生设置为 FalseC.把事件过程中的 Label1.Caption=Time$语句改为 Timer1.Interval=TimsD.把事件过程中的 Label1.Caption=Time$语句改为 Label1.Caption=Timer1.Time解析：解析 题目中将计时器 Timer1的 Interval属性设置为 0，则自然不能满足每 2秒触发一次Timer
48、1_Timer事件。要想每 2秒在标签上显示一次系统当前时间，即每 2秒触发一次 Timer1_Timer事件，只需要将 Interval属性设置为 2000。故选 A。24.形状控件的 Shape属性有 6种取值，分别代表 6种几何图形。下列不属于这 6种几何图形的是_。 A B C D （分数：2.50）A.B. C.D.解析：解析 形状控件的 Shape属性有 6种取值，分别是：矩形、正方形、椭圆形、圆形、四角圆化的矩形、四角圆化的正方形。因此 B三角形不是形状控件的 Shape属性的取值，故选 B。25.下面关于文件的叙述中错误的是_。（分数：2.50）A.随机文件中各条记录的长度是相同的B.打开随机文件时采用的文件存取方式应该是 RandomC.向随机文件中写数据应使用语句 Print#文件号 D.打开随机文件与打开顺序文件一样，都使用 Open语句解析：解析 向随机文件中进行写操作，应使用 Put#语句，而 Print#语句用于顺序文件的写操作，则 C是错误的，其他选项均
