1、二级 VISUAL+BASIC 笔试 59 及答案解析(总分：92.00，做题时间：90 分钟)一、B选择题/B(总题数：35，分数：70.00)1.设 a=5，b=4，c=3，d=2，下列表达式的值是 32*b Or a=c And bc Or cd（分数：2.00）A.1B.TreeC.FalseD.22.在窗体上画一个文本框，然后编写如下事件过程： Private Sub Form_Click( ) x=InputBox(“请输入一个整数”) Print x+Text1.Text End Sub 程序运行时，在文本框中输入 456，然后单击窗体，在输入对话框中输入 123，单击“确定”按
2、钮后，在窗体上显示的内容为（分数：2.00）A.123B.456C.579D.1234563.在窗体上画一个名称为 Command1 的命令按钮，然后编写如下程序： Option Base 1 Private Sub Command1_Click( ) Dim c As Integer，d As Integer d=0 c=6 x=Array(2，4，6，8，10，12) For i=1 TO 6 If x(i)c Then d=d+x(i) c=x(i) Else d=d-c End lf Next i Print d End Sub 程序运行后，如果单击命令按钮，则在窗体上输出的内容为（分
3、数：2.00）A.10B.16C.12D.204.下列描述中正确的是（分数：2.00）A.程序就是软件B.软件开发不受计算机系统的限制C.软件既是逻辑实体，又是物理实体D.软件是程序、数据与相关文档的集合5.在窗体上画一个名称为 Command1 的命令按钮，然后编写如下通用过程和命令按钮的事件过程： Private Function fun(ByVal m As Integer) If m Mod 2=0 Then fun=2 Else fun=1 End If End Function Private Sub Command1_Click( ) Dim i As Integer，s As
4、Integer S=0 For i=1 To 5 s=s+fun(i) Next Print 3 End Sub 程序运行后，单击命令按钮，在窗体上显示的是（分数：2.00）A.6B.7C.8D.96.对于长度为 n 的线性表，在最坏情况下，下列各排序法所对应的比较次数中正确的（分数：2.00）A.冒泡排序为 n/2B.冒泡排序为 nC.快速排序为 nD.快速排序为 n(n-1)/27.假定有如下的窗体事件过程： Private Sub Form_Click( ) a$=“Microsoft Visual Basic“ b$=Right(a$，5) c$=Mid(a$，1，9) Msg Box
5、 aS，34，b$，c$，5 End Sub 程序运行后，单击窗体，则在弹出的信息框的标题栏中显示的信息是（分数：2.00）A.Microsoft VisualB.MicrosoftC.BasicD.58.数据的存储结构是指（分数：2.00）A.存储在外存中的数据B.数据所占的存储空间量C.数据在计算机中的顺序储方式D.数据的逻辑结构在计算机中的表示9.在窗本上画一个文本框和一个计时器控件，名称分别为 Text1 和 Timer1，在属性窗口中把计时器的Interval 属性设置为 1000，Enabled 属性设置为 False。程序运行后，如果单击命令按钮，则每隔一秒钟在文本框中显示一次当
6、前的时间。以下是实现上述操作的程序： Private Sub Command1_Click( ) Timer1_ End Sub Privale Sub Timer1_Timer( ) Text1.Text=Time End Sub 在_处应填入的内容是（分数：2.00）A.Enabled=TrueB.Enabled=FalseC.Visible=TrueD.Visible=False10.设有如下程序： Private Sub Command1_Click( ) Dim c As Integer，d As Integer c=4 d=InputBox(“请输入一个整数”) Do While
7、d0 If dc Then C=C+1 End lf d=InputBox(“请输入一个整数”) Loop Print c+d End sub 程序运行后，单击命令按钮，如果在输入对话框中依次输入1、2、3、4、5、6、7、8、9、0，则输出结果是（分数：2.00）A.12B.11C.10D.911.在 Visual Basic 工程中，可以作为“启动对象”的程序是（分数：2.00）A.任何窗体或标准模块B.任何窗体或过程C.SubMain 过程或其他任何模块D.SubMa 过程或任何窗体12.对长度为 n 的线性表进行顺序查找，在最坏情况下所需要的比较次数为（分数：2.00）A.log2nB
8、.n/2C.nD.n+l13.下列对于线性链表的描述中正确的是（分数：2.00）A.存储空间不一定是连续，且各元素的存储顺序是任意的B.存储空间不定是连续，且前件元素一定存储在后件元素的前面C.存储空间必须连续，且前件元素一定存储在后件元素的前面D.存储空间必须连续，且各元素的存储顺序是任意的14.在窗体上画命令按钮和一个文本框；名称分别为 Command1 和 Text1，然后编写如下程序： Private Sub Command1_Click( ) a=InputBox(“请输入日期(131)”) t=“旅游景点” &llf(a0 And a=10，“长城”，“”，)_ &Ill(a10
9、And a=20，“故宫”，“”)_ &Iff(920 And a=31，“颐和园”，“”) TextI.Text=t End Sub 程序运行后，如果从键盘亡输 A16，则在文本框中显示的内容是（分数：2.00）A.旅游景点：长城故宫B.旅游景点：长城颐和园C.旅游景点：颐和园D.旅游景点：故宫15.下列对于软件测试的描述中正确的是（分数：2.00）A.软件测试的目的是证明程序是否正确B.软件测试的目的是使程序运行结果正确C.软件测试的目的是尽可能多地发现程序中的错误D.软件测试的目的是使程序符合结构化原则16.把窗体的 KeyPreview 属性设置为 True，然后编写如下事件过程 Pr
10、ivate Sub Form_KeyPress(KeyAseii As Integer) Dim ch As String ch=Chr(KeyAscii) KeyAscii=Ase(UCase(ch) Print Chr(KcyAseii+2) End Sub 程序运行后，按键盘上的“A”键，则在窗体上显示的内容是 AA UB CC DD（分数：2.00）A.B.C.D.17.下列关于栈的描述中错误的是（分数：2.00）A.栈是先进后出的线性表B.栈只能顺序存储C.栈具有记忆作用D.对栈的插入与删除操作中，不需要改变栈底指针18.设有如下通用过程： Public Sub Fun(a( )As
11、 Integer，x As Integer) For i=1 TO 5 x=x+a(i) Next End Sub 在窗体上画一个名称为 Text1 的文本框和一个名称为 Command1 的命令按钮。然后编写如下的事件过程： Private Sub Command1_Cliek( ) Dim arr(5) As Integer，n As Integer For i=1 To 5 arr(i)=i+i Next Fun arr，n Text1.Text=Str(n) End Sub 程序运行后，单击命令按钮，则在文本框中显示的内容是（分数：2.00）A.30B.25C.20D.1519.为了使
12、模块尽可能独立，要求（分数：2.00）A.模块的内聚程度要尽量高，且各模块间的耦合程度要尽量强B.模块的内聚程度要尽量高，且各模块间的耦合程度要尽量弱C.模块的内聚程度要尽量低，且各模块间的耦合程度要尽量弱D.模块的内聚程度要尽量低，且各模块间的耦合程度要尽量强20.假定在图片框 Picture1 中装入了一个图形，为了消除该图形(不删除图片框)，应采用的正确方法是（分数：2.00）A.选择图片框，然后按 Del 键B.执行语句 Picture1.Picture=LoadPicture(“”)C.执行语句 Picture1.Picture=“”D.选择图片框，在属性窗口中选择 Picture
13、属性条，然后按回车键21.执行以下程序段 Dim x As Integer，i As Integer x0 For i=20 To 1 Step-2 xx+i/5 Next i 后,x 的值为 A16 D，17 C18 D19（分数：2.00）A.B.C.D.22.为了使命令按钮(名称为 Command1)右移 200，应使用的语句是（分数：2.00）A.Command1.Move-200B.Command1.Move200C.CommmldLeft=Command1.Left+200D.Command1.Left=Command1.Left-20023.在窗体上画一个命令按钮，其名称为 Co
14、mmand1，然后编写如下事件过程： Private Sub Command1_Click( ) Dim i As Integer，x As Integer For i=l To 6 If i=1 Then x=i lf i=4 Then x=x+1 Else x=x+2 End lf Next i Print x End Sub 程序运行后，单击命令按钮，其输出结果为（分数：2.00）A.9B.6C.12D.1524.阅读程序： Option Base 1 Dim arr( )As Integer Private Sub Form_Click( ) Dim i AsInteger，j As
15、Integer ReDim arr(3，2) For i=1 To 3 Forj=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 Nextj Print arr(3，2)+arr(3，4) End Sub 程序运行后，单击窗体，输出结果为（分数：2.00）A.21B.13C.8D.2525.在窗体上画一个名称为 Command1 的命令按钮，然后编写如下事件过程： Private Sub Command1_Click( ) c=“ABCD” For n=l to 4 Pr
16、int_ Next End Sub 程序运行后，单击命令按钮，要求在窗体上显示如下内容： D CD BCD ABCD 则在_处应填入的内容为（分数：2.00）A.Left(c，B.Right(c，C.Mid(c，n，1)D.Mid(c，n，26.在窗体(名称为 Form1)上画一个名称为 Text1 的文本框和一个名称为 Command1 的命令按钮，然后编写一个事件过程。程序运行后，如果在文本框中输入一个字符，则把命令按钮的标题设置为“计算机等级考试”。以下能实现上述操作的事件过程是（分数：2.00）A.Private Sub Text1_Change( ) Command1.Caption
17、=“计算机等级考试” End SubB.Private Sub Command1_Cick( ) Caption=“计算机等级考试” End SubC.PrivateSubForm1_Click( ) Text1.Caption=“计算机等级考试” End SubD.PrivateSubCommand1_Click() Text1.Text=“计算机等级考试” End Sub27.用树形结构表示实体之间联系的模型是（分数：2.00）A.关系模型B.网状模型C.层次模型D.以上三个都是28.假定建立了一个名为 Command1 的命令按钮数组，则以下说法中错误的是（分数：2.00）A.数组中每个
18、命令按钮的名称(Name 属性)均为 Command1B.数组中每个命令按钮的标题(Caption 属性)都一样C.数组中所有命令按钮可以使用同一个事件过程D.用名称 Command1(下标)可以访问数组中的每个命令按钮29.在窗体上画一个名称为 List1 的列表框，一个名称为 Label1 的标签，列表框中显示若干个项目。当单击列表框中的某个项目时，在标签中显示被选中项目的名称。下列能正确实现上述操作的程序是（分数：2.00）A.Private Sub List1_Click( ) Label1.Caption=List1.List1ndex End SubB.Private Sub Li
19、st1_Click( ) Label1.Name=List1.List1ndex End SubC.Private Sub List1_Click( ) Label1.Name=List1.Text End SubD.PrivateSubList1_Click( ) Label1.Caption=List1.Text End Sub30.在窗体上画一个名称为 Command1 的命令按钮和一个名称为 Text1 的文本框，在文本框中输入以下字符串： Microsoft Visual Basic Programming 然后编写如下事件过程： Private Sub Command1_Click
20、( ) Open“d：/temp/outf.txt“For Output As#1 For i=1 To Len(Text1.Text) c=Mid(Text1.Text，i，1) Ifc=“A”And c=“Z”Then Print#1，LCase(c) End lf Next i Close End Sub 程序运行后，单击命令按钮，文件 outf.txt 中的内容是（分数：2.00）A.MVBPB.mvbpC.M V B PD.m v b p31.数据独立性是数据库技术的重要特点之一。所谓数据独立性是指（分数：2.00）A.数据与程序独立存放B.不同的数据被存放在不同的文件中C.不同的数
21、据只能被对应的应用程序所使用D.以上三种说法都不对32.在窗体上画一个名称为 Command1 的命令按钮，然后编写如下程序： Dim SW As Boolean Function func(X As Integer)As Integer IfX20 Then Y=X Else Y=20+X End lf func=Y End Function Private Sub Form_MouseDown(Button As Integer，Shift As Integer，X As Single，Y As Single) SW=False End Sub Private Sub Form_Mouse
22、Up(Button As Integer，Shift As Integer，X As SinSle，Y As Single) SW=True End Sub Prinvate Sub Command1_Click( ) Dim intNum As Integer intNum=InputBox(”) If SW Then Print func(intNum) End If End Sub 程序运行后，单击命令按钮，将显示一个输入对话框，如果在对话框中输入 25，则程序的执行结果为（分数：2.00）A.输出 0B.输出 25C.输出 45D.无任何输出33.设 a=“Microsoft Visu
23、al Basic“，则以下使变量 b 的值为“Visual Basic“的语句是（分数：2.00）A.b=Left(a，10)B.b=Mid(a，10)C.b=Right(a，10)D.b=Mid(a，11，10)34.设 a=“a”，b=“b”，c=“c”，d=“d”，执行语句 x=Ilf(ab)Or(cd)，“A”，“B”)后，x的值为（分数：2.00）A.“a”B.“b”C.“B”D.“A”35.在窗体上画个名称为 Label1 的标签，然后编写如下事件过程： Private Sub Form_CIick( ) Dim arr(10，10)As Integer Dim i As Inte
24、ger，j As Integer For i=2 To 4 For j=2 To 4 srr(i，j)=i*j Next j Next i Label1.Caption=Str(arr(2，2)+arr(3，3) End Sub 程序运行后，单击窗体，在标签中显示的内容是（分数：2.00）A.12B.13C.14D.15二、B填空题/B(总题数：11，分数：22.00)36.某二叉树中度为 2 的结点有 18 个，则该二叉树中有U 【1】 /U个叶子结点。（分数：2.00）填空项 1:_37.在面向对象方法中，类的实例称为U 【2】 /U】。（分数：2.00）填空项 1:_38.诊断和改正程序
25、中错误的工作通常称为U 【3】 /U（分数：2.00）填空项 1:_39.在关系数据库中，把数据表示成二维表，每一个二维表称为U 【4】 /U。（分数：2.00）填空项 1:_40.问题处理方案的正确而完整的描述称为U 【5】 /U。（分数：2.00）填空项 1:_41.以下语句的输出结果是U 【6】 /U。 Print Int(12345.6789*100+0.5)/100（分数：2.00）填空项 1:_42.在窗体上画一个文本框和一个图片框，然后编写如下两个事件过程： Private Sub Form_Click( ) Text1.Text=“VB 程序设计” End Sub Privme
26、SubText1_Change() Picture1.Print“VB Programming“ End Sub 程序运行后，单击窗体，则在文本框中显示的内容是U 【7】 /U，而在图片框中显示的内容是U 【8】 /U。（分数：2.00）填空项 1:_43.阅读下面的程序： Private Sub Form_Click( ) Dim Check As Boolean，Counter As Integer Check=Tree Counter=5 DO DO While Counter20 Counter=Counter+1 If Counter=10 Then Check=False Exit
27、 Do End if Loop Loop Until Check=False Print Counter End Sub 程序运行后，单击窗体，输出结果为U 【9】 /U。（分数：2.00）填空项 1:_44.设有如下程序： Private Sub Form_Click( ) Dim a As Integer，s As Integer n=8 S=0 DO S=S+n n=n-1 Loop While n0 Print S End Sub 以上程序的功能是U 【10】 /U。程序进行后，单击窗体，输出结果为U 【11】 /U。（分数：2.00）填空项 1:_45.设有如下程序： Option
28、Base 1 Pfivme Sub Command1_Click( ) Dim arr1 Dim Min As Integer，i As Integer arrl=Array(12，435，76，-24，78，54，866，43) Min=U 【12】 /U For i=2 TO 8 If arr1(i)Min ThenU 【13】 /U Next i Print“最小值是：”；Min End Sub 以上程序的功能是：用 Array 函数建立一个含有 8 个元素的数组，然后查找并输出该数组中各元素的小值。请填空。（分数：2.00）填空项 1:_46.在名称为 Form1 的窗体上画一个文本框
29、，其名称为 Text1，在属性窗口中把该文本框的 Muhiline 属性设置为 True，然后编写如下的事件过程： Private Sub Form_Click( ) Open“d：/test/smText1.txt“For lnput As#1 Do While NotU 【14】 /U Line lnput#1，aspect whole=wholes+aspect+Chr(13)+Chr(10) Loop Text1.Text=whole Close#1 Open“d：/test/smtext2.txt“For Output As #1 Print #1，U 【15】 /U Close#1
30、 End Sub 上述程序的功能是，把磁盘文件，mText1.txt 的内容读到内存并在文本框中显示出来，然后把该文本框中的内容存入磁盘文件 smtext2.txt。请填空。（分数：2.00）填空项 1:_二级 VISUAL+BASIC 笔试 59 答案解析(总分：92.00，做题时间：90 分钟)一、B选择题/B(总题数：35，分数：70.00)1.设 a=5，b=4，c=3，d=2，下列表达式的值是 32*b Or a=c And bc Or cd（分数：2.00）A.1B.TreeC.FalseD.2 解析：解析 先执行 32*b 值为 FALSE，再判断 a=c And bc 为 FA
31、LSE，c d 为 TRUE；所以最终结果为 TRUE。2.在窗体上画一个文本框，然后编写如下事件过程： Private Sub Form_Click( ) x=InputBox(“请输入一个整数”) Print x+Text1.Text End Sub 程序运行时，在文本框中输入 456，然后单击窗体，在输入对话框中输入 123，单击“确定”按钮后，在窗体上显示的内容为（分数：2.00）A.123B.456C.579D.123456 解析：解析 程序运行后，在文本框里输入的是“456”即 Text1.Text 的值是“ 456”，在输入对话框里输入“123”，则 x 的值为“123”，最后的
32、 x+Text1.Text 即为“123”和“456”两个字符串的连接，故最后的显示结果为“12346”。3.在窗体上画一个名称为 Command1 的命令按钮，然后编写如下程序： Option Base 1 Private Sub Command1_Click( ) Dim c As Integer，d As Integer d=0 c=6 x=Array(2，4，6，8，10，12) For i=1 TO 6 If x(i)c Then d=d+x(i) c=x(i) Else d=d-c End lf Next i Print d End Sub 程序运行后，如果单击命令按钮，则在窗体上
33、输出的内容为（分数：2.00）A.10B.16C.12 D.20解析：解析 本题考查的是循环和条件判断语句，Option Base l 是强制使数组下标从 1 开始。4.下列描述中正确的是（分数：2.00）A.程序就是软件B.软件开发不受计算机系统的限制C.软件既是逻辑实体，又是物理实体D.软件是程序、数据与相关文档的集合 解析：解析 软件指的是计算机系统中与硬件相互依存的另一部分，包括程序、数据和相关文档的完整集合。程序是软件开发人员根据用户需要开发的、用程序设计语言描述的、适合计算机执行的指令序列。数据是使程序能正常操纵信息的数据结构。文档是与程序的开发、维护和使用有关的图文资料。5.在窗
34、体上画一个名称为 Command1 的命令按钮，然后编写如下通用过程和命令按钮的事件过程： Private Function fun(ByVal m As Integer) If m Mod 2=0 Then fun=2 Else fun=1 End If End Function Private Sub Command1_Click( ) Dim i As Integer，s As Integer S=0 For i=1 To 5 s=s+fun(i) Next Print 3 End Sub 程序运行后，单击命令按钮，在窗体上显示的是（分数：2.00）A.6B.7 C.8D.9解析：解析
35、本题中的通用过程 fun(ByVal m As Integer)作用是判断参数 m，如果 m 为偶数则函数返回 2，如果 m 为奇数则函数返回 1。在 i=1 To 5 的 fun(ByVal m As Integer)调用中，共有偶数两个，奇数三个，所以最后结果为 7。6.对于长度为 n 的线性表，在最坏情况下，下列各排序法所对应的比较次数中正确的（分数：2.00）A.冒泡排序为 n/2B.冒泡排序为 nC.快速排序为 nD.快速排序为 n(n-1)/2 解析：解析 在最坏的情况下，冒泡排序和快速排序需要比较的次数为 n(n- 1)/2。7.假定有如下的窗体事件过程： Private Sub
36、 Form_Click( ) a$=“Microsoft Visual Basic“ b$=Right(a$，5) c$=Mid(a$，1，9) Msg Box aS，34，b$，c$，5 End Sub 程序运行后，单击窗体，则在弹出的信息框的标题栏中显示的信息是（分数：2.00）A.Microsoft VisualB.MicrosoftC.Basic D.5解析：解析 b位置是 Msgbox 的标题栏上的名称，MsgBox 的格式为 MsgBox (prompt，buttons，title，hetpfile，context)，其中的 title 是显示在对话框标题栏小的字符串表达式。如果省
37、略rifle，则将应用程序的名称显示在标题栏中。8.数据的存储结构是指（分数：2.00）A.存储在外存中的数据B.数据所占的存储空间量C.数据在计算机中的顺序储方式D.数据的逻辑结构在计算机中的表示 解析：解析 数据的逻辑结构在计算机存储空间中的存放形式称为数据的存储结构(也称数据的物理结构)。9.在窗本上画一个文本框和一个计时器控件，名称分别为 Text1 和 Timer1，在属性窗口中把计时器的Interval 属性设置为 1000，Enabled 属性设置为 False。程序运行后，如果单击命令按钮，则每隔一秒钟在文本框中显示一次当前的时间。以下是实现上述操作的程序： Private S
38、ub Command1_Click( ) Timer1_ End Sub Privale Sub Timer1_Timer( ) Text1.Text=Time End Sub 在_处应填入的内容是（分数：2.00）A.Enabled=True B.Enabled=FalseC.Visible=TrueD.Visible=False解析：解析 时钟控件 Timer 的 Interval 属性，表示两个计时器事件之间的时间间隔，其值以 ms 为单位，而当 Enabled 属性为 False 时，时钟控件不起作用，故欲使程序实现每隔一秒钟在文本框中显示一次当前的时间，则前提就需将时钟控件的 Ena
39、bled 设置为 True。10.设有如下程序： Private Sub Command1_Click( ) Dim c As Integer，d As Integer c=4 d=InputBox(“请输入一个整数”) Do While d0 If dc Then C=C+1 End lf d=InputBox(“请输入一个整数”) Loop Print c+d End sub 程序运行后，单击命令按钮，如果在输入对话框中依次输入1、2、3、4、5、6、7、8、9、0，则输出结果是（分数：2.00）A.12B.11C.10D.9 解析：解析 本题中最后输入 0 时结束循环，所以最后 d 的值
40、为 0，故判断输出结果其实就是计算 c 的值，c 从输入 5 开始(除最后的 0)每次加 1(共 5 次)，所以 c 最后为 9。11.在 Visual Basic 工程中，可以作为“启动对象”的程序是（分数：2.00）A.任何窗体或标准模块B.任何窗体或过程C.SubMain 过程或其他任何模块D.SubMa 过程或任何窗体 解析：解析 在 Visual Basic 中，除了可以指定某个窗体作为启动对象外，还可以指定 Main 子过程为启动对象，如果不指定启动窗体则默认将工程中建立的第一个窗体作为启动窗体。12.对长度为 n 的线性表进行顺序查找，在最坏情况下所需要的比较次数为（分数：2.0
41、0）A.log2nB.n/2C.n D.n+l解析：解析 对于长度为 n 的有序线性表，在最坏情况下，二分查找只需要比较 log 2n 次，而顺序查找需要比较 n 次。13.下列对于线性链表的描述中正确的是（分数：2.00）A.存储空间不一定是连续，且各元素的存储顺序是任意的 B.存储空间不定是连续，且前件元素一定存储在后件元素的前面C.存储空间必须连续，且前件元素一定存储在后件元素的前面D.存储空间必须连续，且各元素的存储顺序是任意的解析：解析 在链式存储结构中，存储数据结构的存储空间可以不连续，各数据结点的存储顺序与数据元素之间的逻辑关系可以不一致，而数据元素之间的逻辑关系是由指针域来确定
42、的。14.在窗体上画命令按钮和一个文本框；名称分别为 Command1 和 Text1，然后编写如下程序： Private Sub Command1_Click( ) a=InputBox(“请输入日期(131)”) t=“旅游景点” &llf(a0 And a=10，“长城”，“”，)_ &Ill(a10 And a=20，“故宫”，“”)_ &Iff(920 And a=31，“颐和园”，“”) TextI.Text=t End Sub 程序运行后，如果从键盘亡输 A16，则在文本框中显示的内容是（分数：2.00）A.旅游景点：长城故宫B.旅游景点：长城颐和园C.旅游景点：颐和园D.旅游景
43、点：故宫 解析：解析 IIf( )函数的形式是：IIf(表达式，当条件为 True 时的值，当条件为 False 时的值)，因为 16 大于 10 且小于 20，所以只有在第二个 IIf 中表达式的值为 True，取“故宫”，而其它两个 IIf( )中表达式的值均为 False，所以第一和第三个中取的均为“”。 故 t 最后的值为“旅游景点：故宫”。15.下列对于软件测试的描述中正确的是（分数：2.00）A.软件测试的目的是证明程序是否正确B.软件测试的目的是使程序运行结果正确C.软件测试的目的是尽可能多地发现程序中的错误 D.软件测试的目的是使程序符合结构化原则解析：解析 软件测试是为了发现
44、错误而执行程序的过程。16.把窗体的 KeyPreview 属性设置为 True，然后编写如下事件过程 Private Sub Form_KeyPress(KeyAseii As Integer) Dim ch As String ch=Chr(KeyAscii) KeyAscii=Ase(UCase(ch) Print Chr(KcyAseii+2) End Sub 程序运行后，按键盘上的“A”键，则在窗体上显示的内容是 AA UB CC DD（分数：2.00）A.B.C. D.解析：解析 本题需要注意的是 UCase(ch)是将 ch 转化为与其相应的大写， Asc( )是取字符的 ASC
45、II码，Chr( )是将 ASCII 码转化为相应的字符。17.下列关于栈的描述中错误的是（分数：2.00）A.栈是先进后出的线性表B.栈只能顺序存储 C.栈具有记忆作用D.对栈的插入与删除操作中，不需要改变栈底指针解析：解析 栈(stack)是限定只在一端进行插入与删除的线性表，这一端称为栈顶(top)，另一端称为栈底(bottom)，栈是按照“先进后出”或“后进先出”的原则组织数据的。栈具有记忆应用。18.设有如下通用过程： Public Sub Fun(a( )As Integer，x As Integer) For i=1 TO 5 x=x+a(i) Next End Sub 在窗体上
46、画一个名称为 Text1 的文本框和一个名称为 Command1 的命令按钮。然后编写如下的事件过程： Private Sub Command1_Cliek( ) Dim arr(5) As Integer，n As Integer For i=1 To 5 arr(i)=i+i Next Fun arr，n Text1.Text=Str(n) End Sub 程序运行后，单击命令按钮，则在文本框中显示的内容是（分数：2.00）A.30 B.25C.20D.15解析：解析 本题需先对通用过程分析 Fun(a( )As Integer，x As，Integer)的功能，该通用过程是将数组的 a(
47、1)到 a(5)的和返回，arr(5)的各个元素 a(1)到 a(5)的值分别为 2、4、6、8、10，所以其和为30。19.为了使模块尽可能独立，要求（分数：2.00）A.模块的内聚程度要尽量高，且各模块间的耦合程度要尽量强B.模块的内聚程度要尽量高，且各模块间的耦合程度要尽量弱 C.模块的内聚程度要尽量低，且各模块间的耦合程度要尽量弱D.模块的内聚程度要尽量低，且各模块间的耦合程度要尽量强解析：解析 耦合性与内聚性是模块独立性的两个定性标准，耦合与内聚是相互关联的。在程序结构中，各模块的内聚性越强，则耦合性越弱。一般较优秀的软件设计，应尽量做到高内聚，低耦合，即减弱模块之间的耦合性和提高模
48、块内的内聚性，有利于提高模块的独立性。20.假定在图片框 Picture1 中装入了一个图形，为了消除该图形(不删除图片框)，应采用的正确方法是（分数：2.00）A.选择图片框，然后按 Del 键B.执行语句 Picture1.Picture=LoadPicture(“”) C.执行语句 Picture1.Picture=“”D.选择图片框，在属性窗口中选择 Picture 属性条，然后按回车键解析：解析 Picture 属性可设置被显示的图片文件名(包括可选的路径名)，在程序运行时可使用LoadPicture( )的图形框装入图形，其格式为：图形框对象Picture=Load- Picture(“图形文件名”)，为了在运行时从图形框中删除一个图形，可用 LoadPieture( )，将一个空白图形装入图形框的 Picture属性。21.执
