2009-3全国计算机等级考试题及答案

1、/forum-54-1.html一、选择题（每小题2分，共70分）下列各题A)、B)、C)、D)四个选项中，只有一个选项是正确的，请将正确选项涂写在答题卡 www. 位置上，答在试卷上不得分。（1）下列叙述中正确的是A)栈是“先进先出”的线性表B)队列是“先进后出”的线性表C)循环队列是非线性机构D)有序线性表既可以采用顺序存储结构，也可以采用链式存储机构。（2）支持子程序调用的数据结构是A) 栈 B) 树 C) 队列 D) 二叉树（3）某二叉树有5个度为2的结点，则该二叉树中叶子结点数是A) 10 B)8 C)6

2、D)4 (4) 下列排序方法中，最坏情况下比较次数最少的是A) 冒泡排序 B)简单选择排序 C)直接插入排序 D)堆排序 (5) 软件按功能可以分为：应用软件、系统软件和支撑软件（或工具软件）。下面属于应用软件的是A) 编译程序 B)操作系统 C)教务管理系统 D)汇编语言 (6)下面叙述中错误的是A)软件测试的目的是发现错误并改正错误B)对被调试的程序进行“错误定位”是程序调试的必要步骤 C) 程序调试通常也称为Debug D)软件测试应严格执行测试计划，排除测试的随意性。 (7)耦合性和内聚性是对模块独立性度量的两个标准。下列叙述中正确的是A)提高耦合性降低内聚性有利于提高模块的独立性B)

3、降低耦合性提高内聚性有利于提高模块的独立性C)耦合性是指一个模块内部各个元素彼此结合的紧密程度D)内聚性是指模块间互相连接的紧密程度 (8)数据库应用系统中的核心问题是A)数据库设计 B)数据库系统设计 C)数据库维护 D)数据库管理员培训 (9)有两个关系R,S如下：由关系R通过运算得到关系S，则所使用的运算为: / RABCa32b01c21SABa3b0c2A)选择 B)投影 C)插入 D)连接(10)将E-R图转换为关系模式时，实体和联系都可以表示为:A)属性 B)键 C)关系 D)域 (11)执行语句Dim X,Y

4、As Integer 后A)X和Y均被定义为整形变量B)X和Y均被定义为变体类型变量C)X被定义为整型变量，Y被定义为变体类型变量D)X被定义为变体类型变量,Y被定义为整型变量 (12)以下关系表达式中，其中值为True的是A)XYZXYz B)VisuslBasicvisualbasicC)the=there D)IntegerInt (13)执行以下程序段a$=Visual Basic Programmingb$=C+c$=UCase(Left$(a$,7)& b$ &Right$(a$,12)后，变量c$的值为 A)Visual BASIC Programming B)VISUAL C+

5、ProgrammingC)Visual C+ Programming D)VISUAL BASIC Programming (14)下列叙述中正确的是A)MsgBox语句的返回值是一个整数B)执行MsgBox语句并出现信息框后，不用关闭信息框即可执行其他操作C)MsgBox语句的第一个参数不能省略D)如果省略MsgBox语句的第三个参数（Title）,则信息框的标题为空 (15)在窗体上画一个文本框（名称为Text1）和一个标签(名称为Label1),程序运行后，在文本框中每输入一个字符，都会立即在标签中显示文本框中字符的个数。以下可以实现上述操作的事件过程是A)PrivateSub Text

6、1_Change() Label1.Caption=Str(Len(Text1.Text) End SubB) PrivateSub Text1_Click() Label1.Caption=Str(Len(Text1.Text) End SubC)Private Sub Text1_Change() Label1.Caption=Text1.Text End SubD)Private Sub Label1_Change() Label1.Caption=Str(Len(Text1.Text) End Sub (16)在窗体上画两个单选按钮（名称分别为Option1、Option2,标题分别为

7、“宋体”和“黑体”）、1个复选框（名称为Check1，标题为“粗体”）和1个文本框（名称为Text1,Text属性为“改变文字字体”），窗体外观如图所示。程序运行后，要求“宋体”点选按钮和“粗体”复选被选中，则以下能够实现上述操作的语句序列是A)Option1.Value=False Check1.Value=TrueB)Option1.Value=True Check1.Value=0C)Option2.Value=False Check1.Value=2D)Option1.Value=True Check1.Value=1(17)在窗体上画一个名称为Command1的命令按钮，然后编写如下

8、事件过程：Private Sub Command1_Click() c=1234 c1=Trim(Str(c) For i=1 To 4 Print NextEnd Sub程序运行后，单击命令按钮，要求在窗体上显示如下内容：1121231234则在横线处应填入的内容为A) Right(c1,i) B)Left(c1,i) C)Mid(c1,i,1) D)Mid(c1,i,i) (18)假定有如下程序段For i=1 To 3 For j=5 To 1 Step -1 Print i*jNext iNext i 则语句Print i*j的执行次数是A)15 B)16 C)17 D)18 (19)

9、在窗体上画两个文本框（名称分别为Text1和Text2）和一个命令按钮（名称为Command1）,然后编写如下事件过程：Private Sub Command1_Click() x=0 Do While x50 x=(x+2)*(x+3) n=n+1 Loop Text1.Text=Str(n) Text2.Text=Str(x)End Sub程序运行后，单击命令按钮，在两个文本框中显示的值分别为A)1和0 B)2和72 C)3和50 D)4和168 (20)阅读程序：Private Sub Form_Click()a=0For j=1 To 15a=a+ j Mod 3 Next j Pri

10、nt aEnd Sub程序运行后，单击窗体，输出结果是A)105 B)1 C)120 D)15 (21)以下说法正确的是A)当焦点在某个控件上时，按下一个字母键，就会执行该控件的KeyPress事件过程B)因为窗体不接受焦点，所以窗体不存在自己的KeyPress事件过程C)若按下的键相同，KeyPress事件过程中的KeyAscii参数与KeyDown事件过程中的KeyCode参数的值也相同。D)在KeyPress事件过程中，KeyAscii参数可以省略 (22)语句Dim a(-3 To 4,3 To 6)As Integer 定义的数组的元素个数是A)18 B)28 C)21 D）32 (

11、23)在窗体上画一个命令按钮，其名称为Command1,然后编写如下代码：Option Base lPrivate Sub Commandl_Click() Dim a a=Array(1,2,3,4) j=1 For i=4 To 1 Step -1 s=s+a(i)*j j=j*10 Next i Print sEnd Sub程序运行后，单击命令按钮，其输出结果是:A)4321 B)1234 C)34 D)12 (24)假定通过复制、粘贴操作建立一个命令按钮数组Command1,以下说法中错误的是A)数组中每个命令按钮的名称（Name属性）均为Command1B)若未做修改，数组中每个命令

12、按钮的大小都一样C）数组中个命令按钮使用相同一个Click事件过程D)数组中每个命令按钮的Index属性值都相同（25）、在窗体上画一个命令按钮，名称Command1，然后编写如下代码：Option Base 0Private Sub Command1_Click() Dim A1(4) As Integer,A2(4) As Integer For k=0 To 2 A1(k+1)=InputBox(请输入一个整数) A2(3-k)=A1(k+1) Next k Print A2(k)End Sub程序运行后，单击命令按钮，在输入对话框中依次输入2、4、6，则输出结果为A)0 B)1 C)2

13、 D)3 26、以下关于函数过程的叙述中，正确的是A)函数过程形参的类型与函数返回值的类型没有关系B)在函数过程中，过程的返回值可以有多个C)当数组作为函数过程的参数时，既能以传值方式传递，也能以传址方式传递D)如果不指明函数过程参数的类型，则该参数没有数据类型 27、在窗体上画两个标签和一个命令按钮，其名分别为Label1、Label2和Command1,然后编写如下程序：Private Sub func(L As Label) L.Caption=1234End SubPrivate Sub Form_Load() Label1.Caption=ABCDE Label2.Caption=1

14、0End SubPrivate Sub Command1_Click() a=Val(Label2.Caption) Call func(Label1) Lebel2.Caption=aEnd Sub程序运行后，单击命令按钮，则在两个标签中显示的内容分别为A)ABCD和10 B)1234和100 C)ABCD和100 D)1234和10 28、在窗体上画一个命令按钮（名称为Command1）,并编写如下代码：Function Fun1(ByVal a As Integer ,b As Integer)As Integer Dim t As Integer t=a-b b=t+a Fun1=t+

15、bEnd FunctionPrivate Sub Command1_Click() Dim x As Integer x=10 Print Fun1(Fun1(x,(Fun1(x,x-1),x-1)End Sub 程序运行后，单击命令按钮，输出结果是A)10 B)0 C)11 D）21 29、以下关于过程及过程参数的描述中，错误的是A)过程的参数可以是控件名称B）调用过程时使用的实参的个数应与过程形参的个数相同C)只有函数过程能够将过程中处理的信息返回到调用过程中D)窗体可以作为过程的参数A)A B)B C)C D)D 30、设有如下通用过程：Public Function Fun(xStr

16、As String) As String Dim tStr As String, strL As Integer tStr= strL=Len(xStr) i=strL/2 Do While i=strL tStr=tStr & Mid(xStr,i+1,1) i=i+1 Loop Fun=tStr & tStr End Function在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮。然后编写如下事件过程：Private Sub Command1_Click() Dim S1 As String S1=ABCDEFText1.text=LCASE(FUN(S1)E

17、nd Sub程序运行后，单击命令按钮，文本框中显示的是A)ABCDEF B)abcdef C)defdef D)defabc 31、在窗体上画一个命令按钮和一个文本框（名称分别为Command1和Text1）,并把窗体的KeyPreview属性设置为True,然后编写如下代码：Dim SaveALL As StringPrivate Sub Form_Load() show Text1.Text= Text1.SetFocusEnd SubPrivate Sub Command1_Click() Text1.Text=LCase(SaveALL)+SaveAllEnd SubPrivate S

18、ub Form_KeyPress(KeyAscii As Integer) SaveAll=SaveAll+Chr(KeyAscii)End Sub程序运行后，直接用键盘输入:VB,单击命令按钮，则文本框中显示的内容为A)vbVB B)不显示任何信息 C)VB D)出错 32、设有以下程序：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 aEnd Sub程序运行后，单击窗体，在输入对

19、话框中依次输入15、24、35、46，输出结果为A)100 B)50 C）120 D）70 33、以下关于菜单的叙述中，错误的是A)当窗体为活动窗体时，用 Ctrl+E键可以打开菜单编辑器B)把菜单项的Enabled属性设置为False,则可以删除该菜单项C)弹出式菜单在菜单编辑器中设计D)程序运行时，利用控件数组可以实现菜单项的增加或减少 34、以下叙述中错误的是A)在程序运行时，通用对话框控件是不可见的B)调用同一个通用对话框控件的不同方法（如ShowOpen或ShowSave）可以打开不同的对话框窗口C)调用通用对话框控件的ShowOpen方法，能够直接打开在该通用对话框中指定的文件D)

20、调用通用对话框控件的ShowColor方法，可以打开颜色对话框窗口 35、设在工程文件中有一个标准模块，其中定义了如下记录类型：Type Books Name As String * 10 TelNum As String *20End Type在窗体上面画一个名为Command1的命令按钮，要求当执行事件过程Command1_Click时，在顺序文件Person.txt中写入一条Books类型的记录。下列能够完成该操作的事件过程是A) Private Sub Command1_Click() Dim B As Books Open Person.txt For Output As #l B.

21、Name=InputBox(输入姓名) B.TelNum=InputBox(输入电话号码) Write #l, B.Name , B.TelNum Close #lEnd SubB) Private Sub Command1_Click() Dim B As Books Open Person.txt For Input As #l B.Name=InputBox(输入姓名) B.TelNum=InputBox(输入电话号码) Print #l, B.Name ,B.TelNum Close #lEnd SubC) Private Sub Command1_Click() Dim B As B

22、ooks Open Person.txt For Output As #l B.Name=InputBox(输入姓名) B.TelNum=InputBox(输入电话号码) Write #l, B / Close #lEnd SubD) Private Sub Command1_Click() Open Person.txt For Input As #l Name=InputBox(输入姓名) TelNum=InputBox(输入电话号码) Print #l, Name ,TelNum Close #lEnd Sub w w w

23、. 二、填空题（每空2分，共30分）1）假设用一个长度为50的数组（数组元素的下标从0到49）作为栈的存储空间，栈底指针bottom指向栈底元素，栈顶指针top指向栈顶元素，如果bottom=49,top=30(数组下标)，则栈中具有 个元素。(19)2）软件测试可以分白盒测试和黑盒测试。基本路径测试属于 测试。(白盒)3）符合结构化原则的三种基本控制结构是：选择结构、循环结构和 。4）数据库系统的核心是 。5）在E-R图中，图形包括矩形框、菱形框、椭圆框。其中表示实体联系的是 框。6）窗体如图所示，其中汽车是名称为Image1的图像框，命令按钮的

24、名称为Command1,计时器的名称为Timer1,直线的名称为Line1.程序运行时，单击命令按钮，则汽车每0.1秒向左移动100，车头到达左边的直线时停止移动。请填空完成下面的属性设置和程序，以便实现上述功能。Timer1的Interval属性的值应事先设置为 。（100） Private Sub Command1_Click() Timer1.Enabled=True End Sub Private Sub Timer1_Timer() If Image1.Left= Then（line1.x1或line1.x2） Image1.Left=-100（Image1.Left） End If

25、 End Sub 7）设窗体上有一个名称为Combol的组合框，并有以下程序：Private Sub Combol_KeyPress(KeyAscii As Integer) If =13 Then 回车符的ASCII码是13 KeyAscii For k=0 To Combol.ListCount-1 If Combol.Text=Combol.List(k) ThenCombol.Text= Exit For End If s Next k wmIf Combol.Text Then Combol.AddItem hm Combol.

26、TextEnd If End If End Sub 程序的功能是：在组合框的编辑区中输入文本后按回车键，则检查列表中有无与此文本相同的项目，若有，则把编辑区中的文本删除，否则把编辑区中文本添加到列表的尾部。请填空。 8）在当前目录下有一个名为“myfile.txt”的文本文件，其中有若干行文本。下面程序的功能是读入此文件的所有文本行，按行计算每行字符的ASCII码之和，并显示在窗体上。请填空。 Private Sub Command1_Click() Dim ch$,ascii As Integer Open myfile.txt For As #1 （input） While Not EOF(1) line Input #l, ch ascii=toascii( ) （ ch） Print ascii Wend Close #1End Sub Private Function toascii(mystr$) As Integer n=0 For k=1 To （len（mystr） n=n+Asc (Mid(mystr,k,l) Nextk Toascii=nEnd Function 9)本程序实现文本加密。