1、二级 VISUAL+BASIC-532 及答案解析(总分：72.00，做题时间：90 分钟)一、选择题(总题数：25，分数：42.00)1.以下程序执行后，在窗体上输出的图案是 _ 。 Form1.Cls For a=1 To 5 Print Space(5-A) ;String(a,“*“) Next a（分数：2.00）A.*B.*C.*D.*2.编写如下两个事件过程： Private Sub Form_KeyDown(KeyCode As Integer， Shift As Integer) Print Chr(KeyCode) End Sub Private Sub Form_KeyP
2、ress(KeyAscii As Integer) Print Chr(KeyAscii) End Sub 在一般情况下(即不按住 Shift 键和锁定大写)，运行程序，如果按“A“键，则程序的输出是_。（分数：2.00）A.AAB.aAC.AaD.aa3.设有语句： Temp=MsgBox(“程序执行了非法操作“,vbAbortRetryIgnore,“提示信息”) 程序运行时，在对话框中将显示 _ 个按钮。（分数：1.00）A.1B.2C.3D.44.假定在窗体上建立一个通用对话框，其名称为 CommonDialog1，用下面的语句可以建立一个对话框： CommonDialog1.Acti
3、on=1 与该语句等价的语句是 _。（分数：1.00）A.CommonDialog1.ShowOvenB.Commofidialog1.ShowSaveC.CommonDialog1.ShowColorD.CommonDialog1.ShowFont5.相对于数据库系统，文件系统的主要缺陷有数据关联差、数据不一致性和_。（分数：2.00）A.可重用性差B.安全性差C.非持久性D.冗余性6.对于列表框控件 List1，能够表示当前被选中列表项内容的是_。（分数：2.00）A.List1.TextB.List1.lndexC.List1.ListlndexD.List1.List7.向顺序文件 T
4、emp.txt 中写入 1，2，3 这 3 个数。在程序中加入以下语句的哪一项可以使程序功能完整。Private Sub Command1_Click() Open“ c:/Temp.txt“，Output As #1 For i=0 To 3 _ Next Close #1 End Sub（分数：2.00）A.Print #1，Temp.txtB.Get #1，iC.Print #1，iD.Unit #1，i8.设置组合框的风格，可用的属性是 _ 。（分数：2.00）A.BackStyleB.BorderStyleC.StyleD.Sorted9.耦合性和内聚性是对模块独立性度量的两个标准。
5、下列叙述中正确的是_。（分数：1.00）A.提高耦合性降低内聚性有利于提高模块的独立性B.降低耦合性提高内聚性有利于提高模块的独立性C.耦合性是指一个模块内部各个元素间彼此结合的紧密程度D.内聚性是指模块间互相连接的紧密程度10.软件工程的理论和技术性研究的内容主要包括软件开发技术和（分数：2.00）A.消除软件危机B.软件工程管理C.程序设计自动化D.实现软件可重用11.有如下程序： Option Base 1 Dim arr() As Integer Private Sub Form_Click() Dim i As Integer, j As Integer ReDim arr(3,2)
6、 For i=1 To 3 for j=1 To 2 arr(i,j)=i*2+j Next j Next i ReDim Preserve arr(3,4) For j=3 To 4 arr(3,j)=j+9 Next j Print arr(3,2); arr(3,4) End Sub 程序运行后，单击窗体，输出结果为（分数：2.00）A.8 13B.0 13C.7 12D.0 012.关闭当前的工程并退出 Visual Basic 的快捷键是（分数：2.00）A.“Alt+B”B.“Alt+Q”C.“Alt+Shift”D.“Alt+A”13.以下为 Visual Basic 学习版的控
7、件的是（分数：1.00）A.数据绑定控件B.ActiveX 控件C.自动化管理器D.报表控件14.有三个关系 R、S 和 T，如下： （分数：2.00）A.笛卡儿积B交C并D.自然连接15.文本框的 Scroll Bars 属性设置为非零值，却没有效果，原因是 _ 。（分数：2.00）A.文本框中没有内容B.文本框的 MultiLine 属性值为 FalseC.文本框的 MultiLine 属性值为 TureD.文本框的 Locked 属性值为 Ture16.窗体上有一个名称为 HScroll1 的滚动条，程序运行后，当单击滚动条两端的箭头时，立即在窗体上显示滚动框的位置(即刻度值)。下面能够
8、实现上述操作的事件过程是 _ 。（分数：1.00）A.Private Sub HScroll1_Change( )Print HScroll1. ValueEnd SubB.Private Sub HScroll1_Change( )Print HScroll1. SmallChangeEnd SubC.Private Sub HScroll1_Scroll( )Print HScroll1. ValueEnd SubD.Private Sub HScroll1_Scroll( )Print HScroll1. SmallChangeEnd Sub17.数据的存储结构是指 _ 。（分数：2.0
9、0）A.数据所占的存储空间B.数据的逻辑结构在计算机中的存放形式C.数据在计算机中的顺序存储方式D.存储在计算机外存中的数据18.要使窗体以最大化方式显示，应设置窗体的 _ 属性。（分数：1.00）A.BorderStyleB.WindowStateC.Height 和 WidthD.MaxButton19.在窗体上画一个名称为 List1 的列表框，一个名称为 Label1 的标签。列表框中显示若干城市的名称。当单击列表框中的某个城市名时，在标签中显示选中城市的名称。 下列能正确实现上述功能的程序是 _。（分数：1.00）A.Private Sub List1_Click()Label1.C
10、aption=List1.ListIndexEnd SubB.Private Sub List1_Click( )Label1.Name=List1.ListIndexEnd SubC.Private Sub List1_Click( )Label1.Name=List1.TextEnd SubD.Private Sub List1_Click()Label1.Caption=List1.TextEnd Sub20.下列叙述中正确的悬_。（分数：2.00）A.在窗体的 Form Load 事件过程中定义的变量是全局变量B.局部变量的作用域可以超出所定义的过程C.在某个 sub 过程中定义的局部
11、变量可以与其他事件过程中定义的局部变量同名，但其作用域只限于该过程D.在调用过程中，所有局部变量被系统初始化为。或空字符串21.文本框控件最多能处理 _个字节。（分数：1.00）A.32KB.64KC.128KD.16K22.已知文本框的 ScrollBars 属性设置为 3，却看不到任何效果，原因是 _ 。（分数：2.00）A.文本框中没有内容B.文本框的 Locked 属性值为 TrueC.文本框的 MultiLine 属性值为 FalseD.文本框的 MultiLine 属性值为 True23.执行语句 Open“Tel.dat“For Random As#1 Len=50 后，对文件
12、Tel.dat 中的数据能够执行的操作是_。（分数：2.00）A.只能写，不能读B.只能读，不能写C.既可以读，也可以写D.不能读，不能写24.设在工程中定义了如下类型： Type stutype ino As Integer stmame As String*20 strsex As String*1 smark As Single End Type 在窗体上正确使用这个类型的是下列哪个操作 _ 。（分数：2.00）A.Sub Command1_click()Dimstudent As StutypeWith student.ino=12.strname=smith.strsex=男.sma
13、rk=89End WithEnd SubB.Sub Command1_Click()Dim student As StutypeWith student.ino=12.strname=“smith“.strsex=“男“.smark=89End WithEnd SubC.Sub Command1_Click()Dim student As StutypeWith Stutype.ino=12.strname=“smith“.strsex=“男“.smark=89End WithEnd SubD.Sub Command1_click()Dim student As StutypeWith stu
14、dent.ino=12.strname=“smith“.strsex=“男“.smark=89End studentEnd Sub25.软件工程与计算机科学性质不同，软件工程着重于_。（分数：2.00）A.理论研究B.建造软件系统C.原理和理论D.原理探寻二、填空题(总题数：11，分数：30.00)26.在 n 个运动员中选出任意 r 个人参加比赛，有很多种不同的选法，选法的个数可以用公式 （分数：2.00）27.对长度为 10 的线性表进行冒泡排序，最坏情况下需要比较的次数为 _ 1_ 。 （分数：2.00）28.算法的基本特征是可行性、确定性、 _ 1_ 和拥有足够的隋报。 （分数：1.0
15、0）29.为了使标签能自动调整大小以显示全部文本内容，应把标签的 1 属性设置为 True。 （分数：2.00）30.在窗体上画一个名称为 Combol 的组合框，然后画两个名称分别为 Label1、Label2，标题分别为“城市名称”和空白的标签。程序运行后，在组合框中输入一个新项目并按回车键，如果输入的项目在组合框的列表中不存在，则自动将其添加到组合框的列表中，并在 Label2 中给出提示“已成功添加新输入项。”，如图所示。如果输入的项目已存在，则在 Label2 中给出提示“输入项已在组合框中。”。请填空。 （分数：1.00）31.在窗体画一个命令按钮，然后编写如下事件过程： Priv
16、ate Sub Command1_CIick() Dim a(1 To 10) Dim p(1 To 3) k=5 For i =1 To 10 a(i)=i Next i For i=1 To 3 p(i)=a(i*i) Next i For i=1 To 3 k=k+p(i)*2 Next i Print k End Sub 程序运行后，单击命令按钮，输出结果是 _ 1_ 。 （分数：2.00）工程中有 Form1、两个窗体。Form1 窗体外观如图 1 所示。程序运行时，在 Form1 中名称为 Text1 的文本框中输入一个数值(圆的半径)，然后单击命令按钮“计算并显示“(其名称为 C
17、ommand1)，则显示窗体，且根据输入的圆的半径计算圆的面积，并在的窗体上显示出来，如图 2 所示。如果单击命令按钮时，文本框中输入的不是数值，则用信息框显示“请输入数值数据!“。请填空。 （分数：6.00）填空项 1:_填空项 1:_填空项 1:_33.在窗体上画一个文本框，名称为 Text1，然后编写如下程序： Private Sub Form_Load() Open“d:/temp/dat.txt“For Output As#1 Text1.Text:“” End Sub Private Sub Text1_KeyPress(KeyAscii As Integer) If _ 1_ =
18、13 Then If UCase(Text1.Text1= _ 2_ Then Close#1 End Else Write#1， _ 3_ Text1.Text=“” End If End If End Sub 以上程序的功能是，在 D 盘 temp 目录建立 1 个名为 dat.txt 的文件，在文本框中输入字符，每次按回车键(回车符的 ASC码是 13)都把当前文本框中的内容写入文稿件 dat.txt,并清除文本框中的内容；如果输入“END”，则结束程序。请将程序补充完整。 （分数：2.00）34.执行下面的程序段后，s 的值为 1。 s=5 For i=2.6 To 4.9 Step
19、0.6 s=s+1 Next i （分数：2.00）35.下列程序用于在带垂直滚动条的文本框 Text1 中输出 3 到 100 之间的全部素数。请填空。 Private Sub Command1_click() Text1.Text=“ For n=3 to 100 k=Int(Sqr(n) i=2 Flag=0 Do While i= 1And Flag=0 If n Mod i=0 Then Flag=1 Else i=i+1 End If Loop Lf 2Trhen Text1.Text=Text1.Text String(a,“*“) Next a（分数：2.00）A.* B.*C
20、.*D.*解析：解析 本题考查循环语句的分析。循环中共输出 5 行，每一行首先输出 5-a 个空格，然后输出 a个“*”号。a 的变化为 1 到 5，步长为 1。2.编写如下两个事件过程： Private Sub Form_KeyDown(KeyCode As Integer， Shift As Integer) Print Chr(KeyCode) End Sub Private Sub Form_KeyPress(KeyAscii As Integer) Print Chr(KeyAscii) End Sub 在一般情况下(即不按住 Shift 键和锁定大写)，运行程序，如果按“A“键，则
21、程序的输出是_。（分数：2.00）A.AAB.aAC.Aa D.aa解析：3.设有语句： Temp=MsgBox(“程序执行了非法操作“,vbAbortRetryIgnore,“提示信息”) 程序运行时，在对话框中将显示 _ 个按钮。（分数：1.00）A.1B.2C.3 D.4解析：解析 MsgBox 函数用于向用户发布提示信息，并要求用户作出必要的响应。该函数的前三个参数的含义如下：第一个参数是消息框中的提示文字；第二个参数是用来指示消息框中显示的按钮、图标和默认按钮等：第三个参数是对话框的标题。此处第二个参数“vbAbortRetryIgnore”表示有三个按钮，分别是“中止”、“重试”和
22、“忽略”。4.假定在窗体上建立一个通用对话框，其名称为 CommonDialog1，用下面的语句可以建立一个对话框： CommonDialog1.Action=1 与该语句等价的语句是 _。（分数：1.00）A.CommonDialog1.ShowOven B.Commofidialog1.ShowSaveC.CommonDialog1.ShowColorD.CommonDialog1.ShowFont解析：解析 通用对话框的 Action 属性为 1 表示显示的是“打开”对话框，所以相当于CommonDialog1.ShowOpen。5.相对于数据库系统，文件系统的主要缺陷有数据关联差、数据
23、不一致性和_。（分数：2.00）A.可重用性差B.安全性差C.非持久性D.冗余性 解析：解析 文件系统管理的数据文件基本上是分散的、相互独立的，因此相对于数据库系统，以此为基础的数据处理存在 3 个缺点：数据冗余大、数据的不一致性、程序与数据的相互依赖(简称为数据依赖)。6.对于列表框控件 List1，能够表示当前被选中列表项内容的是_。（分数：2.00）A.List1.Text B.List1.lndexC.List1.ListlndexD.List1.List解析：解析 Text 属性可返回当前被选中列表项的内容，故选 A。 Index 属性是当有列表框控件数组时，区分各列表框用的；Lis
24、tlndex 属性返回的是被选中的列表项的索引值；List 属性设置或返回各列表项的内容。7.向顺序文件 Temp.txt 中写入 1，2，3 这 3 个数。在程序中加入以下语句的哪一项可以使程序功能完整。Private Sub Command1_Click() Open“ c:/Temp.txt“，Output As #1 For i=0 To 3 _ Next Close #1 End Sub（分数：2.00）A.Print #1，Temp.txtB.Get #1，iC.Print #1，i D.Unit #1，i解析：解析 向顺序文件中写入数据时用 Print 语句。8.设置组合框的风格
25、，可用的属性是 _ 。（分数：2.00）A.BackStyleB.BorderStyleC.Style D.Sorted解析：解析 设置组合框风格用 Style 属性。9.耦合性和内聚性是对模块独立性度量的两个标准。下列叙述中正确的是_。（分数：1.00）A.提高耦合性降低内聚性有利于提高模块的独立性B.降低耦合性提高内聚性有利于提高模块的独立性 C.耦合性是指一个模块内部各个元素间彼此结合的紧密程度D.内聚性是指模块间互相连接的紧密程度解析：解析 模块独立性是指每个模块只完成系统要求的独立的子功能，并且与其他模块的联系最少且接口简单。一般较优秀的软件设计，应尽量做到高内聚、低耦合，即减弱模块
26、之间的耦合性和提高模块内的内聚性，有利于提高模块的独立性，所以 A 错误，B 正确。耦合性是模块间互相连接的紧密程度的度量而内聚性是指一个模块内部各个元素问彼此结合的紧密程度，所以 C 与 D 错误。10.软件工程的理论和技术性研究的内容主要包括软件开发技术和（分数：2.00）A.消除软件危机B.软件工程管理 C.程序设计自动化D.实现软件可重用解析：解析 软件工程的同标是，在给定的成本、进度的前提下，开发出具有有效性、可靠性、可理解性、可维护性、可重用性、可适应性、可移植性、可追踪性和可互操作性且满足用户需求的产品。基于这一目标，软件工程的理论和技术性研究的内容主要包括：软件开发技术和软件工
27、程管理。11.有如下程序： Option Base 1 Dim arr() As Integer Private Sub Form_Click() Dim i As Integer, j As Integer ReDim arr(3,2) For i=1 To 3 for j=1 To 2 arr(i,j)=i*2+j Next j Next i ReDim Preserve arr(3,4) For j=3 To 4 arr(3,j)=j+9 Next j Print arr(3,2); arr(3,4) End Sub 程序运行后，单击窗体，输出结果为（分数：2.00）A.8 13 B.0
28、 13C.7 12D.0 0解析：解析 ReDim 语句用于重新设置数组项目总数，如果在改变数组大小的同时还希望保留数组中的数据，可使用具有 Preserve 关键字的 ReDim 语句。本题中在第一个 for 循环中对数组 arr 进行了赋值，此时 arr(3,2)=8；在第二个 for 循环之前对数组 arr 项目总数进行了重新设置，并在循环中对其进行赋值，此时 arr(3,4)=13，而数组元素 arr(3,2)的值不会变化，所以本题的答案为 A。12.关闭当前的工程并退出 Visual Basic 的快捷键是（分数：2.00）A.“Alt+B”B.“Alt+Q” C.“Alt+Shif
29、t”D.“Alt+A”解析：解析 “Alt+Q”关闭当前的工程并退出 Visual Basic。13.以下为 Visual Basic 学习版的控件的是（分数：1.00）A.数据绑定控件 B.ActiveX 控件C.自动化管理器D.报表控件解析：解析：Visual Basic 学习版中包括内部控件、网格控件、数据绑定控件和 Tab 对象，所以数据绑定控件是 Visual Basic 学习版中的控件；报表控件为专业版中的控件；而自动化管理器是企业版的控制系统。14.有三个关系 R、S 和 T，如下： （分数：2.00）A.笛卡儿积B交C并D.自然连接 解析：解析 自然连接是一种特殊的等值连接。当
30、关系 R 和 S 有相同的属性组，且该属性组的值相等时的连接称为自然连接。15.文本框的 Scroll Bars 属性设置为非零值，却没有效果，原因是 _ 。（分数：2.00）A.文本框中没有内容B.文本框的 MultiLine 属性值为 False C.文本框的 MultiLine 属性值为 TureD.文本框的 Locked 属性值为 Ture解析：16.窗体上有一个名称为 HScroll1 的滚动条，程序运行后，当单击滚动条两端的箭头时，立即在窗体上显示滚动框的位置(即刻度值)。下面能够实现上述操作的事件过程是 _ 。（分数：1.00）A.Private Sub HScroll1_Cha
31、nge( )Print HScroll1. ValueEnd Sub B.Private Sub HScroll1_Change( )Print HScroll1. SmallChangeEnd SubC.Private Sub HScroll1_Scroll( )Print HScroll1. ValueEnd SubD.Private Sub HScroll1_Scroll( )Print HScroll1. SmallChangeEnd Sub解析：解析 根据题意可知，用户的操作是单击滚动条两端的箭头，故触发的是滚动条的 Change 事件；在窗体上显示的是滚动框的位置，即滚动条的当前刻
32、度值，Value 属性值可返回这个值，综合一下，故 A选项正确。17.数据的存储结构是指 _ 。（分数：2.00）A.数据所占的存储空间B.数据的逻辑结构在计算机中的存放形式 C.数据在计算机中的顺序存储方式D.存储在计算机外存中的数据解析：解析 数据的存储结构，又称为数据的物理结构，是数据的逻辑结构在计算机中的存放形式。数据的存储结构有顺序结构、链式结构、散列结构和索引结构等。18.要使窗体以最大化方式显示，应设置窗体的 _ 属性。（分数：1.00）A.BorderStyleB.WindowState C.Height 和 WidthD.MaxButton解析：解析 窗体的 BorderSt
33、yle 属性用来设置窗体的边框：窗体的 Height 和 Width 属性分别用宋设置窗体的高度和宽度；窗体的 MaxButton 属性是一个逻辑属性，当其值为 True 时将出现最大化按钮，当其值为 False 时将不显示最大化按钮；窗体的 WindowState 属性用来设置窗体显示时的状态，当其取值为0 时以正常方式显示，当其取值为 1 时以最小化方式显示，当其取值为 2 时，以最大化方式显示。19.在窗体上画一个名称为 List1 的列表框，一个名称为 Label1 的标签。列表框中显示若干城市的名称。当单击列表框中的某个城市名时，在标签中显示选中城市的名称。 下列能正确实现上述功能的
34、程序是 _。（分数：1.00）A.Private Sub List1_Click()Label1.Caption=List1.ListIndexEnd SubB.Private Sub List1_Click( )Label1.Name=List1.ListIndexEnd SubC.Private Sub List1_Click( )Label1.Name=List1.TextEnd SubD.Private Sub List1_Click()Label1.Caption=List1.TextEnd Sub 解析：解析 Label 的 Caption 属性表示标签控件中显示的内容。List
35、的 Text 属性表示列表框中当前被选中的项目的值。故欲将列表框中选中的名称显示在标签中只需将其 Text 属性值赋给 Label 的 Caption属性即可。 20.下列叙述中正确的悬_。（分数：2.00）A.在窗体的 Form Load 事件过程中定义的变量是全局变量B.局部变量的作用域可以超出所定义的过程C.在某个 sub 过程中定义的局部变量可以与其他事件过程中定义的局部变量同名，但其作用域只限于该过程 D.在调用过程中，所有局部变量被系统初始化为。或空字符串解析：解析 标准模块中声明，不能在过程或窗体模块中声明。 2在过程(事件过程或通用过程)内定义的变量叫做局部变量，其作用域是它所
36、在的过程。某一过程的执行只对该过程内的变量产生作用，对其他过程中相同名字的局部变量没有任何影响。因此，在不同的过程中可以定义相同名字的变量，它们之间没有任何关系。如果需要，则可以通过“过程名变量名”的形式分别引用不同过程中相同名字的变量。 3在过程中的局部变量，如果过程定义使用了 Static，则过程中的局部变量就是 Static 型的，即在每次调用过程时，局部变量的值保持不变；如果省略 Static，则局部变量就默认为“自动”的，即在每次调用过程时，局部变量被初始化为。或空字符串。 评析 Integer 数据类型 Integer 变量存储为 16 位(2 个字节)的数值形式，其范围为-32,
37、76832,767之间。Integer 的类型声明字符是百分比符号(%)。21.文本框控件最多能处理 _个字节。（分数：1.00）A.32K B.64KC.128KD.16K解析：解析 对于用户系统上单行 TextBox 控件来说，最大值不能超过被内存强制建立的值，并且对于多行 TextBox 控件而言，最大值大约为 32K。22.已知文本框的 ScrollBars 属性设置为 3，却看不到任何效果，原因是 _ 。（分数：2.00）A.文本框中没有内容B.文本框的 Locked 属性值为 TrueC.文本框的 MultiLine 属性值为 False D.文本框的 MultiLine 属性值为
38、 True解析：解析 本题考查文本框的常见属性。文本框的 ScrollBars 属性是当 MultiLine 属性为 True 时才有效，它表示了文本框中出的滚动条形式：0-None、1-Horizontal、2-Vertical、3-Both，而 MultiLine属性的作用是设置是否多行显示，默认一行属性值为 False，允许多行显示时属性值为 True；Locked 属性为 True 表示锁定文本框而不允许编辑。23.执行语句 Open“Tel.dat“For Random As#1 Len=50 后，对文件 Tel.dat 中的数据能够执行的操作是_。（分数：2.00）A.只能写，不能
39、读B.只能读，不能写C.既可以读，也可以写 D.不能读，不能写解析：解析 Visual Basic 访问文件的方式分为三类；有 Input/Output/Append(访问顺序输入/输出文件)、Binary(访问二进制文件)、Random(访问随机存取文件)。如果未指定方式，则以 Random 访问方式打开文件。而以 Random 形式打开的文件是既可以读，也可以写的24.设在工程中定义了如下类型： Type stutype ino As Integer stmame As String*20 strsex As String*1 smark As Single End Type 在窗体上正确
40、使用这个类型的是下列哪个操作 _ 。（分数：2.00）A.Sub Command1_click()Dimstudent As StutypeWith student.ino=12.strname=smith.strsex=男.smark=89End WithEnd SubB.Sub Command1_Click()Dim student As StutypeWith student.ino=12.strname=“smith“.strsex=“男“.smark=89End WithEnd Sub C.Sub Command1_Click()Dim student As StutypeWith
41、Stutype.ino=12.strname=“smith“.strsex=“男“.smark=89End WithEnd SubD.Sub Command1_click()Dim student As StutypeWith student.ino=12.strname=“smith“.strsex=“男“.smark=89End studentEnd Sub解析：解析 本题考查为记录类型变量 student 赋值。使用 With 语句可以对某个对象执行一系列的语句，而不用重复指出对象的名称。其语法如下： With 记录类型变量 .记录类型变量成员名要赋的值 End With 给记录类型变量
42、中的字符串型成员赋值时要加双引号。25.软件工程与计算机科学性质不同，软件工程着重于_。（分数：2.00）A.理论研究B.建造软件系统 C.原理和理论D.原理探寻解析：解析 计算机科学中的研究成果均可用于软件工程，但计算机科学着重于原理和理论，而软件工程着重于如何建造一个软件系统。从工程化角度对软件的开发加以科学的设计和管理。二、填空题(总题数：11，分数：30.00)26.在 n 个运动员中选出任意 r 个人参加比赛，有很多种不同的选法，选法的个数可以用公式 （分数：2.00）解析：n-r t=1解析 fun 函数显然为阶乘。根据题设此处应为(n-r)的阶乘。递归函数方式计算阶乘，t=1 时
43、直接复制，不然依次递归。27.对长度为 10 的线性表进行冒泡排序，最坏情况下需要比较的次数为 _ 1_ 。 （分数：2.00）解析：45 或 45 次解析 假设线性表的长度为 n，则在最坏情况下，冒泡排序需要经过 n/2 遍的从前往后扫描和 n/2 遍的从后往前扫描，需要比较次数为 n(n-1)/2。28.算法的基本特征是可行性、确定性、 _ 1_ 和拥有足够的隋报。 （分数：1.00）解析：有穷性解析 算法是指解题方案的准确而完整的描述。它有 4 个基本特征，分别是可行性、确定性、有穷性和拥有足够的情报。29.为了使标签能自动调整大小以显示全部文本内容，应把标签的 1 属性设置为 True
44、。 （分数：2.00）解析：AutoSize30.在窗体上画一个名称为 Combol 的组合框，然后画两个名称分别为 Label1、Label2，标题分别为“城市名称”和空白的标签。程序运行后，在组合框中输入一个新项目并按回车键，如果输入的项目在组合框的列表中不存在，则自动将其添加到组合框的列表中，并在 Label2 中给出提示“已成功添加新输入项。”，如图所示。如果输入的项目已存在，则在 Label2 中给出提示“输入项已在组合框中。”。请填空。 （分数：1.00）解析：Combo1.list(i) AddItem 解析 在 ComboBox 控件中，AddItem 方法是用来向控件中添加项
45、目，list 属性用于保存控件中的项目，使用以下形式访问：对象名List(列表项序号)。31.在窗体画一个命令按钮，然后编写如下事件过程： Private Sub Command1_CIick() Dim a(1 To 10) Dim p(1 To 3) k=5 For i =1 To 10 a(i)=i Next i For i=1 To 3 p(i)=a(i*i) Next i For i=1 To 3 k=k+p(i)*2 Next i Print k End Sub 程序运行后，单击命令按钮，输出结果是 _ 1_ 。 （分数：2.00）解析：33工程中有 Form1、两个窗体。Form
46、1 窗体外观如图 1 所示。程序运行时，在 Form1 中名称为 Text1 的文本框中输入一个数值(圆的半径)，然后单击命令按钮“计算并显示“(其名称为 Command1)，则显示窗体，且根据输入的圆的半径计算圆的面积，并在的窗体上显示出来，如图 2 所示。如果单击命令按钮时，文本框中输入的不是数值，则用信息框显示“请输入数值数据!“。请填空。 （分数：6.00）填空项 1:_ （正确答案：*unknown）填空项 1:_ （正确答案：*unknown）填空项 1:_ （正确答案：*unknown）解析：33.在窗体上画一个文本框，名称为 Text1，然后编写如下程序： Private Su
47、b Form_Load() Open“d:/temp/dat.txt“For Output As#1 Text1.Text:“” End Sub Private Sub Text1_KeyPress(KeyAscii As Integer) If _ 1_ =13 Then If UCase(Text1.Text1= _ 2_ Then Close#1 End Else Write#1， _ 3_ Text1.Text=“” End If End If End Sub 以上程序的功能是，在 D 盘 temp 目录建立 1 个名为 dat.txt 的文件，在文本框中输入字符，每次按回车键(回车符
48、的 ASC码是 13)都把当前文本框中的内容写入文稿件 dat.txt,并清除文本框中的内容；如果输入“END”，则结束程序。请将程序补充完整。 （分数：2.00）解析：KeyAscii ”END” Text1.Text解析 KeyPress 事件中可以引用 KeyAsai 值来判断使用者按下的是哪个按键。根据题设，如果输入内容为大写 END 则结束程序，根据下行程序 Close 1 可以知道本空判断是否输入 END。非 END 情况，则需要把 Text1.Text 写入文件，使用 Write#函数。34.执行下面的程序段后，s 的值为 1。 s=5 For i=2.6 To 4.9 Step 0.6 s=s+1 Next i （分数：2.00）解析：935.下列程序用于在带垂直滚动条的文本框 Text1 中输出 3 到 100 之间的全部素数。请填空。 Pr
