二级VB程序设计笔试试卷.doc

1、声明：本资料由 大家论坛计算机考试专区 http:/ 收集整理，转载请注明出自 http:/更多计算机考试信息，考试真题，模拟题：http:/ 大家论坛，学习的天堂！2007 年4 月计算机等级考试二级 VB 程序设计笔试试卷一、 选择题（第小题 2 分,共 70 分）下列各题 A）、B）、C）、 D）四个选项中，只有一个选项是正确的。请将正确选项填涂在答题卡相应位置上，答在试卷上不得分。（1） 下列叙述中正确的是（ ）A）算法的效率只与问题的规模有关，而与数据的 存储结构无关B）算法的时间复杂度是指执行算法所 需要的计算工作量C）数据的逻辑结构与存储结构是一一 对应的D）算法的时间复杂度与空

2、间复杂度一 定相关 （2） 在结构化程序设计中，模块划分的原则是（ ）A）各模块应包括尽量多的功能B） 各模块的规模应尽量大C） 各模块之间的联系应尽量紧密D） 模块内具有高内聚度、模块间具有 低耦合度（3） 下列叙述中正确的是（ ）A）软件测试的主要目的是发现程序 中的错误B）软件测试的主要目的是确定程序中 错误的位置C）为了提高软件测试的效率，最好由程序 编制者自己来完成软件的测试工作D）软件测试是证明软件没有错误（4） 下面选项中不属于面向对象程序设计特征的是（ ）A）继承性 B）多态性 C）类比性 D）封装性（5） 下列对队列的叙述正确的是（ ）A）队列属于非线性表B）队列按“先进后出

3、 ”原则组织数据C）队列在队尾删除数据D）队列按“先进先出”原则组织数据（6） 对下列二叉树（ ） A）DYBEAFCZX B）YDEBF ZXCAC）ABDYECFXZ D ）ABCDEFXYZ （7）某二叉树中有 n 个度为2 的结点,则该二叉树中的叶子结点数为（ ）A）n+1 B） n-1 C）2n D）n/2（8）在下列关系运算中,不改变关系表中的属性个数但能减少元组个数的是（ ）A）并 B）交 C）投影 D）笛卡儿乘积（9）在 ER 图中,用来表示实 体之间联系的图形是（ ）A）矩形 B）椭圆形 C）菱形 D）平行四边形（10）下列叙述中错误的是（ ）A）在数据库系统中,数据的物理

4、结构必须与逻辑结构一致B）数据库技术的根本目标是解决数据 共享问题C）数据库技术是指己有数据管理系统 的基础上建立数据库D）数据库系统需要操作系统 的支持（11）下面可以正确定义 2 个整形变量和1 个字符串变量的语句的是（ ）A）Dim n,m AS Inter ger,s AS String B）Dim a%,b$,c AS StringC）Dim a AS Integer,b,c AS String D）Dim x%,y AS Integer,z AS String（12）下列表述中不能判断 x是否为偶数的是（ ）A）x/2=Int（x/2） B）x Mod 2=0 C）Fix（x/2

5、）=x/2 D）x2=0（13）设在名称为Myform 的窗体上只有 1 个名称为 C1 的命令按钮,下面叙述中正确的是（ ）A）窗体的 Click 事件过程的过程名是 Myform_ClickB）命令按钮的Click事件过程名是 C1_ClickC）命令按钮的Click事件过程的过程名是 Command1_ClickD) 上述 3 种名 称读市错误的 （14）设窗体上有1 个滚动条,要求单击滚动条右端的按钮一次,滚动条移动一定的刻度值,决定此刻度的属性是（ ）A）Max B）Min C）SmallChange D）LargeChang（15）1 个二维数组可以存放1 个矩形.在程序开始有语句

6、 Option Base 0,则下面定义的数组中正好可以存放1 个 4*3 矩阵（即只有 12个元素）的是（ ）A）Dim a（-2 To 0,2） AS Integer B）Dim a（3,2） AS IngegerC）Dim a （4,3）AS Ingeger D）Dim a（-1 To -4,-1 To -3）AS Ingeger（16）若设置了文本框的属性PasswordChar=”$”,则运行程序时向文本框中输入 8 个任意字符后,文本框中显示的是（ ）A）8 个”$” B）1 个”$” C）8 个”*” D ）无任何内容（17）设在窗体上有 1 个名称为 Combo1 的组合框,含

7、有 5 个项目,要删除最后一项,正确的语句是（ ）A）Combo 1.RemoveItem Combo1.Text B） Combo1.RemoveItem4C） Combo1.RemoveItem Combo1.ListCount D） Combo1.RemoveItem5（18）工程中有 2个窗体,名称分别为Form1.Form2 ,Form1为启动窗体,该窗体上有命令按钮Command1,要求程序运行后单击该命令按钮时显示 Form2,则按钮的 Click 事件过程应该是（ ）A）Private Sub Command1_Click（ ） B）Private Sub Comma nd1_

8、Click（ ）Form2.Show Form2.VisibleEnd Sub End SubC）Private Sub Command1_Click（ ） D）Private Sub Comma nd1_Click（ ）Load Form2 Form2.LoadEnd Sub End Sub（19）若在某窗体模块中有如下事件过程（ ）Private Sub Command1_Click（Index AS Integer）End Sub则以下叙述中正确的是A）此事件过程与不带参数的事件过程 没有区别B）有 1 个名称为 Command1 的窗体,单击此窗体则执行此事件过程C）有 1 个名称为

9、Command1 的空件数组,数组中有多个不同类型控件D）有 1 个名称为 Command1 的空件数组,数组中有多个相同类型控件（20）以下循环语句中在任何情况下都至少执行一次循环体的是（ ）A）Do While B）While 循环体 循环体Loop WendC）Do D）Do Until 循环体 循环体Loop Until Loop （21）在窗体上有1 个名为 Cd1 的通用对话框,为了在运行程序时打开保存文件对话框,则在程序总应使用的语句是（ ）A）Cd1.Action=2 B）Cd1.Actio n=1C）Cd1.ShowSave=Ture D）Cd1.ShowSave=0 （22

10、）下面关于菜单的叙述中错误的是（ ）A）各级菜单中的所有菜单项的名称必 须唯一B）同一子菜单中的菜单项名称必须唯 一,但不同子菜单中的菜单项名称可以相同C) ）弹出式菜单用 PopupMenu方法弹出D）弹出式菜单也用菜单编辑器编辑 （23）已知有下面的过程（ ）Private Sub proc1（a As Integer,b As String,Optional x As Boolean）End Sub正确调用此过程的语句是A）Call procl（5） B）Call proc1 5,”abc”,FalseC）proc1（12,”abc”,True） D）proc1 5, “abc”（24）

11、在窗体上有一个文件名称为 Text1 的文本框和 1 个名称为 Command1的命令按钮，要求在程序执行时，每单击命令按钮一次，文本框向右移动一定距离。下面能够正确实现上述功能的程序是（ ）A）Private Sub Command1_Click（） B） Private Sub Command1_Click（）Text1.Left=100 Text1.Left= Text1.Left-100End Sub End Sub C）Private Sub Command1_Click（） D） Private Sub Command1_Click（）Text1.Move.Text.Left+10

12、0 Text1.Move.Text.LeftEnd Sub End Sub （25）某人创建了1 个工程，其中的窗体名称为 Form1;之后又添加 了 1 个名为Form2 的窗体，并希望程序执行时先显示 Form2 窗体，那么，他需要做的工作是（ ）A）在工程属性对话框中把“启动对象”设置为 Form2B）在 Form1 的 Load 事件过程中加入语句 Load Form2C）在 Form2 的 Load 事件过程中加入语句Form2 .ShowD）在 Form2 的 TabIndex属性设置为，把 Form1 的 TabIndex属性设置为 （26）窗体上有个名称为 Text1 的文本框

13、和个名称为 Command1 的命令按钮。要求程序运行时，单击命令按钮，就可以把文本框中的内容写到文件out.txt 中，每次写入的内容附加到文件原有内容之后。下面能够实现上述功能的程序是（ ）A）Private Sub Command1_Click（） B） Private Sub Command1_Click（）Open “out.txt” For Inpit As#1 Open “out.txt” For Outpit As#1Print#1,Text1.Text Print#1,Text1.TextClose#1 Close#1End Sub End SubC）Private Sub

14、Command1_Click（） D） Private Sub Command1_Click（）Open “out.txt” For Append As#1 Open “out.txt” For Random As#1Print#1,Text1.Text Print#1,Text1.TextClose#1 Close #1End Sub End Sub （27）为计算 1+3+5+99 的值，某人编程如下k=1s=0While k”ThenOpen CommonDialog1.FileName For Input As#1End IfEnd Sub下面关于这两种算法的叙述中正确的是（ ）A）

15、显示打开文件对话框后若未选择或 输入任何文件名，则算法 2 会出错，算法 1 不会B） 显示打开文件对话框后若未选择或 输入任何文件名，则算法 1 会出错，算法 2 不会C） 两种算法的执行结果完全一样D） 算法 1 允许输入的文件 名中含有空格，而算法 2 不允许 （30）窗体上有 1个名称为 List 的列表框，其中已经输入了若干个 项目（如图所示）：还有 2 个文本框，名称分别为Text1、Text2, 1 个名称为Comma nd1 的命令按钮，并有以下程序Private Sub Command1_Click（）Dim str As String, s As String, k As

16、Integers=Text1Str=”For k=List1.ListCount-1 to 0 Step-1If InStr（List.List （k）,s）0 then str=str&List.List（k）&” ”End IfNext kIf str=”ThenText2=”没有匹配的项目”ElseText2=strEnd IfEnd Sub程序运行时，在 Text1 中输入“京”，单击命令按钮，则在 Text2 中显示的内容是（ ）A） 京 B） 北京 南京C） 南京 D） 没有匹配的项目 （31）在窗体上画1 一个名称为 Command1 的命令按钮，并编写以下程序Private S

17、ub Command1_Click（）Print fun（“ABCDEFG”）End SubFunction fun（st As Strin g） As String stlen=Len（ st）temp=”For ktemp=temp=Mid(st,k,l)+Mid(st,stlen-k+1，1)Next kfun=tempEnd Function程序运行时，单击命令按钮，则窗体上显示的是（ ）A）ABCDEFG B）AGBFCE C ）GFEDC BA D）AGBFCED （32）在窗体上先后画 2 个图片框，名称分别为Picture1 和 banana,banana 中添加了香蕉图片（见

18、图 1），且将 banana.DragMode 属性设置为 1。要求程序运 行时，可以用鼠标把banana 拖拽到Picture1 中（见图 2）。能实现此功能的事件过程是（ ）A）Priate Sub Form_DragDrop（Source As Contr ol,X As Single,Y As Single banana.Move Picture1.Left+X,Picture1.Top+Y） End Sub B）Private Sub banana _DragDrop（Sourc e As Control,X As Single,Y As Single ）Source.Move Pi

19、cture1.Left+X.Picture1.Top+YEnd Sub C）Private Sub Picture1_DragDr op（Source As Control,X As Single,Y As Single ）Source.Move Picture1.Left+X.Picture1.Top+YEnd Sub D）Private Sub Picture1_DragDrop（Source As Control,X As Single,Y As Single ）banana.Move banana.Left+X, banana.Top+YEnd Sub （33）在窗体上画1 个名称为C

20、ommand1 的命令按钮，然后编写如下事件过程Option Base 1Pribate Sub Command1_Click（）Dim a（5.5 ） As IntegerFor i=1 To 5For j=1to5 a（i+j）*510Next j Next i s=0For i=1 To 5s=s+a（ i,i）Next iPrint sEnd Sub程序运行后，单击命令按钮，输出结果是（ ）A） 15 B）13 C）11 D）9 （34）在窗体上从左到右有 Text1、Text2两个文本框（见图），要求程序运行时，在Text1 中输入 1个分数后按回车键，则判断分数的合法性，若分数为

21、0100 中的1 个数，周围光标移到 Text2 中；否则光标不动，并弹出对话框显示“分数错”，下面程序中正确的是（ ）A）Private Sub Text1_KeyPress （KeyAscii AS Integer）If KeyAscii=13 Then 回车符的 ACSII 码是 13a=Val（Text1）If a=0 or a=0 And a100 ThenText2.SetFocusElseText1. SetFocus : MsgBox（“分数错”）End IfEnd IfEnd SubD） Private Sub Text1_KeyPress（KeyAscii AS Integ

22、er）If KeyAscii=13 Then 回车符的 ACSII 码是 13a=Val（Text1）If a=0 And a=100 ThenText2.SetFocusElseText1. SetFocus : MsgBox（“分数错”）End IfEnd IfEnd Sub（35）在窗体上画2 个命令按钮，名称分别为Command1、comma nd2，并编写如下程序Const n=5,m=4Dim a（m,n）Private Sub Command1_Click（）K=1For i=1 To mFor j=1 To na（i,j）=kk=k+1Next jNext iEnd SubPr

23、ivate Sub Command2_Click（）Summ=0For i=1 To mFor j=1 To nIf i=1 Or i=m ThenSumm=summ+a（i,j）ElseIf j=I Or j=n ThenSumm=summ+a（i,j）End IfEnd IfNext jNext iPrint summEnd Sub过程 Command1_Click（）的作用是二 维数组 a 中存放 1 个 m 行 n 列的矩阵；过程Command2_Click（）的作用是（ ）A） 计算矩阵外围一圈元素 的累加和B） 计算矩阵除外一圈以外的所有元素 的累加和C） 计算矩阵第1 列和最后一

24、列元素的 累加和D） 计算矩阵第1 行和最后一行元素的 累加和 二、填空题（每空 2 分，共 30 分）请将每一个空的正确答案写在答题纸上115序号的横线上，答在试卷上，答在试卷上不得分。注意：以命令关键字填空的必须写完整。 （1） 在深度为 7的满二叉树中，度为 2 的结点个数为_。 （2） 软件测试分为白箱（盒）测试和黑箱（盒）测试，等价类划分法属于_。 （3） 在数据库系统中，实现各种数据管理功能的核心软件称为_。 （4） 软件生命周期可分为多个阶段，一般分为定义阶段、开发阶段和维护阶段。编码和测试属于_阶段。 （5） 在结构化分析使用的数据流图（DFD）中，利用 对其中的图 形元素进行

25、确切解释。 （6） 下面程序的功能是从键盘输入 1 大于 100 的整数 m，计算并输出满足不等式1+22+32 +42 +.+n2m的最大的 n。请填空Private Sub Command1_Click（）Dim s ,m,n AS Integerm=Val（InputBox（“请输入一个大于 100的整数”）n= s=0Do While smn=n+1s=s+n*nLoopPrint “满足不等式的最大 n 是 n-1 End Sub （7）下面程序的功能是把文件 file11.txt 中重复字符去掉后（即若有多个字符相同，则只保留 1个）写入文件 file2.txt。请填空。Priva

26、te Sub Command1_Click（）Dim inchar AS String,temp AS String,outchar AS StringOutchar=” ”Open=”file1.txt” For Input AS #1Open=”file2.txt” For Output AS n=LOF（ ）inchar=Input$（n,1）For k=1 To ntemp=Mid（inchar,k,1）If InStr（outchar,temp）= Thenoutchar=outchar & tempEnd IfNext kprint #2, close #2close #1End

27、Sub（8）在窗体上先画 1 个名为Text1的文本框和平个名为 Label1的标签,再画 1 个名为 OP1 的有 4 个单选按钮数组,其 Index 属性按季度顺序为 03（见图 1）。在文件 sales.txt 中按月份顺序存有某企业某年 12 个月的销售额。要求在程序执行时，鼠标单击 1个单选按钮，则Text1 中显示相应季度的销售总额，并把相应的文字显示在标签上。图 2 是单击“第 3 季度”单选按钮产生的结果。请填空。Dim sales（12） As LongPrivate Sub Form_Load（）open “sales.txt” For Input AS #1For k=1

28、 To 12Input #1,sales（k）Next kClose #1End Sub Private Sub （Index , AS Integer）Dim sum AS Long ,k AS Ingeger,month AS Ingegersum=0month=Index* For k=1 To 3month=month+1sum=sum+sales（month）Next kLabel1.Caption=Opl（Index）. Caption & “销售总额： ”Text1=sumEnd Sub（9）某人编写如下函数来判断 a 是否为素数，若是，则函数返回True ；否则返回 FalseFunction Prime（a As Integer）AS BooleanDim k As Interger,isprime AS BooleanIf a2 Thenisprime=FalseElseisprime=Truek=2Do While ka/2 And isprimeIf a Mod k=0 Thenisprime=FalseELSEk=k+1End IFLOOPEnd If prime=isprimeEnd Function在测试时发现有 1 个非素数也被判断为素数，这个错判的数是 更多计算机考试信息，考试真题，模拟题：http:/ 大家论坛，大家学习的地方！