1、计算机等级考试二级 VB笔试真题及答案2005年4月等级考试二级VB真题一、选择题(1)(35)每小题2分，共70分)(1)数据的存储结构是指A) 存储在外存中的数据B) 数据所占的存储空间量C) 数据在计算机中的顺序存储方式 D) 数据的逻辑结构在计算机中的表示(2)下列关于栈的描述中错误的是A)栈是先进后出的线性表B) 栈只能顺序存储C) 栈具有记忆作用 D) 对栈的插入与删除操作中，不需要改变栈底指针(3)对于长度为n的线性表，在最坏情况下，下列各排序法所对应的比较次数中正确的是A) 冒泡排序为n/2 B) 冒泡排序为nC) 快速排序为n D) 快速排序为n(n-1)/2(4)对于长度为
2、n的线性表进行顺序查找，在最坏情况下所需要的比较次数为A) log2n B) n/2 C) n D) n+1(5)下列对于线性链表的描述中正确的是A)存储空间不一定是连续，且各元素的存储顺序是任意的B)存储空间不一定是连续，且前件元素一定存储在后件元素的前面C)存储空间必须连续，且前件元素一定存储在后件元素的前面D)存储空间必须连续，且各元素的存储顺序是任意的(6)下列对于软件测试的描述中正确的是A)软件测试的目的是证明程序是否正确B)软件测试的目的是使程序运行结果正确C)软件测试的目的是尽可能多地发现程序中的错误D)软件测试的目的是使程序符合结构化原则(7)为了使模块尽可能独立，要求A)模块
3、的内聚程度要尽量高，且各模块间的耦合程度要尽量强B)模块的内聚程度要尽量高，且各模块间的耦合程度要尽量弱C)模块的内聚程度要尽量低，且各模块间的耦合程度要尽量弱 D)模块的内聚程度要尽量低，且各模块间的耦合程度要尽量强(8)下列描述中正确的是A) 程序就是软件B) 软件开发不受计算机系统的限制C) 软件既是逻辑实体，又是物理实体D) 软件是程序、数据与相关文档的集合(9)数据独立性是数据库技术的重要特点之一。所谓数据独立性是指A) 数据与程序独立存放B) 不同的数据被存放在不同的文件中C) 不同的数据只能被对应的应用程序所使用D) 以上三种说法都不对(10) 用树形结构表示实体之间联系的模型是
4、A) 关系模型 B) 网状模型 C) 层次模型 D) 以上三个都是(11)在窗体（名称为Form1）上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写一个事件过程。程序运行以后，如果在文本框中输入一个字符，则把命令按钮的标题设置为“计算机等级考试”。以下能实现上述操作的事件过程是：A)Private Sub Text1_Change() Command1.Caption=”计算机等级考试” End SubB) Private Sub Command1_Click() Caption=”计算机等级考试” End SubC) Private Sub Form1_Cli
5、ck() Text1.Caption=”计算机等级考试” End SubD) Private Sub Command1_Click() Text1.Text=”计算机等级考试” End Sub(12)设a=5,b=4,c=3,d=2，下列表达式的值是32*b Or a=c And bc Or cdA) 1 B) True C) False D) 2(13)设a=”MicrosoftVisualBasic”, 则以下使变量b的值为”VisualBasic”的语句是A)b=Left(a,10)B)b=Mid(a,10) C)b=Right(a,10) D)b=Mid(a,11,10)(14)假定有
6、如下的窗体事件过程： Private Sub Form_Click()a$ = Microsoft Visual Basicb$ = Right(a$, 5)c = Mid(a$, 1, 9)MsgBox a$, 34, b$, c$, 5End Sub程序运行后单击窗体，则在弹出的信息框中的标题栏中显示的信息是：A)Microsoft VisualB)MicrosoftC)BasicD)5(15)设a=”a”,b=”b”,c=”c”,d=”d”,执行语句x=Iif(ad),”A”,”B”)后，x的值为：A)”a”B)”b”C)”B”D)”A”(16)为了使命令按钮(名称为Command1)右
7、移200，应使用的语句是A)Command1.Move -200B) Command1.Move 200C) Command1.Left= Command1.Left+200D) Command1.Left= Command1.Left-200(17)在窗体上画一个文本框，然后编写如下事件过程：Private Sub Form_Click()x = InputBox(请输入一个整数)Print x + Text1.TextEnd Sub程序运行时，在文本框中输入456，然后单击窗体，在输入对话框中输入123，单击“确定”按钮后，在窗体上显示的内容是：A)123B)456C)579D)12345
8、6（18）在窗体上画一个文本框和一个计时器控件，名称分别为Text1和Timer1,在属性窗口中把计时器的Interval属性设置为1000，Enabled属性设置为False,程序运行后，如果单击命令按钮，则每隔一秒钟在文本框中显示一次当前的时间。以下是实现上述操作的程序：Private Sub Command1_Click()Timer1._End SubPrivate Sub Timer1_Timer()Text1.Text = TimeEnd Sub在_处应填入的内容是A)Enabled=TrueB)Enabled=FalseC)Visible=TrueD)Visible=False(
9、19)假定在图片框Picture1中装入了一个图形，为了清除该图形（不删除图片框），应采用的正确方法是：A)选择图片框，然后按Del键B)执行语句Picture1.Picture=LoadPicture(“”)C)执行语句Picture1.Picture=”D)选择图片框，在属性窗口中选择Picture属性，然后按回车键(20)在窗体上画一个List1的列表框，一个名称为Label1的标签，列表框中显示若干个项目，当单击列表框中的某个项目时，在标签中显示被选中的项目的名称，下列能正确实现上述操作的程序是A) Private Sub List1_Click()Label1.Caption = L
10、ist1.ListIndexEnd SubB) Private Sub List1_Click()Label1.Name = List1.ListIndexEnd SubC) Private Sub List1_Click()Label1.Name = List1.TextEnd SubD) Private Sub List1_Click()Label1.Caption = List1.TextEnd Sub(21)在窗体上画一个命令按钮，名称为Command1，然后编写如下事件过程：Private Sub Command1_Click()Dim i As Integer, x As Inte
11、gerFor i = 1 To 6If i = 1 Then x = iIf i 0 And a 10 And a 20 And a c Thend = d + x(i)c = x(i)Elsed = d - cEnd IfNext iPrint dEnd Sub程序运行后,如果单击命令按钮,则在窗体上输入的内容为A)10B)16C)12D)20(32)设有如下程序:Private Sub Command1_Click()Dim c As Integer, d As Integerc = 4d = InputBox(请输入一个整数)Do While d 0If d c Thenc = c +
12、1End Ifd = InputBox(请输入一个整数)LoopPrint c + dEnd Sub程序运行后,单击命令按钮如果在输入对话框中依次输入1、2、3、4、5、6、7、8、9、0,则输出结果是:A)12B)11C)10D)9(33)在窗体上画一个名称为Command1的命令按钮和一个名称为Text1的文本框,在文本框中输入以下字符串:Microsoft Visual Basic Programming然后编写如下事件过程:Private Sub Command1_Click()Open d:tempoutf.txt For Output As #1For i = 1 To Len(T
13、ext1.Text)c = Mid(Text1.Text, i, 1)If c = A And c = Z ThenPrint #1, LCase(c)End IfNext iCloseEnd Sub程序运行后,单击命令按狃,文件outf.txt中的内容是:A)MVBPB)mvbpC)MVBPD)mvbp(34)在窗体上画一个名称为Command1的命令按钮,然后编写如下程序:Dim SW As BooleanFunction func(X As Integer) As IntegerIf X 20 ThenY = XElseY = 20 + XEnd Iffunc = YEnd Functi
14、onPrivate Sub Command1_Click()Dim intNum As IntegerintNum = InputBox()If SW ThenPrint func(intNum)End IfEnd SubPrivate Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)SW = FalseEnd SubPrivate Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Sin
15、gle)SW = TrueEnd Sub程序运行后,单击命令按钮,将显示一个输入对话框,如果在对话框中输入25,则程序的执行结果是:A)输出0B)输出25C)输出45D)无任何输出(35) 设有如下通用过程:Public Sub fun(a() As Integer, x As Integer)For i = 1 To 5x = x + a(i)NextEnd Sub在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮,然后编写如下事件过程:Private Sub Command1_Click()Dim arr(5) As Integer, n As IntegerFo
16、r i = 1 To 5arr(i) = i + iNextfun arr, nText1.Text = Str(n)End Sub程序运行后,单击命令按钮,则在文本框中显示的内容是A)30B)25C)20D)15二、填空题(每空2分，共30分)(1) 某二*树中度为2的结点有18个，则该二*树中有 【1】 个叶子结点。(2) 在面向对象方法中，类的实例称为 【2】 。(3) 诊断和改正程序中错误的工作通常称为 【3】 。(4) 在关系数据库中，把数据表示成二维表，每一个二维表称为 【4】 。(5) 问题处理方案的正确而完整的描述称为 【5】 。(6)以下语句的输出结果是: 【6】Print
17、Int(12345.6789*100+0.5)/100(7)在窗体上画一个文本框和一个图片框,然后编写如下两个事件过程:Private Sub Form_Click()Text1.Text = VB程序设计End SubPrivate Sub Text1_Change()Picture1.Print VBProgrammingEnd Sub程序运行后,单击窗体,在文本框中显示的内容是【7】,而在图片框中显示的内容是【8】(8)阅读下面的程序Private Sub Form_Click()Dim Check As Boolean, Counter As IntegerCheck = TrueCo
18、unter = 5DoDo While Counter 0Print sEnd Sub以上程序的功能是【10】,程序运行后,单击窗体,输出结果为【11】(10)设有如下程序:Option Base 1Private Sub Command1_Click()Dim arr1Dim Min As Integer, i As Integerarr1 = Array(12, 435, 76, -24, 78, 54, 866, 43)Min = 【12】For i = 2 To 8If arr1(i) Min Then 【13】Next iPrint 最小值是:; MinEnd Sub以上程序的功能是
19、用Array函数建立一个含有8个元素的数组,然后查找并输出该数组中的最小值,请填空(11)在名称为Form1 的窗体上画一个文本框,其名称为Text1,在属性窗口中把文本框的MultiLine属性设置为True,然后编写如下事件过程:Private Sub Form_Click()Open d:testsmtext1.txt For Input As #1Do While Not 【14】Line Input #1, aspect$whole$ = whole$ + aspect$ + Chr(13) + Chr(10)LoopText1.Text = whole$Close #1Open d:testsmtext2.txt For Output As #1Print #1, 【15】Close #1End Sub上述程序的功能是,把磁盘文件smtext1.txt 的内容读到内存并在文本框中显示出来,然后把该文本框中的内容存入磁盘文件smtext2.txt .请填空选择题：1-5DBDCA 6-10CBD
