2009年3月全国计算机等级考试二级笔试试卷vb.doc

2009年3月全国计算机等级考试二级笔试试卷Visual Basic 语言程序设计一、 选择题（1）下列叙述中正确的是A）栈是“先进先出”的线性表B）队列是“先进先出”的线性表C）循环队列是非线性结构D）有序性表既可以采用顺序存储结构，也可以采用链式存储结构（2）支持子程序调用的数据结构是A）栈B）树C）队列D）二叉树（3）某二叉树有5个度为2的结点，则该二叉树中的叶子结点数是A）10B）8C）6D）4（4）下列排序方法中，最坏情况下比较次数最少的是A）冒泡排序B）简单选择排序C）直接插入排序D）堆排序（5）软件按功能可以分为：应用软件、系统软件和支撑软件（或工具软件）。下面属于应用软件的是A）编译软件B）操作系统C）教务管理系统D）汇编程序（6）下面叙述中错误的是A）软件测试的目的是发现错误并改正错误B）对被调试的程序进行“错误定位”是程序调试的必要步骤C）程序调试通常也称为DebugD）软件测试应严格执行测试计划，排除测试的随意性（7）耦合性和内聚性是对模块独立性度量的两个标准。下列叙述中正确的是A）提高耦合性降低内聚性有利于提高模块的独立性B）降低耦合性提高内聚性有利于提高模块的独立性C）耦合性是指一个模块内部各个元素间彼此结合的紧密程度D）内聚性是指模块间互相连接的紧密程度（8）数据库应用系统中的核心问题是A）数据库设计B）数据库系统设计C）数据库维护D）数据库管理员培训（9）有两个关系R，S如下：RSABCABa32a3b01b0c21c2由关系R通过运算得到关系S，则所使用的运算为A）选择B）投影C）插入D）连接（10）将E-R图转换为关系模式时，实体和联系都可以表示为A）属性B）键C）关系D）域（11）执行语句Dim X，Y As Integer后，A）X和Y均被定义为整型变量B）X和Y均被定义为变体类型变量C）X被定义为整型变量，Y被定义为变体类型变量D）X被定义为变体类型变量，Y被定义为整型变量（12）以下关系表达式中，其值为True的是A）”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$的值为A） Visual BASIC Programming B） VISUAL C+ ProgrammingC） Visual C+ ProgrammingD） VISUAL BASIC Programming（14）下列叙述中正确的是A）MsgBox语句的返回值是一个整数B）执行MsgBox语句并出现信息框后，不用关闭信息框即可执行其他操作C）MsgBox语句的第一个参数不能省略D）如果省略MsgBox语句的第三个参数（Title），则信息框的标题为空（15）在窗体上画一个文本框（名称为Text1）和一个标签（名称为Label1），程序运行后，在文本框中每输入一个字符，都会立即在标签中显示文本框中字符的个数。以下可以实现上述操作的事件过程是A）Private Sub Text1_Change() Label1.Caption=Str(Len(Text1.Text) End SubB）Private Sub Text1_Click() Label1.Caption=Str(Len(Text1.Text)C）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，标题分别为“宋体”和“黑体”）、1个复选框（名称为Check1，标题为“粗体”）和1个文本框（名称为Text1，Text属性为“改变文字字体”），窗体外观如图所示。程序运行后，要求“宋体”单选按钮和“粗体”复选框被选中，则以下能够实现上述操作的语句序列是A）Option1.Value=False Check1.Value=TrueB）Option1.Value=True Check1.Value=0C）Option1.Value=False Check1.Value=2D）Option1.Value=True Check1.Value=1（17）在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：Private Sub Command1_Click() c=1234 c1=Trim(Str(c) For i=1 To 4 Print Next iEnd 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 3For j=5 To 1 Step -1 Print i*jNext jNext i则语句Print i*j 的执行次数是A）15B）16C）17D）18（19）在窗体上画两个文本框（名称分别为Text1和Text2）和一个命令按钮（名称为Command1），然后编写如下事件过程：Private Sub Command1_Click()x=0Do While x50 x=(x+2)*(x+3) n=n+1LoopText1.Text=Str(n)Text2.Text=Str(x)End Sub程序运行后，单击命令按钮，在两个文本框中显示的值分别为A）1和0B）2和72C）3和50D）4和168（20）阅读程序：Private Sub Form_Click() a=0 For j=1 To 15 a=a+j Mod 3 Next j Print aEnd Sub程序运行后，单击窗体，输出结果是A）105B）1C）120D）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）18B）28C）21D）32（23）在窗体上画一个命令按钮，其名称为Command1，然后编写如下代码：Option Base 1Private Sub Command1_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）4321B）1234C）34D）12（24）假定通过复制、粘贴操作建立了一个命令按钮数组Command1，以下说法中错误的是A）数组中每个命令按钮的名称（Name属性）均为Command1B）若未做修改，数组中每个命令按钮的大小都一样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）0B）1C）2D）3（26）以下关于函数过程的叙述中，正确的是A）函数过程形参的类型与函数返回值的类型没有关系B）在函数过程中，过程的返回值可以有多个C）当数组作为函数过程的参数时，既能以传值方式传递，也能以传址方式传递D）如果不指明函数过程参数的类型，则该参数没有数据类型（27）在窗体上画两个标签和一个命令按钮，其名称分别为Label1、Label2和Command1，然后编写如下程序：Private Sub func(L As Label) L.Caption=”1234”End SubPrivate Sub Form_Load() Label1.Caption=”ABCDE” Label2.Caption=10End SubPrivate Sub Command1_Click() a=Val(Label2.Caption) Call func(Label1) Label2.Caption=aEnd Sub程序运行后，单击命令按钮，则在两个标签中显示的内容分别为A） ABCD和10B） 1234和100C） ABCD和100D） 1234和10（28）在窗体上画一个命令按钮（名称为Command1），并编写如下代码：Function 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 Integer x=10 Print Fun1(Fun1(x,(Fun1(x,x-1),x-1)End Sub程序运行后，单击命令按钮，输出结果是A）10 B）0C）11D）21（29）以下关于过程及过程参数的描述中，错误的是A）过程的参数可以是控件名称B）调用过程时使用的实参的个数应与过程形参的个数相同C）只有函数过程能够将过程中处理的信息返回到调用程序中D）窗体可以作为过程的参数（30）设有如下通用过程：Public Function Fun(xStr As String) As String Dim tStr As String, strL As Integer tStr=” strL=Len(xStr) i=strL/2 Do While i【7】 Then Image1.Left= 【8】-100 End If End Sub（7）设窗体上有一个名称为Combo1的组合框，并有以下程序： Private Sub Combo1_KeyPress(KeyAscii As Integer) If 【9】=13 Then 回车符的ASCII码是13 For k=0 To Combo1.ListCount-1 If Combo1.Text=Combo1.List(k) Then Combo1.Text=” Exit For End If Next k If Combo1.Text” Then Combo1.AddItem 【10】 End If End If End Sub程序的功能是：在组合框的编辑区中输入文本后按回车键，则检查列表中有无与此文本相同的项目，若有，则把编辑区中的文本删除，否则把编辑区中文本添加到列表的尾部。请填空。（8）在当前目录下有一个名为“myfile.txt”的文本文件，其中有若干行文本。下面程序的功能是读入此文件中的所有文本行，按行计算每行字符的ASCII码之和，并显示在窗体上。请填空。Private Sub Command1_Click()Dim Ch$, ascii As IntegerOpen “myfile.txt” For 【11】 As #1While Not EOF(1) Line Input #1, ch Ascii=toascii(【12】) Print asciiWendClose #1End SubPrivate Function toascii(mystr$) As Integer n=0 For k=1 To 【13】n=n+Asc(Mid(mystr,k,1) Next k Toascii=nEnd Function（9）本程序实现文本加密。先给定序列：a1,a2,an,它们的取值范围是1n,且互不相同。加密算法是：把原文本中第k个字符放到加密后文本的第ak个位置处。若原文本长度大于n，则只对前n个字符加密，后面的字符不变；若原文本长度小于n，则在后面补字符“*”使文本长度为n后再加密。例如：若给定序列a1，a2，a7分别为2，5，3，7，6，1，4 当文本为“PROGRAM”时，加密后的文本为“APOMRRG” 当文本为“PROGRAMMING”时，加密后的文本为“APOMRRGMING” 当文本为“THANK”时，加密后的文本为“*TA*HKN”下面的过程code实现这一算法。其中参数数组a()中存放给定序列（个数与数组a的元素个数相等）a1，a2，a3，的值，要加密的文本放在参数变量mystr中。过程执行完毕，加密后的文本仍放在变量mystr中。请填空。Option Base 1Private Sub code(a() As Integer, mystr As String)Dim ch As String, c1 As Stringn=UBound(a)-Len(mystr