2009年4月

2009年4月全国计算机等级考试二级笔试试卷Visual Basic 语言程序设计(考试时间90分钟，满分100分)一、选择题（1）下列叙述中正确的是 BA）栈是“先进先出”的线性表B）队列是“先进先出”的线性表C）循环队列是非线性结构D）有序性表既可以采用顺序存储结构，也可以采用链式存储结构（2）支持子程序调用的数据结构是AA）栈 B）树 C）队列 D）二叉树（3）某二叉树有5个度为2的结点，则该二叉树中的叶子结点数是AA）10 B）8 C）6 D）4（4）下列排序方法中，最坏情况下比较次数最少的是 CA）冒泡排序 B）简单选择排序 C）直接插入排序 D）堆排序（5）软件按功能可以分为：应用软件、系统软件和支撑软件（或工具软件）。

下面属于应用软件的是C A）编译软件 B）操作系统 C）教务管理系统 D）汇编程序（6）下面叙述中错误的是CA）软件测试的目的是发现错误并改正错误B）对被调试的程序进行“错误定位”是程序调试的必要步骤C）程序调试通常也称为DebugD）软件测试应严格执行测试计划，排除测试的随意性（7）耦合性和内聚性是对模块独立性度量的两个标准。

下列叙述中正确的是BA）提高耦合性降低内聚性有利于提高模块的独立性B）降低耦合性提高内聚性有利于提高模块的独立性C）耦合性是指一个模块内部各个元素间彼此结合的紧密程度D）内聚性是指模块间互相连接的紧密程度（8）数据库应用系统中的核心问题是CA）数据库设计 B）数据库系统设计C）数据库维护 D）数据库管理员培训（9）有两个关系R，S如下:由关系R通过运算得到关系S，则所使用的运算为AA）选择 B）投影 C）插入 D）连接（10）将E-R图转换为关系模式时，实体和联系都可以表示为 DA）属性 B）键 C）关系 D）域(11)执行语句 Dim X, Y as Integer 后，DA）X 和Y均被定义为整型变量B）X和Y被定义为变体类型变量C）X被定义为整型变量，Y被定义为变体类型变量D）X被定义为变体类型变量，Y被定义为整型变量（12）以下关系表达式中，其值为True的是 BA）”XYZ”>”XYz”B）”VisualBasic”<>”visualbasic”C）”the”=”there”D）”Integer”<”Int”(13)执行以下程序段a$=”Visual Basic Programming”b$=”C++”c$=Ucase(left$(a$,7))&b$& Right$(a$,12)后，变量c$ 的值为 BA）Visual Basic ProgrammingB）VISUALC++ ProgrammingC）Visual C++ ProgrammingD）VISUAL BASIC Programming(14)下列叙述中正确的是CA）MsgBox语句的返回值是一个整数B）执行Msgbox语句并出现信息框后,不用关闭信息框即可执行其他操作C）MsgBox语句的第一个参数不能省略D）如果省加略MsgBox语句的第三个参数(Title),则信息框的标题为空（15）在窗体上画一个文本框（名称为text1）和一个标签（名称为label1）,程序运行后，在文本框中每输入一个字符，都会立即在标签中显示文本框中字符的个数，以下可以实现实现上述操作的事件过程是C A）Private Sub Text1_Change()Label1.Caption = Str(Len(Text1.Text))End SubB）Private Sub Text1_Click()Label1.Caption = Str(Len(Text1.Text))End SubC）Private Sub Text1_Change()Label1.Caption = text1.textEnd SubD）Private Sub label1_Change()Label1.Caption = Str(Len(Text1.Text))End Sub（16）在窗体上画两个单选按钮（名称分别为Option1、option2,标题分别为“宋体”和“黑体”）、1个复选框（名称为check1,标题为“粗体”）和1个文本框（名称为text1,text属性为“改变文字字体”），窗体外观如图所示。

程序运行后，要求“宋体”单选按钮和“粗体”复选框被选中，则以下能够实现上述操作的语句序列是 DA) Option1.value = FalseCheck1.value = True B) Option1.value = TrueCheck1.value = 0 C) Option1.value = TrueCheck1.value = 2 D) Option1.value = TrueCheck1.value = 1（17）在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：Private Sub Command1_Click()c = 1234c1 = Trim(Str(c))For i = 1 To 4PrintNextEnd Sub程序运行后，单击命令按钮，要求在窗体上显示如下内容：1121231234则在横线上应填入的内容为AA）Right(c1,i) B)Left(c1,i) C)Mid(c1,I,1) D) Mid(c1,i,i)(18)假定有以下程序段For i=1 to 3For j=5 to 1 step -1Print i*jNext jNext i则语句 Print i*j 的执行次数是 AA）15 B）16 C）17 D）18（19）在窗体上画两个文本框（名称分别为text1和text2）和一个命令按钮（名称为command1）,然后编写如下事件过程：Private Sub Command1_Click()x = 0Do While x < 50x = (x + 2) * (x + 3)n = n + 1Looptext1.Text = Str(n)text2.Text = Str(x)End Sub程序运行后，单击命令按钮，在两个文本框中显示的值分别为BA）1和0 B）2和72 C)3和50 D）4和168(20)阅读程序：Private Sub Command1_Click()A=0For j=1 to 15a=a+j mod 3Next jPrint aEnd Sub程序运行后，单击窗体，输出结果是BA）105 B)1 C)120 D)15(21)以下说法中正确是的 DA)当焦点在某个控件上时，按下一个字母键,就会执行该控件的keypress事件过程B)因为窗体不接受焦点,所以窗体不存在自己的keypress事件过程C)若按下的键相同,keypress事件过程中的keyascii参数与keydown事件过程中的keycode参数的值也相同D）在keypress事件过程中，keyascii参数可以省略（22）语句 dim a(-3 to 4,3 to 6)as integer 定义的数组的元素个数是DA）18 B）28 C）21 D）32（23）在窗体上画一个命令按钮，其名称为command1,然后编写如下代码：Option Base 1Private Sub Command1_Click()Dim aa = Array(1, 2, 3, 4)j = 1For i = 4 To 1 Step -1s = s + a(i) * jj = j * 10Next iPrint sEnd Sub程序运行后，单击命令按钮后，其输出结果是 BA）4321 B）1234 C）34 D）12（24）假定通过复制，粘贴操作建立了一个命令按钮数组Command1，以下说法中错误的是DA）数组中每个命令按钮的名称（name属性）均为Command1B）若未做修改，数组中每个命令按钮的大小都一样C）数组中各个按钮使用同一个click事件过程D）数组中每个命令按钮的index属性值都相同（25）在窗体上面画一个命令按钮，名称为Command1，然后编写如下代码：Option Base 0Private Sub Command1_Click()Dim A1(4) As Integer,A2(4) As IntegerFor k=0 To 2A1(k+1)=InputBox(“请输入一个整数”)A2(3-k)=A1(k+1)Next kPrint A2(k)End Sub程序运行后，单击命令按钮，在输入对话框中依次输入2、4、6，则输出结果为 DA）0 B）1 C）2 D）3（26）以下关于函数过程的叙述中，正确的是A）函数过程形参的类型与函数返回值的类型没有关系B）在函数过程中，过程的返回值可以有多个C）当数组作为函数过程的参数时，既能以值方式传递，也能以传址方式传递D）如果不指明函数过程参数的类型，则该参数没有数据类型（27）在窗体上画两个标签和一个命令按钮，其名称分别为Label1、Label2和Command1，然后编写如下程序：Private Sub func(L As Label)L.Caption=”1234”End subPrivate Sub Form_Load()Label2.Caption=10End subPrivate Sub Command1_Click()A=V al(Label2.Caption)Call func(Label1)Label2.Caption=aEnd sub程序运行后，单击命令按钮，则在两个标签中显示的内容分别为 DA）ABCD和10 B）1234和100C）ABCD和100 D）1234和10（28）在窗体上画一个命令按钮（名称为Command1），并编写如下代码：Functin Fun1(Byval a As Integer ,b As Integer) As IntegerDim t As Integert=a-bb=t+aFun1=t+bEnd FunctionPrivate Sub Command1_Click()Dim x As IntegerX=10Print Fun1(Fun1(x,(Fun1(x,x-1))),x-1)End Sub程序运行后，单击命令按钮，输出结果是A）10 B）0 C）11 D）21（29）以下关于过程及过程参数的描述中，错误的是A）过程的参数可以是控件名称B）调用过程时使用的实参的个数应与过程形参的个数相同C）只有函数过程能够将过程中处理的信息返回到调用程序中D）窗体可以作为过程的函数（30）有如下通用过程：Public Function Fun(xStr As String) As StringDim tStr As String ,strL As IntegertStr=””strL=Len(xStr)i=strL/2Do While i<=strLtStr=tStr & Mid(xStr,i+1,1)i=i+1LoopFun=tStr & tStrEnd Function在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程：Private Sub Command1_Click()Dim S1 As StringS1=”ABCDEF”Text1.Text=Lcase(Fun(S1))End Sub程序运行后，单击命令按钮，文本框中显示的是A）ABCDEF B）abcdef C）defded D）defabc（31）在窗体上画一个命令按钮和一个文本框（名称分别为Command1和Text1），并把窗体的Keyprewiew 属性设置为True，然后编写如下代码：Dim SaveAll As StringPrivate Sub Form_Load ()ShowText1.Text=””Text1.SetFocusEnd SubPrivate Sub Command1_Click()Text1.Text=Lcase(SaveAll)+SaveAllEnd SubPrivate Sub Form_KeyPress(KeyAscii As Integer)SaveAll=SaveAll+Chr(KeyAscii)End Sub程序运行后，直接用键盘输入：VB，再单击命令按钮，则文本框中显示的内容为A）vbVB B）不显示任何信息 C）VB D）出错（32）设有以下程序：Private Sub Form_Click()X=50For i=1 To 4Y=InputBox(“请输入一个整数”)Y=V al(y)If y Mod 5=0 Thena=a+yx=yElsea=a+xEnd IfNext iPrint aEnd Sub程序运行后，单击窗体，在输入对话框中依次输入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）调用通用对话框控件的ShowColor方法，可以打开颜色对话框窗口（35）设在工程文件中有一个标准模块，其中定义了如下记录类型：Type BooksName As String * 10TelNum As String * 20End Type在窗体上画一个名为Command1的命令按钮，要求当执行事件过程Command1_Click时，在顺序文件Person.txt中写入一条Books类型的记录。