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 方法的掌握。 解题要点 程序以矩阵格式输出一个二维数