1、二级 VISUAL+BASIC-80 及答案解析(总分：94.50，做题时间：90 分钟)一、选择题(总题数：35，分数：66.50)1.以下关于过程及过程参数的描述中，错误的是（分数：2.00）A.过程的参数可以是控件名称B.调用过程时使用的实参的个数应与过程形参的个数相同(假定不含可变参数)C.只有函数过程能够将过程中处理的信息返回到调用程序中D.窗体可以作为过程的参数2.将 E-R 图转换为关系模式时，实体和联系都可以表示为_。（分数：1.00）A.属性B键C.关系D域3.写了叙述中正确的是_。（分数：2.50）A.栈是一种先进先出的线性表B.队列是一种后进先出的线性表C.栈与队列都是非
2、线性结构D.以上三种说法都不对4.窗体上有一个名称为 Timer1 的计时器控件，一个名称为 Shape1 的形状控件，其 Shape 属性值为3(Circle)。编写程序如下： Private Sub Form_Load() Shape1.Top=0 Timer1.Interval=100 End Sub Private Sub Timer1_Timer() Static x As Integer Shape1.Top=Shape1.Top+100 x=x+1 If x Mod 10=0 Then Shape1.Top=0 End If End Sub 以下关于上述程序的叙述中，错误的是_。
3、（分数：1.00）A.每执行一次 Timer1_Timer 事件过程，x 的值都在原有基础上增加 1B.Shape1 每移动 10 次回到起点，重新开始C.窗体上的 Shape1 由下而上移动D.Shape1 每次移动 1005.设有下面程序代码： Option Base 1 Private Sub Command1_Click() Dim x(6) a=Array(4, 2, 5, 1, 6, 3) b=Array(64, 24, 98, 27, 58, 41) For k=1 To 6 x(a(k)=b(k) Next k For k=1 To 6 Print x(k); Next k E
4、nd Sub 程序运行时的输出是（分数：2.00）A.27 24 41 64 98 58B.64 24 98 27 58 41C.24 27 41 58 64 98D.98 64 58 41 27 246.打开菜单编辑器的快捷键是_。（分数：2.00）A.Ctrl+EB.shift+EC.Alt+ED.Tab+E7.下列程序段的执行结果为 _ 。 a=6 For k=1 To n a=a+k Next Print k; a（分数：2.00）A.-16B.-116C.16D.11 218.设有如图所示窗体和以下程序： Private Sub Command1_Click() Text1.Text
5、=“Visual Basic“ End Sub Private Sub Text1_LostFocus() If Text1.Text“BASIC“ Then Text1.Text=“ “ Text1.SetFocus End If End Sub （分数：2.00）A.文本框中无内容，焦点在文本框中B.文本框中为“Basic”，焦点在文本框中C.文本框中为“Basic”，焦点的按钮上D.文本框中为“Visual Basic”，焦点的按钮上9.以下合法的 VB 变量名是（分数：2.50）A.#1B.123_aC.stringD.x_12310.在设计程序时，应采纳的原则之一是_。（分数：2.0
6、0）A.程序结构应有助于读者理解B.不限制 goto 语句的使用C.减少或取消注解行D.程序越短越好11.面向对象方法中，继承是指_。（分数：2.50）A.一组对象所具有的相似性质B.一个对象具有另一个对象的性质C.各对象之间的共同性质D.类之间共享属性和操作的机制12.以下叙述中错误的是（分数：2.50）A.Sub Main 是定义在标准模块中的特定过程B.一个工程中只能有一个 Sub Main 过程C.Sub Main 过程不能有返回值D.当工程中含有 Sub Main 过程时，工程执行时一定最先执行该过程13.要求如果 x 被 7 除余 2，则输出 x 的值，下列语句中不能实现此功能的语
7、句是_。（分数：1.00）A.Ifx mod 7=2 Then Print xB.If x-(x/7)*7=2 Then Print xC.If x-(x/7)*7=2 Then Print xD.If x-Int(x/7)*7=2 Then Print x14.在设计阶段，当按 Ctrl+R 键时，所打开的窗口是_。（分数：2.50）A.代码窗口B.工具箱窗口C.工程资源管理器窗口D.属性窗口15.使用语句 Dim A(1 To 10)As Integer 声明数组 A 之后，以下说法正确的是 _ 。（分数：2.00）A.A 数组中的所有元素值为 0B.A 数组中的所有元素值不确定C.A 数
8、组中的所有元素值为 EmptyD.执行 EraseA 后，A 数组中的所有元素值为 Null16.在窗体上画一个名称为 Command1 的命令按钮，再画两个名称分别为 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(a As Integer, ByVal b As Integer) X=a*a Y=b+b En
9、d Sub 程序运行后，单击命令按钮，则两个标签中显示的内容分别是_。（分数：1.00）A.25 和 3B.5 和 3C.25 和 6D.5 和 617.为了从当前文件夹中读入文件 File1.txt，某人编写了下面的程序： Private Sub Command1_Click() Open “File1.txt“ For Output As #20 Do While Not EOF(20) Line Input #20,ch$= Print ch Loop Close #20 End Sub 程序调试时，发现有错误，下面的修改方案中正确的是_（分数：2.50）A.在 Open 语句中的文件名
10、前添加路径B.把程序中各处的“20”该为“1”C.把 Print ch 语句改为 Print #20，chD.把 Open 语句中的 Output 改为 Input18.下面程序的执行结果是 Private Sub Command1_Click() a=0 k=1 Do While k4 x=kka:k=k+1 Print x; Loop End Sub（分数：2.00）A.1 4 27B.1 1 1C.1 4 9D.0 0 019.窗体上画一个文本框(其名称为 Text1)和一个标签(其名称为 Labell)。要求程序运行后，如果在文本框中输入字符，则立即在标签中显示相同的内容。以下可以实现
11、上述操作的事件过程是 _。（分数：1.00）A.Private Sub Text1_Change()Labell.Caption=Text1.TextEnd SubB.Private Sub Text1_Click()Labell.Caption=Text1.TextEnd SubC.Private Sub Labell_Change()Labell.Caption=Text1.TextEnd SubD.Private Sub Labell_Click()Labell.Caption=Text1.TextEnd Sub20.设窗体上有名称为 Option1 的单选按钮，且程序中有语句： If
12、Option1.Value=True Then 下面语句中与该语句不等价的是_。（分数：1.00）A.If Option1.Value ThenB.If Option1=True ThenC.If Value=True ThenD.If Option1 Then21.设 a=2，b=3，c=4，d=5，下列表达式的值是_。 ab And c=d Or 2*ac（分数：1.00）A.TrueB.FalseC.-1D.122.在窗体上添加一个命令按钮，名为 Command1，一文本框，名为 text1，则执行如下事件过程后，文本框中的输出为 For i=1 To 3 For j=1 To 3 Fo
13、r k=1 To 2 x=x+3 Next k，j，i Text1.Text=str(x)（分数：1.00）A.21B.42C.54D.7223.设有下列程序： Private Sub Form_Click() x=50 For i=1 To 4 y=InputBox(“请输入一个整数“) y=Val(y) If y Mod 5=0 Then a=a+y x=y Else a=a+x End If Next i Print a End Sub 程序运行后，单击窗体，在输入对话框中依次输入 15、24、35、46，输出结果为_。（分数：2.50）A.100B.50C.120D.7024.下面程序
14、计算并输出的是_。 Private Sub Comand1_Click() a=10 s=0 Do s=s+a*a*a a=a-1 Loop Until a=0 Print s End Sub A.12+23+33+103的值 B.10!+3!+2!+1!的值 C.(1+2+3+10)3的值 D.10 个 103的和（分数：2.50）A.B.C.D.25.两个或两个以上模块之间关联的紧密程度称为_。（分数：2.50）A.耦合度B.内聚度C.复杂度D.数据传输特性26.窗体上有一个由两个文本框组成的控件数组，名称为 Text1，并有如下事件过程： Private Sub Text1_Change
15、(Index As Integer) Select Case Index Case 0 Text1(1).FontSize=Text1(0).FontSize*2 Text1(1).Text=Text1(0).Text Case 1 Text1(0).FontSize=Text1(1).FontSize/2 Text1(0).Text=Text1(1).Text Case Else MsgBox “执行 Else 分支“ End Select End Sub 关于上述程序，以下叙述中错误的是_。（分数：2.50）A.Index 用于标识数组元素B.本程序中 Case Else 分支的语句永远不
16、会被执行C.向任何一个文本框输入字符，都会在另一个文本框中显示该字符D.下标为 0 的文本框中显示的字符尺寸将越来越小27.在数据库设计中，将 ER 图转换成关系数据模型的过程属于_。（分数：2.50）A.需求分析阶段B.概念设计阶段C.逻辑设计阶段D.物理设计阶段28.下列关于线性链表的叙述中，正确的是_。（分数：1.00）A.各数据结点的存储空间可以不连续，但它们的存储顺序与逻辑顺序必须一致B.各数据结点的存储顺序与逻辑顺序可以不一致，但它们的存储空间必须连续C.进行插入与删除时，不需要移动表中的元素D.以上说法均不正确29.下列语句中正确的是（分数：2.00）A.If AB Then P
17、rint“A 不等于 B“B.If AB Then Printt“A 不等于 B“C.If AB Then Print“A 不等于 B“D.If AB Print“A 不等于 B“30.运行下面的程序后，输出的结果为 Cls Dim t(5,5)as Integer For i=1 To 5:t(i,i)=1:Next For i=1 To 5 For j=1 To 5 Print t(i,j)， Next Print Next（分数：2.00）A.1 1 1 1 11 1 1 1 11 1 1 1 11 1 1 1 11 1 1 1 1B.11111C.1 0 0 0 00 1 0 0 00
18、 0 1 0 00 0 0 1 00 0 0 0 1D.1 1 1 1 131.以下关于框架的叙述中，错误的是_。（分数：2.50）A.框架能够响应 Click 事件B.框架是一个容器C.框架的 Enabled 属性为 False 时，框架内的控件均被屏蔽D.框架可以获得焦点32.软件测试方法中的黑盒测试法和白盒测试法是常用的方法，其中黑盒测试法主要是用于测试_。（分数：1.00）A.结构合理性B.程序正确性C.软件功能D.程序内部逻辑33.下列程序的运行结果是_。 Private Function myfun(m,n) Do While mn Do While mn: m=m-n: Loop
19、 Do While nm: n=n-m: Loop Loop myfun=m End Function Private Sub Command1_Click() print myfun(9, 8) End Sub（分数：2.50）A.2B.1C.4D.334.下列运算符中，优先级别最低的是（分数：2.00）A.NotB.LikeC.ModD.And35.通过一个属性可以获得文件列表框中当前被选中文件的文件名，这个属性是（分数：2.00）A.DirB.PathC.DriveD.FileName二、填空题(总题数：14，分数：28.00)36.设有如下程序 Private Sub Search(a
20、()As Variant,By Val key As Variant,index%) Dim I% For I=LBound(a) To UBound(a) If key=a(I) Then Index=I Exit Sub End If Next I Index=-1 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(b,11,n) print n End Sub 程序运行后，输出结果是 1。 （分数：2.00）37.
21、有以下程序： Private Sub Form_Activate() Fori=1 to 3 x=3 For i=i to 2 x=x+6 Next Next Print X End Sub 程序运行后，窗体上显示的结果为 _ 1_ （分数：2.00）38.下列程序段的作用是控制窗体的显示与隐藏。请填空。 Private Sub Form_Click() Dim msg As Integer Me. _ 1_ MsgBox “单击 Ok 显示窗体“ Form1. _ 2_ End Sub 39.在窗体上建立一个单选钮组 Option1 和一个图片框 Picture1，如下图所示。当选择不同的单
22、选钮时，图片框中填充不同的图案，请填写程序的空白处，使程序完整。 （分数：4.00）40.数据结构包括数据的逻辑结构、数据的 1 以及对数据的操作运算。 （分数：2.00）41.有如下程序，该程序的执行结果是 _ 1_ 。 Private Sub Command1_lick() For i= 1 To 4 x= 4 For j =1 To 3 x =3 For k=1 To 2 X= K+5 Next k Next j Next i Print x End Sub （分数：2.00）42.有如下函数过程： Function gys(By Val x As Integer, ByVal y As
23、 Integer) As Integer Do While y0 preminder=x/y x=Y y=preminder Loop gys=x End Function 以下是调用该函数的事件过程： Private Sub Command1_Click Dim a As Integer,b As Integer a=10；b=2 x=gys(a，b) Print x End Sub 该程序的运行结果是 1。 （分数：2.00）下面程序运行的结果为 1 11 12 21 22 23 31 32 33 34 请在画线处填上适当的内容使程序完整。 Private Sub Form_Click()
24、 Call 1 End Sub Private Sub Pl6() End Sub Private Sub () ForI=1 to 4 Forj=1 to I a= 2 Print Tab(j-1)*5+1)；a； Nextj Print NextI End Sub（分数：4.00）填空项 1:_填空项 1:_44.在菜单编辑器中建立了一个菜单，名为 pmenu，用下面的语句可以把它作为弹出式菜单弹出，请填空。Forml _ 1_ pmenu （分数：1.00）45.栈的 3 种基本运算是：入栈、退栈和 1。 （分数：2.00）46.软件设计模块化的目的是 1。 （分数：2.00）47.下列
25、程序的功能是把顺序文件 smtextl.txt 的内容全部读入内存，并在文本框 Textl 中显示出来。请填空。 Private Sub Command1_Click() Dim inData As String Text1.Text=“ Open “smtext1.txt“ _ 1_ As _ 2_ Do While _ 3_ Input #2，inData Text1.Text=Text1.Text Next k End Sub 程序运行时的输出是（分数：2.00）A.27 24 41 64 98 58 B.64 24 98 27 58 41C.24 27 41 58 64 98D.98
26、64 58 41 27 24解析：解析 本题是一个简单的数组赋值，只要把握好每次为哪个元素赋以什么样的值就不会出错。最后 x 数组中存放的数据依次是 27、24、41、64、98、58。6.打开菜单编辑器的快捷键是_。（分数：2.00）A.Ctrl+E B.shift+EC.Alt+ED.Tab+E解析：7.下列程序段的执行结果为 _ 。 a=6 For k=1 To n a=a+k Next Print k; a（分数：2.00）A.-16B.-116C.16 D.11 21解析：解析 For 循环的般格式是 For 循环变量=初值 To 终值 Step步长 语句 Exit For 语句 N
27、ext循环变量 该循环语句的执行过程为：“循环变量”首先取得“初值”，检查是否超过”终值”，如果超过，就不循环并跳出循环，属于“先检查后执行”的类型。现在来看程序段，For k=1 To 0 中，初值为 1，终值为O，显然当“循环变量”首先取得“初值”1，检查后超过“终值”0，所以一次也不执行，即最后执行Print 时，k=1，a=6。8.设有如图所示窗体和以下程序： Private Sub Command1_Click() Text1.Text=“Visual Basic“ End Sub Private Sub Text1_LostFocus() If Text1.Text“BASIC“
28、Then Text1.Text=“ “ Text1.SetFocus End If End Sub （分数：2.00）A.文本框中无内容，焦点在文本框中 B.文本框中为“Basic”，焦点在文本框中C.文本框中为“Basic”，焦点的按钮上D.文本框中为“Visual Basic”，焦点的按钮上解析：解析 LostFocus 事件是当光标离开当前文本框或用鼠标选择其他对象时触发的事件；SetFocus是将焦点移到文本框中；本题程序的含义是单击按钮，触发单击事击，在文本框中写入“Visual Basic”，此时的光标不在文本框中，就是触发 LostFocus 事件，If 语句检查文本框中的内容不
29、等于“Basic”，于是置空文本框，再使光标(焦点)移到文本框中。9.以下合法的 VB 变量名是（分数：2.50）A.#1B.123_aC.stringD.x_123 解析：解析 变量是用一个名称来表示的，给变量命名时应遵循规则：名称只能由字母、数字和下划线组成；名称的第一个字符必须是英文字母，最后一个字符可以是类型说明符；名称的有效字符为 255 个；不能用 VB 的保留字作变量名，但变量名中可以包含保留字，如 ConstA；变量名也不能是末尾带有类型说明符的保留字，如 Dim!是不合法的变量名；不区分字母的大小写。10.在设计程序时，应采纳的原则之一是_。（分数：2.00）A.程序结构应有
30、助于读者理解 B.不限制 goto 语句的使用C.减少或取消注解行D.程序越短越好解析：解析 滥用 goto 语句将使程序流程无规律，可读性差；添加的注解行有利于对程序的理解，不应减少或取消：程序的长短要依照实际需要而定，并不是越短越好。11.面向对象方法中，继承是指_。（分数：2.50）A.一组对象所具有的相似性质B.一个对象具有另一个对象的性质C.各对象之间的共同性质D.类之间共享属性和操作的机制 解析：解析 继承：在程序设计中，继承是指子类自动享用父类的属性和方法，并可以追加新的属性和方法的一种机制。它是实现代码共享的重要手段，可以使软件更具有开放性、可扩充性，这是信息组织与分类的行之有
31、效的方法，也是面向对象的主要优点之一。继承又分为单重继承和多重继承。单重继承是指子类只能继承一个父类的属性和操作；而多重继承是指子类可以继承了多个父类的属性和操作。熟悉 IT的人都知道，Java 是一种单重继承语言，而 C+是一种多重继承语言。12.以下叙述中错误的是（分数：2.50）A.Sub Main 是定义在标准模块中的特定过程B.一个工程中只能有一个 Sub Main 过程C.Sub Main 过程不能有返回值D.当工程中含有 Sub Main 过程时，工程执行时一定最先执行该过程 解析：解析 在 Visual Basic 中，可以将多窗体程序中的其中一个窗体或某标准模块中的 Sub
32、Main 过程设置为启动对象。Sub Main 是定义在标准模块中的特定过程，该过程不能有返回值，一个工程中仅能有一个 Sub Main 过程。13.要求如果 x 被 7 除余 2，则输出 x 的值，下列语句中不能实现此功能的语句是_。（分数：1.00）A.Ifx mod 7=2 Then Print xB.If x-(x/7)*7=2 Then Print xC.If x-(x/7)*7=2 Then Print x D.If x-Int(x/7)*7=2 Then Print x解析：解析 选项 C 中(x/7)*7 得到的值是 x,x-y=0 返回 False，不执行 Print x，所
33、以不能输出 x 的值。故 C 选项错误。也可以把实际数值带入语句中运行，根据结果就可判断选项。14.在设计阶段，当按 Ctrl+R 键时，所打开的窗口是_。（分数：2.50）A.代码窗口B.工具箱窗口C.工程资源管理器窗口 D.属性窗口解析：解析 此题属于识记题。按 Ctrl+R 键，可以直接打开工程资源管理器窗口。15.使用语句 Dim A(1 To 10)As Integer 声明数组 A 之后，以下说法正确的是 _ 。（分数：2.00）A.A 数组中的所有元素值为 0 B.A 数组中的所有元素值不确定C.A 数组中的所有元素值为 EmptyD.执行 EraseA 后，A 数组中的所有元素
34、值为 Null解析：16.在窗体上画一个名称为 Command1 的命令按钮，再画两个名称分别为 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(a As Integer, ByVal b As Integer) X=a*a Y=b+b End Sub 程序运行后，单击命令按钮，则两个标签中显示的内容分别是_。（
35、分数：1.00）A.25 和 3 B.5 和 3C.25 和 6D.5 和 6解析：解析 虽然在过程 proc 中参数 a 默认为按地址传递，参数 b 指定了 ByVal(按值)方式传递，但过程中并没有对 a，b 的值改变，只对变量 X 和 Y 进行了赋值，而 X 是在窗体模块中起作用的模块变量，而变量 Y 在 proc 过程中没有声明，要整个模块中也没有声明，说明它是一个局部变量，只在本过程中起作用。因此，在 proc 过程中 X=a*a=5*5=25，会使按钮单击事件中的变量 X 值变为 25，而按钮单击事件过程中的变量 Y 不受影响，仍是原来的值 3。因此两个标签上会分别显示 25 和
36、3。17.为了从当前文件夹中读入文件 File1.txt，某人编写了下面的程序： Private Sub Command1_Click() Open “File1.txt“ For Output As #20 Do While Not EOF(20) Line Input #20,ch$= Print ch Loop Close #20 End Sub 程序调试时，发现有错误，下面的修改方案中正确的是_（分数：2.50）A.在 Open 语句中的文件名前添加路径B.把程序中各处的“20”该为“1”C.把 Print ch 语句改为 Print #20，chD.把 Open 语句中的 Outpu
37、t 改为 Input 解析：解析 该段程序的作用是将文件内容输出并显示在屏幕上，所以应该使用关键字 Input 而不是关键字 Output。18.下面程序的执行结果是 Private Sub Command1_Click() a=0 k=1 Do While k4 x=kka:k=k+1 Print x; Loop End Sub（分数：2.00）A.1 4 27B.1 1 1 C.1 4 9D.0 0 0解析：解析 本题是一个简单的 Do 循环，共循环 3 次，每次都输出 kka；因为 a 的值始终不变均为0，所以无论 k 取何值，0 次幂的结果都为 1。19.窗体上画一个文本框(其名称为
38、Text1)和一个标签(其名称为 Labell)。要求程序运行后，如果在文本框中输入字符，则立即在标签中显示相同的内容。以下可以实现上述操作的事件过程是 _。（分数：1.00）A.Private Sub Text1_Change()Labell.Caption=Text1.TextEnd Sub B.Private Sub Text1_Click()Labell.Caption=Text1.TextEnd SubC.Private Sub Labell_Change()Labell.Caption=Text1.TextEnd SubD.Private Sub Labell_Click()Lab
39、ell.Caption=Text1.TextEnd Sub解析：解析 当在文本框中输入字符时，文本框的内容发生变化，所以应把程序写在 Text1_Change()事件中。20.设窗体上有名称为 Option1 的单选按钮，且程序中有语句： If Option1.Value=True Then 下面语句中与该语句不等价的是_。（分数：1.00）A.If Option1.Value ThenB.If Option1=True ThenC.If Value=True Then D.If Option1 Then解析：解析 A 选项中 Opfion1.Value 可作为一个条件表达式，它返回的是单选按
40、钮 Value 属性的属性值，根据属性值就可判断出单选按钮是否被选中；B 选项中 Option1 等价于 Option1.Value；D 选项与 A选项等价，故 A、B、D 选硕均与程序中语句等价；C 选项中 Value 是属性名，前面必须加控件名才能用，不能单独使用，故 C 选项错误。21.设 a=2，b=3，c=4，d=5，下列表达式的值是_。 ab And c=d Or 2*ac（分数：1.00）A.TrueB.False C.-1D.1解析：解析 根据运算符的优先级顺序，先计算算术运算符，结果是 23 And 4=5 Or 44；再计算关系运算符，结果为 False And True
41、Or False；And 优先级高于 Or 优先级，先计算 And，再计算 Or，最后结果是 False。故 B 选项正确。22.在窗体上添加一个命令按钮，名为 Command1，一文本框，名为 text1，则执行如下事件过程后，文本框中的输出为 For i=1 To 3 For j=1 To 3 For k=1 To 2 x=x+3 Next k，j，i Text1.Text=str(x)（分数：1.00）A.21B.42C.54 D.72解析：解析 For 循环控制结构每次执行循环语句，X 都加了则：(32)33=633=183=54。23.设有下列程序： Private Sub Form
42、_Click() x=50 For i=1 To 4 y=InputBox(“请输入一个整数“) y=Val(y) If y Mod 5=0 Then a=a+y x=y Else a=a+x End If Next i Print a End Sub 程序运行后，单击窗体，在输入对话框中依次输入 15、24、35、46，输出结果为_。（分数：2.50）A.100 B.50C.120D.70解析：解析 本题源程序通过 For 循环输入 4 个整数，并判断其是否能被 5 整除。若能被 5 整除，则将其累加入变量 a 中，并将其赋值给变量 x；否则将变量 x 的值累加入变量 a 中。第 1 次执行
43、循环体时，输入值为 15，a=0+15，x=15；第 2 次执行循环体时，输入值为 24，a=15+15=30；第 3 次执行循环体时，输入值为 35，a=30+35=65，x=35；第 4 次执行循环体时，输入值为 46，a=65+35=100。24.下面程序计算并输出的是_。 Private Sub Comand1_Click() a=10 s=0 Do s=s+a*a*a a=a-1 Loop Until a=0 Print s End Sub A.12+23+33+103的值 B.10!+3!+2!+1!的值 C.(1+2+3+10)3的值 D.10 个 103的和（分数：2.50）A
44、. B.C.D.解析：解析 由程序可知，每次循环 s 都会累加一个数，而这个数是 a 的 3 次方，a 则从 10 递减到 0 然后退出循环，所以输出的结果应该是 1 3 +2 3 +3 3 +10 3 的值。25.两个或两个以上模块之间关联的紧密程度称为_。（分数：2.50）A.耦合度 B.内聚度C.复杂度D.数据传输特性解析：解析 耦合度是模块间互相连接的紧密程度的度量；内聚度是一个模块内部各个元素间彼此结合的紧密程度的度量。26.窗体上有一个由两个文本框组成的控件数组，名称为 Text1，并有如下事件过程： Private Sub Text1_Change(Index As Intege
45、r) Select Case Index Case 0 Text1(1).FontSize=Text1(0).FontSize*2 Text1(1).Text=Text1(0).Text Case 1 Text1(0).FontSize=Text1(1).FontSize/2 Text1(0).Text=Text1(1).Text Case Else MsgBox “执行 Else 分支“ End Select End Sub 关于上述程序，以下叙述中错误的是_。（分数：2.50）A.Index 用于标识数组元素B.本程序中 Case Else 分支的语句永远不会被执行C.向任何一个文本框输入
46、字符，都会在另一个文本框中显示该字符D.下标为 0 的文本框中显示的字符尺寸将越来越小 解析：解析 控件数组的 Index 属性作为控件数组的下标，用于标识数组元素。题目中程序功能是当任意一个文本框内容改变时，设置第 2 个文本框的字号是第 1 个文本框字号的 2 倍，同时两个文本框显示相同文字。似如用户没有使用控件数组的 Index 属性的默认值，程序将执行 Else 分支。27.在数据库设计中，将 ER 图转换成关系数据模型的过程属于_。（分数：2.50）A.需求分析阶段B.概念设计阶段C.逻辑设计阶段 D.物理设计阶段解析：解析 将 ER 图转换成关系数据模型是把图形分析出来的联系反映到
47、数据库中，即设计出表，因此属于逻辑设计阶段，答案为 C。28.下列关于线性链表的叙述中，正确的是_。（分数：1.00）A.各数据结点的存储空间可以不连续，但它们的存储顺序与逻辑顺序必须一致B.各数据结点的存储顺序与逻辑顺序可以不一致，但它们的存储空间必须连续C.进行插入与删除时，不需要移动表中的元素 D.以上说法均不正确解析：解析 一般来说，在线性表的链式存储结构中，各数据结点的存储序号是不连续的，并且各结点在存储空间中的位置关系与逻辑关系也不一致。线性链表中数据的插入和删除都不需要移动表中的元素，只需改变结点的指针域即可。29.下列语句中正确的是（分数：2.00）A.If AB Then P
48、rint“A 不等于 B“B.If AB Then Printt“A 不等于 B“C.If AB Then Print“A 不等于 B“ D.If AB Print“A 不等于 B“解析：解析 题中语句都属于条件语句中“If 条件 Then 语句”类型。从选项中，可以看出条件语句是A 与 B 的比较语句，其值就是此条件语句的值，也就是说，只有当其值为真时，才执行 Then 语句。30.运行下面的程序后，输出的结果为 Cls Dim t(5,5)as Integer For i=1 To 5:t(i,i)=1:Next For i=1 To 5 For j=1 To 5 Print t(i,j)， Next Print Next（分数：2.00）A.1 1 1 1 11 1 1 1 11 1 1 1 11 1 1 1 11 1 1 1 1B.11111C.1 0 0 0 00 1 0 0 00 0 1 0 00 0 0 1 00 0 0 0 1 D.1 1 1 1 1解析：解析 考查考生对多重循环和 Print 方法的掌握。 解题要点 程序以矩阵格式输出一个二维数
