[计算机类试卷]2007年9月国家二级（VisualBasic）笔试真题试卷及答案与解析.doc

1、2007年 9月国家二级（ VisualBasic）笔试真题试卷及答案与解析 1 下面叙述正确的是 _。 （ A）程序设计就是编制程序 （ B）程序的测试必须由程序员自己去完成 （ C）程序经调试改错后还应进行再测试 （ D）程序经调试改错后不必进行再测试 2 下列数据结构中，能用二分法进行查找的是 _。 （ A）顺序存储的有序线性表 （ B）线性链表 （ C）二叉链表 （ D）有序线性链表 3 下列关于栈的描述正确的是 _。 （ A）在 栈中只能插入元素而不能删除元素 （ B）在栈中只能删除元素而不能插入元素 （ C）栈是特殊的线性表，只能在一端插入或删除元素 （ D）栈是特殊的线性表，只能

2、在一端插入元素，而在另一端删除元素 4 下列叙述中正确的是 _。 （ A）一个逻辑数据结构只能有一种存储结构 （ B）数据的逻辑结构属于线性结构，存储结构属于非线性结构 （ C）一个逻辑数据结构可以有多种存储结构，且各种存储结构不影响数据处理的效率 （ D）一个逻辑数据结构可以有多种存储结构，且各种存储结构影响数据处理的效率 5 下 列描述中正确的是 _。 （ A）软件工程只是解决软件项目的管理问题 （ B）软件工程主要解决软件产品的生产率问题 （ C）软件工程的主要思想是强调在软件开发过程中需要应用工程化原则 （ D）软件工程只是解决软件开发中的技术问题 6 在软件设计中，不属于过程设计工具

3、的是 _。 （ A） PDL(过程设计语言 ) （ B） PAD图 （ C） N-S图 （ D） DFD图 7 下列叙述中正确的是 _。 （ A）软件交付使用后还需要进行维护 （ B）软件 一旦交付使用就不需要再进行维护 （ C）软件交付使用后其生命周期就结束 （ D）软件维护是指修复程序中被破坏的指令 8 数据库设计的根本目标是要解决 _。 （ A）数据共享问题 （ B）数据安全问题 （ C）大量数据存储问题 （ D）简化数据维护 9 设有如下关系表 _。 则下列操作中，正确的是 _。 （ A） T=RS （ B） T=R S （ C） T=RS （ D） T=R/S 10 数据库系统的核心

4、是 _。 （ A）数据模型 （ B）数据库管理系统 （ C）数据库 （ D）数据库管理员 11 假定一个 Visual Basic应用程序由一个窗体模块和一个标准模块构成。为了保存该应用程序，以下正确的操作是 _。 （ A）只保存窗体模块文件 （ B）分别保存窗体模块、标准模块和工程文件 （ C）只保存窗体模块和标准模块文件 （ D）只保存工程文件 12 为了清除窗体上的一个控件，下列正确的操作是 _。 （ A）按回车键 （ B）按 Esc键 （ C）选择 (单击 )要清除的控件，然后按 Del键 （ D）选择 (单击 )要清除的控件，然后按回车键 13 以下叙述中错误的是 _。 （ A）打开

5、一个工程文件时，系统自动装入与该工程有关的窗体、标准模块等文件 （ B）当程序运行时，双击一个窗体，则触发该窗体的 DblClick事件 （ C） Visual Basic应用程序只能以解释方式执行 （ D）事件可以由用户引发，也可以由系统引发 14 设 a=2， b=3， c=4， d=5，下列表达式的值是 _。 Not a =c Or4*c=b2Andb a+c （ A） -1 （ B） 1 （ C） True （ D） False 15 设 a=5,b=10，则执行 c=Iht(b-a)*Rnd+a)+1后， c值的范围为 _。 （ A） 5 10 （ B） 6 9 （ C） 6 10

6、（ D） 5 9 16 在窗体上画一个命令按钮，名称为 Command1，然后编写如下事件过程： Private Sub Command1_Click() a$=“software and hardware“ b$=Right(a$， 8) c$=Mid(a$， 1， 8) MsgBox a$， b$， c%， 1 End Sub 运行程序，单击命令按钮，则在弹出的信息框的标题栏中显示的是 _。 （ A） software and hardware （ B） software （ C） hardware （ D） 1 17 在窗体上画一个命令按钮和一个文本框，其名称分别为 Command1和

7、Text1，把文本框的 Text属性设置为空白，然后编写如下事件过程： Private Sub Command1_Click() a=InputBox(“Enter an integer“) b=InputBox(“Enter an integer“) Text1.Text=b+a End Sub 程序运行后，单击命令按钮，如果在输入对话框中分别输入 8和 10，则文本框中显示的内容是 _。 （ A） 108 （ B） 18 （ C） 810 （ D）出错 18 在窗体上画两个文本框，其名称分别为 Text1和 Text2，然后编写如下程 序： Private Sub Form_Load()

8、Show Text1.Text=“ Text2.Text=“ Text1.SetFocus End Sub Private Sub Text1_Change() Text2.Text=Mid(Text1.Text， 8) End Sub 程序运行后，如果在文本框 Text1中输入 BeijingChina，则在文本框 Text2显示的内容是 _。 （ A） BeijingChina （ B） Chima （ C） Beijing （ D） BeijingC 19 在窗体上画一个列表框和一个命令按钮，其名称分别为 List1和 Command1，然后编写如下事件过程 Private Sub Fo

9、rm_Load() List1.Addltem“Iteml“ List1.Addltem“Item2“ List1.Addltem“Item3“ End Sub Private Sub Command1_click() List1.List(List1.ListCount)=“AAAA“ End Sub 程序运行后，单击命令按钮，其结果为 _。 （ A）把字符串 “AAAA”添加到列表框中，但位置不能确定 （ B）把字符串 “AAAA人 ”添加到列表框的最后 (即 “Item3”的后面 ) （ C）把列表框中原有的最后一项改为 “AAAA” （ D）把字符串 “AAAA”插入到列表框的最前面

10、(即 “Item1”的前面 ) 20 假定有如下事件过程： Private Sub Form_Cilck() Dim x As Integer， n As Integer x=1 n=0 Do While x 28 X=X*3 n=n+1 Loop Print x,n End Sub 程序运行后，单击窗体，输出结果为 _。 （ A） 81 4 （ B） 56 3 （ C） 28 1 （ D） 243 5 21 有如下程序： Ptivate Sub Form_Click() Dim Check， Counter Cbeck=True Counter=0 Do Do While Counter 2

11、0 Counter=Counter+1 If Counter=10 Then Check=False Exit Do End If Loop Loop Until Check=False Print Counter, Check End Sub 程序运行后，单击窗体，输出结果为 _。 （ A） 15 0 （ B） 20 -1 （ C） 10 True （ D） 10 False 22 有如下程序： Private Sub Form_CHck() Dim i As Integer， sum As Integer sum=0 For i=2 TO 10 If Mod 2 And i Mod 3=0

12、 Then sum=sum+i End If Next i Print sum End Sub 程序运行后，单击窗体，输出结果为 _。 （ A） 12 （ B） 30 （ C） 24 （ D） 18 23 在窗体上画一个名称为 Text1的文本框和一个名称为 Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() Dim array1(10，10)As Integer Dim i As Integer, j As Integer For i=1 To 3 For j=2 To 4 array1(i,j)=i+j Next j Next i

13、Text1.Text=array1(2， 3)+arrayl(3， 4) End Sub 程序运行后，单击命令按钮，在文本框中显示的值是 _。 （ A） 12 （ B） 13 （ C） 14 （ D） 15 24 在窗体上画一个命令按钮，其名称为 Command1，然后编写如下事件过程： Private Sub Command1_Click() Dima1(4， 4)a2(4， 4) Dim i As Integer, j As Integer For i=1 To 4 For j=1 To 4 a1(i,j)=i+j a2(i,j)=a1(i,j)+i+j Next j Next i Pri

14、nt a1(3,3);a2(3,3) End Sub 程序运行后，单击命令按钮，在窗体上输出的是 _。 （ A） 6 6 （ B） 10 5 （ C） 7 21 （ D） 6 12 25 有如下程序： Option Base 1 Private Sub Form_Click() Dim arr， Sum Sum=0 alt=Array(1， 3， 5， 7， 9， 11， 13， 15， 17， 19) For i=1 To 10 If arr(i)/3=arr(i)13 Then Sum=Sum+alt(I) End If Next i Print Sum End Sub 程序运行后，单击窗

15、体，输出结果为 _。 （ A） 25 （ B） 26 （ C） 27 （ D） 28 26 在窗体画一个命令按钮，然后编写如下事件过程： Private Sub Command1_Click() Dim a(5)As String For i=1 To 5 a(I)=Chr(Asc(“A“)+(i-1) Next i For Each b In a Print b； Next End Sub 程序运行后，单击命令按钮，输出结果是 _。 （ A） ABCDE （ B） 1 2 3 4 5 （ C） abcde （ D）出错信息 27 以下关于函数过程的叙述中，正确的是 _。 （ A）如果不指明函

16、数过程参数的类型，则该参数没有数据类型 （ B）函数过程的返回值可以有多个 （ C）当 数组作为函数过程的参数时，既能以传值方式传递，也能以引用方式传递 （ D）函数过程形参的类型与函数返回值的类型没有关系 28 函数过程 n的功能是：如果参数 b为奇数，则返回值为 1，否则返回值为 0。以下能正确实现上述功能的代码的是 _。 （ A） Function F1(b As Integer) If b Mod 2=0 Then Return 0 Else Return 1 End If End Function （ B） Function F1(b As Integer) If b Mod 2=0

17、 Then F1=0 Else F1=1 End If End Function （ C） Function F1(b As Integer) If b Mod 2=0 Then F1=1 Else F1=0 End If End Function （ D） Functionn(b As Integer) If b Mod 2 0Then Return 0 Else Return 1 End If End Function 29 以下关于 KeyPress事件过程中参数 KeyAscii的叙述中，正确的是 _。 （ A） KeyAscii参数是所按键的 ASCII码 （ B） KeyAscii

18、参数的数据类型为字符串 （ C） KeyAscii参数可以省略 （ D） KeyAscii参数是所按键上标注的字符 30 设窗体上有一个名为 Text1的文本框，并编写如下程序： Private Sub Form_Load() Show Text1.Text=“ Text1.SetFocus End Sub Private Sub Form_Mouse Up (Button As Integer， Shift As Integer， X As Single， Y As Single) Print“程序设计 “ End Sub Private Sub Text1_KeyDown(KeyCode

19、As Integer， Shift As Integer) Print“Visual Basic“； End Sub 程序运行后，如果在文本框中输入字母 “a”，然后单击窗体，则在窗体上显示的内容是 _。 （ A） Visual Basic （ B）程序设计 （ C） Visual Basic程序设计 （ D） a程序设计 31 假定有下表所列的菜单结构： (表格 ) 要求程序运行后，如果单击菜单项 “大图标 ”，则在该菜单项前添加一个 “”。以下正确的事件过程是 _。 （ A） Private Sub bigicon_Click() bigicon.Checked=False End Sub

20、 （ B） Private Sub bigicon_Click0 ME.appear.bigicon.Checked=True End Sub （ C） Private Sub bigicon_Click() bigicon.Checked=True End Sub （ D） Private Sub bigicon_Click0 appear.bigicon.Checked=True End Sub 32 假定通用对话框的名称为 CommonDialog1，命令按钮的名称为 Command1，则单击命令按钮后，能使打开的对话框的标题为 “New Title”的事件过程是 _。 （ A） Pri

21、vate Sub Commandl_Click() CommonDialog1.DialogTitle=“NewTitle“ CommonDialog1.ShowPrinter End Sub （ B） Private Sub Command1_Click() CommonDialog1.DialogTitle=“NewTitle“ CommonDialog1.ShowFont End Sub （ C） Private Sub Commslld1_CUck() CommonDialog1.DialogTifie=“NewTitle“ CommonDialog1.ShowOpen End Sub

22、 （ D） PrivateSubCommand1_Click() CommonDialog1.DialogTitle”NewTitle” CommonDialog1.ShowColor End Sub 33 如果一个工程含有多个窗体及标准模块，则以下 叙述中错误的是 _。 （ A）任何时刻最多只有一个窗体是活动窗体 （ B）不能把标准模块设置成启动模块 （ C）用 Hide方法只是隐藏一个窗体，不能从内存中清除该窗体 （ D）如果工程中含有 Sub Main过程，则程序一定首先执行该过程 34 假定在工程文件中有一个标准模块，其中定义了如下记录类型 Type Books Name As Str

23、ing*10 TelNum As String*20 End Type 要求当执行事件过程Command1_Click时，在顺序文件 Person.txt中写入一条记录。下列能够完成该操作的事件过程是： （ A） Ptivate Sub Command1_Click() Dim B As Books Open“c:Person.txt“For Output As#1B Name=InputBox(“输入姓名 “)B TelNum=InputBox(“输入电话号码 “) Write#1， B Name， B TelNum Close#1 End Sub （ B） Private Sub Comm

24、and1_Click() Dim B As Books Open“c:Person.txt“For Input As#1B Name=InputBox(“输入姓名 “)B TelNum=InputBox(“输入电话号码 “) Print#1， B Name， B TelNum Close#1 End Sub （ C） Private Sub Command1_Click() Dim B As Books OPQl“c:Person.txt“For Output As#1 Nallle=InputBox(“输入姓名 “) TelNum=InputBox(“输入电话号码“) Write#1， B

25、Close#1 End Sub （ D） Private Sub Command1_Click() Dim B As Books Open“c:Person.txt“For lnput As#1 Name=InputBox(“输入姓名 “) TelNum=InputBox(“输入电话号码 “) Write#1， B Name， B TelNum Close#1 End Sub 35 目录列表框的 Path属性的作用是 _。 （ A）显示当前驱动器或指定驱动器上的某目录下的文件名 （ B）显示当前驱动器或指定驱动器上的目录结构 （ C）显示 根目录下的文件名 （ D）显示指定路径下的文件 36

26、数据管理技术发展过程经过人工管理、文件系统和数据库系统三个阶段，其中数据独立性最高的阶段是【 】。 37 算法复杂度主要包括时间复杂度和【 】复杂度。 38 在进行模块测试时，要为每个被测试的模块另外设计两类模块：驱动模块和承接模块 (桩模块 )。其中【 】的作用是将测试数据传送给被测试的模块，并显示被测试模块所产生的结果。 39 一棵二叉树第六层 (根结点为第一层 )的结点数最多为【 】个。 40 数据结构分为逻辑结构和存储结构，循 环队列属于【 】结构。 41 设有以下函数过程： Function fun(m As Integer)As Integer Dim k As Integer,

27、sum As Integer sum=0 For k=m To 1 Step-2 sum=sum+k Next k fun=stlm End Function 若在程序中用语句 s=fun(10)调用此函数，则 s的值为【 】。 42 在窗体上画一个命令按钮和一个文本框，然后编写命令按钮的 Click事件过程。程序运行后，在文本框中输入一串英文 字母 (不区分大小写 )，单击命令按钮，程序可找出未在文本框中输入的其他所有英文字母，并以大写方式降序显示到Text1中。例如，若在 Text1中输入的是 abDfdb，则单击 Comrnand1按钮后 Text1中显示的字符串是 ZYXWVUTSRQ

28、PONMLKJIHGEC。请填空。 Private Sub Command1_Click() Dim str As String， s As String， c As String str=UCase(Text1) S=“ C=“Z“ While c =“A“ If lnStr(str,C)=0 Then s=【 】 End If c=Chr$(Asc(C【 】 ) Wend If s “Then Text1=S End If End Sub 43 在 n个运动员中选出任意 r个人参加比赛，有很多种不同的选法，选法的个数可以用公式 计算。下图窗体中 3个文本框的名称依次是 Text1、 Tex

29、t2、 Text。程序运行时在 Text1、 Text2中分别输入 n和 r的值，单击 Command1按钮即可求出选法的个数，并显示在 Text3文本框中 (见下图 )。请填空。Private Sub Command1_Click()Dim r As Integer， n As Integern=Textlr=Text2Text3=fun(n)/fun(【 】 )/fun(r)End SubFunction fun(n As Integer)As LongDim t As Long【 】 For k=1 To nt-t*kNextfun=tEnd Function 44 如图所示，在列表框

30、Listl中已经有若干人的简单信息，运行时在 Text1文本框(即 “查找对象 ”右边的文本框 )输入一个姓或姓名，单击 “查找 ”按钮，则在列表框中进行查找，若找到，则把该人的信息显示在 Text2文本框中。若有多个匹配的列表项，则只显示第 1个匹配项；若未找到，则在 Text2中显示 “查无此人 ”。请填空。Private Sub Command1_Click()Dim k As Integer， n As Integer， found As Booleanfound=Falsen=Len(【 】 )k=0While k List1.ListCount And Not foundIf Te

31、xt1=Left$(List1.List(k)， n)ThenText2=【 】 found=TrueEnd Ifk=k+1WendIf Not found ThenText2=“查无此人 “End IfEnd Sub 45 以下是一个比赛评分程序。在窗体上建立一个名为 Text1的文本框数组，然后画一个名为 Text2的文本框和名为 Command1的命令按钮。运行时在文本框数组中输入 7个分数，单击 “计算得分 ”命令按钮，则最后得分显示在 Text2文本框中 (去掉一个最高分和一个最低分后的平均分即为景后得分 )，如图所示。请填空。Private Sub Command1_Click()

32、Dim k As IntegerDim sum As Single， max As Single， min As Singlesum=Text1(0)max=Text1(0)min=【 】 For k=【 】 To 6If maxText1(k)Thenmax=Text1(k)End IfIf min TextloC)Thenmin=Text1(k)End Ifsum=sum+Textl(k)Next kText2=【 】 /5End Sub 2007年 9月国家二级（ VisualBasic）笔试真题 试卷答案与解析 1 【正确答案】 C 【试题解析】 程序调试的任务是诊断和改正程序中的错误

33、，改正以后还需要再测试。 2 【正确答案】 A 【试题解析】 二分法查找只适用于顺序存储的有序表。在此所说的有序表是指线性表中的元素按值非递减排列 (即从小到大，但允许相邻元素值相等 )。 3 【正确答案】 C 【试题解析】 栈实际上也是线性表，只不过是一种特殊的线性表。在这种特殊的线性表中，其插入和删除只在线性表的一端进行。 4 【正确答案】 D 5 【正确答案】 C 【试题解析 】 软件工程是计算机软件开发和维护的工程学科，它采用工程的概念原理、技术和方法来开发和维护软件，它把经过时间考验而证明正确的管理技术和当前能够得到的最好技术结合起来。 6 【正确答案】 D 【试题解析】 软件设计工

34、具包括：程序流程图、 N-S、 PAD.HIPO，判定表，PDL(伪码 )。而 DFD(数据流图 )属于结构化分析工具。 7 【正确答案】 A 【试题解析】 软件的运行和维护是指将已交付的软件投入运行，并在运行使用中不断地维护，根据新提出的需求进行必要而且可能的扩充和删改。而软件生命周期 是指软件产品从提出、实现、使用维护到停止使用退役的过程。 8 【正确答案】 A 【试题解析】 由于数据的集成性使得数据可为多个应用所共享，特别是在网络发达的今天，数据库与网络的结合扩大了数据关系的应用范围。数据的共享本身又可极大地减少数据冗余性，不仅减少了不必要的存储空间，更为重要的是可以避免数据的不一致性。

35、因此，数据库设计的根本目标是要解决数据共享问题。 9 【正确答案】 B 【试题解析】 从图中可以看出，关系 T是关系 R和关系 s的简单合并，而合并的符号为 u，所以答案为 T=RUS。 10 【正确答案】 B 【试题解析】 数据库管理系统 DBMS是数据库系统的核心。 DBMS是负贵数据库的建立、使用和维护的软件。 DBMS建立在操作系统之上，实施对数据库的统一管理和控制。用户使用的各种数据库命令以及应用程序的执行，最终都必须通过 DBMS。另外， DBMS还承担着数据库的安全保护工作，按照 DBA所规定的要求，保证数据库的完整性和安全性。 11 【正确答案】 B 【试题解析】 由于应用程序

36、中包括一个窗体模块和一个标准模块，所以保存的时候这两个模块肯定要保存，而工程文件是这两个模块的容 器，也需要保存。 12 【正确答案】 C 【试题解析】 要想删除窗体上的某个控件，首先要选中这个控件，然后按下删除键 (Del键 )来删除。 13 【正确答案】 C 【试题解析】 Visual Basic应用程序可以以解释方式执行，也可以编译成可执行文件执行。 14 【正确答案】 D 【试题解析】 本题考的是运算符的优先顺序。在表达式中，当运算符不只一种时，要先处理算术运算符，接着处理比较运算符，然后再处理逻辑运算符。本题中 a =c返回真， 4*e=b2返回假， b a+c返回真。 Not真就是

37、假，假 And真也返回假，最后假 Or假，也返回假，所以最后值为 False。 15 【正确答案】 C 【试题解析】 本题考查的是 Rnd函数和 Iat函数。 Rnd函数返回小于 1但大于或等于 0的值，而 Iht返回参数的整数部分。由于 b-a=5，所以 (b-a)*Rnd+a返回的是大于等于 5，小于 10的数，再使用一下 Int函数，得到的最大值为 9，最小值为5，再加 1后，最大值就是 10，最小值就是 6。 16 【正确答案】 C 【试题解析】 本题主要考查的是 Msgbox函数。 Msgbox函数一共有 5个参数；第 1个参数是显示在对话框上的消息；第 2个参数是值的总和，用于指定

38、显示按钮的数目及形式，使用的图标样式，缺省按钮是什么以及消息框的强制回应等；第 3个参数在对话框标题栏中显示的字符串表达式；第 4个参数是用来向对话框提供上下文相关帮助的帮助文件；第 5个参数是由帮助文件的作者指定给适当的帮助主题的帮助上下文编号。题目中问的是标题栏上显示的内容，也就是第 3个参数的值，而第 3个参数是 bS，它的值是 hardware。 17 【正确答案】 A 【试题解析】 “+”是加号运算符，如果 “+”加号两边的表达式 都是 String型，则“+”起连接作用， InputBox返回的是一个字符型。所以本题是做字符串连接，故答案是 108。 18 【正确答案】 B 【试题

39、解析】 本题考的是 Mid函数， Mid函数是用来返回指定数量的字符串。其中第 2个参数是指定返回字符串的起始位置，第 3个参数是要返回的字符数，这个参数是可选的，如果省略，就返回从起始位置到字符串最后的所有字符。本题中第 3个参数省略了，而起始位置是 8该位置的字符是 C，所以最后返回的就是 China。 19 【正确答案】 B 【试题解析】 List属 性返回或设置控件的列表部分的项目。对于 ListBox控件，List属性是可读写的。由于 Listl中项目默认的索引值是 0到 ListCotmt-1，现在对ListCount这个项目赋值，就是在 Listl的最后加入 条新记录，所以本题答

40、案是B。 20 【正确答案】 A 【试题解析】 DoWhile语句是当 While后面的条件为 True时，执行循环体，当条件为 False时退出循环。本题的条件是 x 28，而循环体中的语句是 X=x*3，所以当 x值为 81时，退出循环体，此时共执行了 4次循环体，所以 n的值为 4。 21 【正确答案】 D 【试题解析】 Do WhileLoop 是先判断条件表达式的值是否为 True，如果为True，则执行循环体，如果为 False，则执行 Loop后面的语句。 DoLoop Until是先执行循环体，再判断条件表达式，如果表达式的值为 Tme，则执行 Loop后面的语句，如果为 Fa

41、lse，则继续执行循环体。而 ExitDo则是强行退出循环。当Counter =10时，强行退出 DoWhile循环，而由于此时 Check=False，使得 Until的条件为 True，结束外层循环。所以最终 Counmr=10。 22 【正确答案】 A 【试题解析】 Mod2 0，就是 i不能被 2整除，而 iMod 3=0，就是 i要能被 3整除。所以本题就是求 2 10之间，能被 3整除但不能被 2整除的数之和。而 2-10之间符合条件的数为 3和 9，它们的和为 12。 23 【正确答案】 A 【试题解析】 本题是通过一个 For循环来给数组赋值。由 arrayl(i,j)=i+j

42、可知，arrayl(2， 3)； 2+3=5， arrayl(3,4)： 3+4=7， arrayl(2,3)+armyl(3,4)： 5+7=12，即文本框中的值为 12。 24 【正确答案】 D 【试题解析】 本题也是通过一个 For循环来给数组赋值。由 al(i,j)=i+j可知，a1(3,3)： 3+3=6，而由 a2(i,j)=al(i,j)+i+j可知 a2(3,3)=al(3,3)+3+3=6+3+3=12。 25 【正确答案】 C 【试题解析】 OptionBasel表示数组的下标是从 l开始的。本题中先定义arr=Array(1， 3， 5， 7， 9， 11， 13， 15

43、， 17， 19)，即 a(1)=1， a(2)=3， a(3)=5，a(4)=7， a(5)=9， a(6)=11， a(7)=13， a(8)=15， a(9)=17， a(10)=19，而在循环语句中就是要求把能被 3整除的数加起来，即 a(2)+a(5)+a(8)=3+9+15=27。 26 【正确答案】 A 【试题解析】 语句 Chr(Asc(“A“)+(i-1)的作用是将字符 A的 ASCII码值加上循环变量的值减 1，求出此 ASCII码对应的字符。将计算出的字符赋值给数组 alt的第 i个元素。循环结束后， alt的 5个元素分别为字符 ABCDE。 Print方法输出项的最后

44、用分号结束，使 得输出不换行。 27 【正确答案】 D 【试题解析】 如果不指明函数过程参数的类型，函数类型默认为 Variant类型，所以选项 A是错误的。在函数过程中，过程的返回值只有一个，所以选项 B是错误的。一般数组通过传址方式进行传递，所以选项 c是错误的。选项 D的说法是正确的。 28 【正确答案】 B 【试题解析】 Visual Basic程序中不能使用 Return语句来返回一个函数的值。要返回一个函数的值，需要把这个值赋值给函数名。所以本题中 AD选项错误，而题目中，当 b为奇数时返回 0，所以本题答案 是 B。 29 【正确答案】 A 【试题解析】 KeyPress事件的

45、KeyAscii参数返回用户所按键的 ASCII码，类型为整型；它不是按键上的字符；并且 KeyAscii参数不可以省略。 30 【正确答案】 C 【试题解析】 因为程序一运行，文本框 Textl获得焦点，按下 “a”键后，执行Text1_KeyDown事件，在窗体上显示 “Visual Basic”；这时再单击窗体，则触发Form_MouseUp事件，在窗体上显示 “程序设计 ”。 31 【正确答案】 C 【试题解析】 Visual Basic中，要对菜单进行操作，只需要直接引用菜单的名称就可以了，而不是从上一级菜单的名称中来引用。所以 BD选项都是错的。而题面上要求选中 “大图标 ”菜单选

46、中，就是要使其 Checked属性为 Tme，所以本题答案是 C。 32 【正确答案】 C 【试题解析】 本题考的是 CommonDialog控件，其中 ShowOpen方法为显示 “打开 ”对话框， ShowPrinter方法为显示 “打印 ”或 “打印选项 ”对话框， ShowFont方法为显示 “字体 ”对话框， ShowColor方法为显示 “颜色 ”对话框。 所以本题答案为C。 33 【正确答案】 D 【试题解析】 工程中首先执行的部分可以由编程人员自己设置，并不一定要先执行 SubMain过程。 34 【正确答案】 A 【试题解析】 A选项正确。 B选项向文件中输出内容，打开方式应当为 ForOutput。 C选项记录变量不可以对元素整体输入输出。 D选项记录变量的输入和输出都必须指明到记录元素。格式为：记录变量元素名。 35 【正确答案】 B 【试题解析】 Path属性适用于目录列表框和文件列表框，用来设置或返回当前驱动器的路径， 其格式为： 窗体 目录列表框 |文件列表框 Path=“路径 “:“窗体 ”是目录列表框所在的窗体，如果省略则为当前窗体。 “路径 ”的格式