2005-2010历年全国计算机等级考试二级-笔试真题及答案

1、2005 年 4 月等级二级 VB(时间 90 分钟，满分 100 分）一、选择题(1)(35)每小题 2 分，共 70 分)下列各题 A)、B)、C)、D)四个选项中，只有一个选项是正确的，请将正确选项涂写在答题卡相应位置上，答在试卷上不得分。(1)数据的结构是指A)在外存中的数据B) 数据所占的空间量C) 数据在计算机中的顺序方式D) 数据的逻辑结构在计算机中的表示(2)下列关于栈的描述中错误的是A)栈是先进后出的线性表B) 栈只能顺序D) 对栈的C) 栈具有栈底指针作用与删除操作中，不需要改变(3)对于长度为 n 的线性表，在情况下，下列各排序法所对应的比较次数中正确的是A) 冒泡排序为

2、 n/2C) 快速排序为 nB) 冒泡排序为 nD) 快速排序为 n(n-1)/2(4)对于长度为 n 的线性表进行顺序查找，在情况下所需要的比较次数为A) log2nB) n/2C) nD) n+1(5)下列对于线性链表的描述中正确的是A)B)C)D)空间不一定是连续，且各元素的顺序是任意的空间不一定是连续，且前件元素一定在后件元素的前面空间必须连续，且前件元素一定空间必须连续，且各元素的在后件元素的前面顺序是任意的(6)下列对于测试的描述中正确的是A)B)C)D)测试的目的是证明程序是否正确 测试的目的是使程序运行结果正确测试的目的是尽可能多地发现程序中的错误测试的目的是使程序符合结构化原

3、则(7)为了使模块尽可能独立，要求A)模块的内聚程度要尽量高，且各模块间的耦合程度要尽量强 B)模块的内聚程度要尽量高，且各模块间的耦合程度要尽量弱模块的内聚程度要尽量低，且各模块间的耦合程度要尽量弱模块的内聚程度要尽量低，且各模块间的耦合程度要尽量强(8)下列描述中正确的是A)B)C)D)程序就是开发不受计算机系统的限制 既是逻辑实体，又是物理实体是程序、数据与相关文档的集合(9)数据独立性是数据库技术的重要特点之一。所谓数据独立性是指A)B)C)D)数据与程序独立存放不同的数据被存放在不同的文件中不同的数据只能被对应的应用程序所使用以上三种说法都不对(10) 用树形结构表示实体之间联系的模

4、型是A) 关系模型B) 网状模型C) 层次模型D) 以上三个都是11、在窗体（名称为 Form1）上画一个名称为 Text1 的文本框和一个名称为d1令按钮，然后编写一个事件过程。程序运行以后，如果在文本框中输入一个字符，则把命令按钮的标题设置为“计算机等级A)Private Sub Text1_Change()d1.Caption=”计算机等级End Sub”。以下能实现上述操作的事件过程是：”B)Private Subd1_Click()Caption=”计算机等级”End SubPrivate Sub Form1_Click()Text1.Caption=”计算机等级End SubC)”

5、D)Private Subd1_Click()Text1.Text=”计算机等级End Sub”(12)设 a=5,b=4,c=3,d=2，下列表达式的值是 32*b Or a=c And bc Or cdA) 1B)TrueC) FalseD) 2(13)设 a=”VisualBasic”, 则以下使变量b 的值为”VisualBasic”的语句是A)b=Left(a,10)B)b=Mid(a,10)C)b=Right(a,10)D)b=Mid(a,11,10)(14)假定有如下的窗体事件过程：Private Sub Form_Click()a$ = b$ = Right(a$, c = M

6、id(a$, 1, MsgBox a$, 34,End SubVisual Basic 5)9)b$, c$, 5程序运行后单击窗体，则在弹出的信息框中的标题栏中显示的信息是：A)VisualB)C)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)为了使命令按钮(名称为d1)右移 200，应使用的语句是d1.Move 200A)C)d1.Move -200d1.Left=B)d1.Left+200D)d1.Left=d1.Left-200(17)在窗体上画一个

7、文本框，然后编写如下事件过程：Private Sub Form_Click()x = PrEndInputBox(请输入一个整数) x + Text1.TextSub程序运行时，在文本框中输入 456，然后单击窗体，在输入定”按钮后，在窗体上显示的内容是：框中输入 123，单击“确A)123B)456C)579D)123456（18）在窗体上画一个文本框和一个计时器控件，名称分别为 Text1 和 Timer1,在属性窗口中把计时器的erval 属性设置为 1000，Enabled 属性设置为 False,程序运行后，如果单击命令按钮，则每隔一秒钟在文本框中显示一次当前的时间。以下是实现上述操

8、作的程序：Private Sub Timer1.End Subd1_Click()Private Sub Timer1_Timer() Text1.Text = TimeEnd Sub在处应填入的内容是A)Enabled=TrueB)Enabled=FalseC)Visible=TrueD)Visible=False(19)假定在框 Picture1 中装入了一个图形，为了清除该图形（不删除框），应采用的正确方法是：A)选择框，然后按 Del 键B)执行语句 Picture1.Picture=Loicture(“”)C)执行语句 Picture1.Picture=”性，然后按回车键D)选择框，

9、在属性窗口中选择 Picture 属（20）在窗体上画一个 List1 的列表框，一个名称为 Label1 的，列表框中显示若干个项目，当单击列表框中的某个项目时，在实现上述操作的程序是中显示被选中的项目的名称，下列能正确A)B)C)D)Private Private PrivatePrivateSub Sub SubSubList1_Click() List1_Click() List1_Click()List1_Click()Label1.Caption = List1.ListIndexEnd Sub Label1.Name = List1.ListIndexEnd SubLabel1.

10、Name = List1.TextEnd SubLabel1.Caption = List1.TextEnd Sub（21）在窗体上画一个命令按钮，名称为d1，然后编写如下事件过程：Private Subd1_Click()Dim i Aseger, x As For i = 1 To 6If i = 1 Then x = i If i 0 And a 10 And a 20 And a c Then d = d + x(i)c = x(i)Elsed = d - c End If Next iPrdEnd Sub程序运行后,如果单击命令按钮,则在窗体上输入的内容为A)10 B)16 C)12

11、D)20(32)设有如下程序:Private Subd1_Click()Dim c Asc = 4eger, d Asegerd = InputBox(请输入一个整数) Do While d 0If d c Then c = c + 1 End Ifd = InputBox(请输入一个整数)LoopPrc + dEnd Sub程序运行后,单击命令按钮如果在输入0,则输出结果是: A)12B)11 C)10D)9框中依次输入 1、2、3、4、5、6、7、8、9、(33)在窗体上画一个名称为框中输入以下字符串:Visual Basic Programming然后编写如下事件过程:d1令按钮和一个名

12、称为Text1 的文本框,在文本Private Subd1_Click()Open d:tempoutf.txt For Output As #1 For i = 1 To Len(Text1.Text)c = Mid(Text1.Text, i, 1)If c = A And c = Z ThenPr#1, LCase(c)End If Next i Close End Sub程序运行后,单击命令按狃,文件 outf.txt 中的内容是:MVBPmvbp C)MV B PD)mvb p(34)在窗体上画一个名称为Dim SW AsFunction func(X Aseger) As If X

13、 20 ThenY = XElseY = 20 + XEnd If func = YEnd Functiond1令按钮,然后编写如下程序:egerPrivate Subd1_Click()egerDimNum AsNum = InputBox()If SW ThenPrfunc(Num)End If End SubPrivate Sub Form_MouseDown(Button As Single)SW = False End SubPrivate Sub Form_MouseUp(Button As SW = TrueEnd Subeger, Shift Aseger, X As Sing

14、le, Y Aseger, Shift Aseger, X As Single, Y As Single)程序运行后,单击命令按钮,将显示一个输入行结果是:输出 0输出 25输出 45无任何输出(35) 设有如下通用过程:框,如果在框中输入 25,则程序的执Public Sub fun(a() As For i = 1 To 5x = x + a(i) NextEnd Subeger, x Aseger)在窗体上画一个名称为 Text1 的文本框和一个名称为如下事件过程:d1令按钮,然后编写Private SubDim arr(5) Asd1_Click()eger, n AsegerFor

15、i = 1 To 5 arr(i) = i + i Nextfun arr, n Text1.Text = Str(n)End Sub程序运行后,单击命令按钮,则在文本框中显示的内容是A)30 B)25 C)20 D)15二、填空题(每空 2 分，共 30 分)请将每一个空的正确写在答题卡【1】【15】序号的横线上，答在试卷上不得分。注意：以命令关键字填空的必须拼写完整。(1)(2)某二*树中度为 2 的结点有 18 个，则该二*树中有 【1】 个叶子结点。在面象方法中，类的实例称为 【2】 。(3)和改正程序中错误的工作通常称为 【3】 。(4)在关系数据库中，把数据表示成二维表，每一个二维

16、表称为 【4】 。(5)问题处理方案的正确而完整的描述称为 【5】 。(6)以下语句的输出结果是: 【6】Pr(12345.6789*100+0.5)/100(7)在窗体上画一个文本框和一个 Private Sub Form_Click() Text1.Text = VB 程序设计End SubPrivate Sub Text1_Change()框,然后编写如下两个事件过程:Picture1.PrEnd SubVBProgramming程序运行后,单击窗体,在文本框中显示的内容是【7】,而在(8)阅读下面的程序 Private Sub Form_Click()框中显示的内容是【8】Dim Ch

17、eck As Check = True Counter = 5 DoDo While Counter 0PrsEnd Sub以上程序的功能是【10】,程序运行后,单击窗体,输出结果为【11】(10)设有如下程序: Option Base 1Private SubDim arr1 Dim Min Asd1_Click()eger, i Asegerarr1 = Array(12, 435, 76, -24, 78, 54, 866, 43)Min = 【12】For i = 2 To 8If arr1(i) MNext ihen 【13】Pr最小值是:; MinEnd Sub以上程序的功能是用

18、Array 函数建立一个含有 8 个元素的数组,然后查找并输出该数组中的最小值,请填空(11)在名称为 Form1 的窗体上画一个文本框,其名称为 Text1,在属性窗口中把文本框的 MultiLine 属性设置为 True,然后编写如下事件过程:Private Sub Form_Click()Open d:testsmtext1.txt For Input As #1 Do While Not 【14】Line Input #1, aspect$whole$ = whole$ + aspect$ + Chr(13) + Chr(10) LoopText1.Text = whole$Close

19、 #1Open d:testsmtext2.txt For Output As #1Pr#1, 【15】Close #1 End Sub上述程序的功能是,把磁盘文件 smtext1.txt 的内容读到内存并在文本框中显示出来,然后把该文本框中的内容存入磁盘文件 smtext2.txt .请填空以下选择题：1-5DBDCA参考6-1011-1516-2021-2526-3031-35CBDDC ABBCD CDABD ABCDB CDBBACDDDA填空题：【1】19【2】【3】【4】【5】对象程序调试关系算法【6】12345.68【7】VB 程序设计【8】 VB Programming【9】

20、10【10】 求 1-8 的和【11】36【12】 arr1(1)【13】min=arr1(i)【14】 EOF(1)【15】text1.text(或 whole$)2005 年 9 月二级 VB 试题+一、 选择题（每小题 2 分，共 70 分）下列各题A）、B)、C)、D)四个选项中，只有一个选项是正确的。请将正确选项填涂在答题卡相应位置上，答在试卷上不得分。（1）下列叙述中正确的是A程序设计就是编制程序B程序的测试必须由程序员自己去完成C程序经调试改错后还应进行再测试D程序经调试改错后不必进行再测试（2）下列数据结构中，能用二分法进行查找的是A顺序的有序线性表B线性链表C二叉链表D有序线

21、性链表（3）下列关于栈的描述正确的是A在栈中只能元素而不能删除元素B在栈中只能删除元素而不能元素C栈是特殊的线性表，只能在一端或删除元素D栈是特殊的线性表，只能在一端元素，而在另一端删除元素（4）下列叙述中正确的是A一个逻辑数据结构只能有一种结构B数据的逻辑结构属于线性结构，结构属于非线性结构C一个逻辑数据结构可以有多种结构，且各种结构不影响数据处理的效率D一个逻辑数据结构可以有多种结构，且各种结构影响数据处理的效率（5）下列描述中正确的是A工程只是解决项目的管理问题B工程主要解决产品的生产率问题C工程的主要是强调在开发过程中需要应用工程化原则D工程只是解决开发中的技术问题（6）在设计中，不属

22、于过程设计工具的是APDL(过程设计语言)BPAD 图CN-S 图DDFD 图（7）下列叙述中正确的是A交付使用后还需要进行B一旦交付使用就不需要再进行C交付使用后其生命周期就结束D是指修复程序中被破坏的指令（8）数据库设计的根本目标是要解决A数据共享问题B数据安全问题C大量数据问题D简化数据（9）设有如下关系表:R S TA B C A B C A B C1 1 2 33 1 3则下列操作中正确的是ATRSBTRSCTRSDTR/S（10）数据库系统的是A数据模型B数据库管理系统C数据库D数据库管理员（11）假定一个 Visual Basic 应用程序由一个窗体模块和一个标准模块。为了保存该

23、应用程序，以下正确的操作是A只保存窗体模块文件B分别保存窗体模块、标准模块和工程文件C只保存窗体模块和标准模块文件D只保存工程文件（12）为了清除窗体上的一个控件，下列正确的操作是A按回车键B按 Esc 键C选择（单击）要清除的控件，然后按 Del 键D选择（单击）要清除的控件，然后按回车键（13）以下叙述中错误的是A打开一个工程文件时，系统自动装入与该工程有关的窗体、标准模块等文件B当程序运行时，双击一个窗体，则触发该窗体的 DblClick 事件CVisual Basic 应用程序只能以解释方式执行D事件可以由用户，也可以由系统（14）设a=2, b=3, c=4, d=5, 下列表达式的

24、值是Not a=c Or 4*c=b2 And ba+cA-1B1CTrueDFalse（15）设a = 5，b = 10，则执行c =(b - a) * Rnd + a) + 1后，c 值的范围为A510B69C610D59（16）在窗体上画一个命令按钮，名称为d1，然后编写如下事件过程：Private Subd1_Click()a$ = software and hardwareb$ = Right(a$, 8)c$ = Mid(a$, 1, 8)MsgBox a$, , b$, c$, 1End Sub运行程序，单击命令按钮，则在弹出的信息框的标题栏中显示的是Asoftware and

25、hardwareBsoftwareChardwareD1（17）在窗体上画一个命令按钮和一个文本框，其名称分别为d1 和Text1，把文本框的 Text 属性设置为空白，然后编写如下事件过程：Private Subd1_Click()a = InputBox(Enter aneger)b = InputBox(Enter aneger)Text1.Text = b + aEnd Sub程序运行后，单击命令按钮，如果在输入框中分别输入 8 和 10，则文本框中显示的内容是A108B18C810D出错（18）在窗体上画两个文本框，其名称分别为 Text1 和 Text2，然后编写如下程序：Priv

26、ate Sub Form_Load()ShowText1.Text = Text2.Text = Text1.SetFocusEnd SubPrivate Sub Text1_Change()Text2.Text = Mid(Text1.Text, 8)End Sub程序运行后，如果在文本框 Text1 中输入 BeijingChina，则在文本框 Text2 中显示的内容是ABeijingChinaBChinaCBeijingDBeijingC（19）在窗体上画一个列表框和一个命令按钮，其名称分别为 List1 和d1，然后编写如下事件过程：Private Sub Form_Load()Li

27、st1.AddItem Item 1List1.AddItem Item 2List1.AddItem Item 3End SubPrivate Subd1_Click()List1.List(List1.ListCount) = AAAAEnd Sub程序运行后，单击命令按钮，其结果为A把字符串“AAAA”添加到列表框中，但位置不能确定B把字符串“AAAA”添加到列表框的最后（即“Item 3”的后面）C把列表框中原有的最后一项改为“AAAA”D把字符串“AAAA”到列表框的最前面（即“Item 1”的前面）（20）假定有如下事件过程：Private Sub Form_Click()Dim

28、x Aseger, n Asegerx = 1n = 0Do While x 28x = x * 3n = n + 1LoopPrx, nEnd Sub程序运行后，单击窗体，输出结果是A81 4B56 3C28 1D243 5（21）有如下程序：Private Sub Form_Click()Dim Check, CounterCheck = TrueCounter = 0DoDo While Counter 20Counter = Counter + 1If Counter = 10 ThenCheck = FalseExit DoEnd IfLoopLoop Until Check = F

29、alsePrCounter, CheckEnd Sub程序运行后，单击窗体，输出结果为A15 0B20 -1C10 TrueD10 False（22）有如下程序：Private Sub Form_Click()Dim i Aseger, sum Asegersum = 0For i = 2 To 10If i Mod 2 0 And i Mod 3 = 0 Thensum = sum + iEnd IfNext iPrsumEnd Sub程序运行后，单击窗体，输出结果为A12B30C24D18（23）在窗体上画一个名称为 Text1 的文本框和一个名称为d1令按钮，然后编写如下事件过程：Pri

30、vate Subd1_Click()Dim array1(10, 10) AsegerDim i Aseger, j AsegerFor i = 1 To 3For j = 2 To 4array1(i, j) = i + jNext jNext iText1.Text = array1(2, 3) + array1(3, 4)End Sub程序运行后，单击命令按钮，在文本框中显示的值是A12B13C14D15（24）在窗体上画一个命令按钮，其名称为d1，然后编写如下事件过程：Private Subd1_Click()Dim a1(4, 4), a2(4, 4)For i = 1 To 4Fo

31、r j = 1 To 4a1(i, j) = i + ja2(i, j) = a1(i, j) + i + jNext jNext iPra1(3, 3); a2(3, 3)End Sub程序运行后，单击命令按钮，在窗体上输出的是A6 6B10 5C7 21D6 12（25）有如下程序：Option Base 1Private Sub Form_Click()Dim arr, SumSum = 0arr = Array(1, 3, 5, 7, 9, 11, 13, 15, 17, 19)For i = 1 To 10If arr(i) / 3 = arr(i) 3 ThenSum = Sum

32、+ arr(i)End IfNext iPrSumEnd Sub程序运行后，单击窗体，输出结果为A25B26C27D28（26）在窗体上画一个命令按钮，然后编写如下事件过程：Private Subd1_Click()Dim a(5) As StringFor i = 1 To 5a(i) = Chr(Asc(A) + (i - 1)Next iFor Each b In aPrb;NextEnd Sub程序运行后，单击命令按钮，输出结果是AABCDEB1 2 3 4 5CabcdeD出错信息（27）以下关于函数过程的叙述中，正确的是A如果不指明函数过程参数的类型，则该参数没有数据类型B函数过程

33、的返回值可以有多个C当数组作为函数过程的参数时，既能以传值方式传递，也能以方式传递D函数过程形参的类型与函数返回值的类型没有关系（28）函数过程 F1 的功能是：如果参数 b 为奇数，则返回值为 1，否则返回值为 0。以下能正确实现上述功能的代码是AFunction F1(b Aseger)If b Mod 2 = 0 ThenReturn 0ElseReturn 1End IfEnd FunctionBFunction F1(b Aseger)If b Mod 2 = 0 ThenF1 = 0ElseF1 = 1End IfEnd FunctionCFunction F1(b Aseger)

34、If b Mod 2 = 0 ThenF1 = 1ElseF1 = 0End IfEnd FunctionDFunction F1(b Aseger)If b Mod 2 0 ThenReturn 0ElseReturn 1End IfEnd Function（29）以下关于 KeyPress 事件过程中参数 KeyAscii 的叙述中正确的是AKeyAscii 参数是所按键的 ASCII 码BKeyAscii 参数的数据类型为字符串CKeyAscii 参数可以省略DKeyAscii 参数是所按键上标注的字符（30）设窗体上有一个名为 Text1 的文本框，并编写如下程序：Private Su

35、b Form_Load()ShowText1.Text = Text1.SetFocusEnd SubPrivate Sub Form_MouseUp(Button Aseger, _Shift Aseger, X As Single, Y As Single)Pr程序设计End SubPrivate Sub Text1_KeyDown(KeyCode Aseger, Shift Aseger)PrVisual Basic;End Sub程序运行后，如果在文本框中输入字母“a”，然后单击窗体，则在窗体上显示的内容是AVisual BasicB程序设计CVisual Basic 程序设计Da 程

36、序设计（31）假定有下表所列的菜单结构：标题 名称 层次显示 appear 1（主菜单）大图标 bigicon 2（子菜单）小图标 smallicon 2（子菜单）要求程序运行后，如果单击菜单项“大图标”，则在该菜单项前添加一个“”。以下正确的事件过程是APrivate Sub bigicon_Click()bigicon.Checked = FalseEnd SubBPrivate Sub bigicon_Click()Me. appear.bigicon.Checked = TrueEnd SubCPrivate Sub bigicon_Click()bigicon.Checked = T

37、rueEnd SubDPrivate Sub bigicon_Click()appear.bigicon.Checked = TrueEnd Sub（32）假定通用框的名称为 CommonDialog1，命令按钮的名称为d1，则单击命令按钮后，能使打开的框的标题为“New Title”的事件过程是APrivate Subd1_Click()CommonDialog1.DialogTitle = New TitleCommonDialog1.ShowPrerEnd SubBPrivate Subd1_Click()CommonDialog1.DialogTitle = New TitleComm

38、onDialog1.ShowFontEnd SubCPrivate Subd1_Click()CommonDialog1.DialogTitle = New TitleCommonDialog1.ShowOpenEnd SubDPrivate Subd1_Click()CommonDialog1.DialogTitle = New TitleCommonDialog1.ShowColorEnd Sub（33）如果一个工程含有多个窗体及标准模块，则以下叙述中错误的是A任何时刻最多只有一个窗体是活动窗体B不能把标准模块设置为启动模块C用 Hide 方法只是隐藏一个窗体，不能从内存中清除该窗体D如果

39、工程中含有Sub Main 过程，则程序一定首先执行该过程（34）假定在工程文件中有一个标准模块，其中定义了如下类型Type BooksName As String * 10Num As String * 20End Type要求当执行事件过程d1_Click 时，在顺序文件.txt 中写入一条。下列能够完成该操作的事件过程是APrivate Subd1_Click()Dim B As BooksOpen c:.txt For Output As #1B.Name = InputBox(输入)B.Num = InputBox(输入号码)Write #1, B.Name, B.NumClose

40、#1End SubBPrivate Subd1_Click()Dim B As BooksOpen c:.txt For Input As #1B.Name = InputBox(输入)B.Num = InputBox(输入号码)Pr#1, B.Name, B.NumClose #1End SubCPrivate Subd1_Click()Dim B As BooksOpen c:.txt For Output As #1Name = InputBox(输入)Num = InputBox(输入号码)Write #1, BClose #1End SubDPrivate Subd1_Click()

41、Dim B As BookOpen c:.txt For Input As #1Name = InputBox(输入)Num = InputBox(输入号码)Pr#1, B.Name, B.NumClose #1End Sub（35）目录列表框的 Path 属性的作用是A显示当前驱动器或指定驱动器上的某目录下的文件名B显示当前驱动器或指定驱动器上的目录结构C显示根目录下的文件名D显示指定路径下的文件二、填空题（每空 2 分，共 30 分）请将每空的正确写在答题卡【1】【15】序号的横线上，答在试卷上不得分。（1）数据管理技术发展过程经过人工管理、文件系统和数据库系统三个阶段，其中数据独立性最高

42、的阶段是 【1】 。（2）算法复杂度主要包括时间复杂度和 【2】 复杂度。（3）在进行模块测试时，要为每个被测试的模块另外设计两类模块：驱动模块和承接模块（桩模块）。其中 【3】 的作用是将测试数据传送给被测试的模块，并显示被测试模块所产生的结果。（4）一棵二叉树第六层（根结点为第一层）的结点数最多为 【4】 个。（5）数据结构分为逻辑结构和结构，循环队列属于 【5】 结构。（6）设有以下函数过程：Function fun(m Aseger) AsegerDim k Aseger, sum Asegersum = 0For k = m To 1 Step -2sum = sum + kNext

43、 kfun = sumEnd Function若在程序中用语句 s = fun(10) 调用此函数，则 s 的值为 【6】 。（7）在窗体上画一个命令按钮和一个文本框，然后编写命令按钮的 Click 事件过程。程序运行后，在文本框中输入一串英文字母（不区分大小写），单击命令按钮，程序可找出未在文本框中输入的其他所有英文字母，并以大写方式降序显示到 Text1 中。例如，若在 Text1中输入的是 abDfdb ， 则单击 d1按钮 后Text1中显示 的字符串 是ZYXWVUTSRQPONMLKJIHGEC。请填空。Private Subd1_Click( )Dim str As String

44、, s As String, c As Stringstr = UCase(Text1)s = c = ZWhile c = AIf InStr(str, c) = 0 Thens = 【7】End Ifc = Chr$(Asc(c) 【8】)WendIf s ThenText1 = sEnd IfEnd Sub（8） 在 n 个运动员中选出任意 r 个人参加比赛，有很多种不同的选法，选法的个数可以用公式 计算。下图窗体中 3 个文本框的名称依次是 Text1、Text2、Text3。程序运行时在 Text1、Text2 中分别输入 n 和 r 的值，单击d1 按钮即可求出选法的个数，并显示在

45、 Text3 文本框中(见下图)。请填空。Private Subd1_Click( )Dim r Aseger, n Asegern = Text1r = Text2Text3 = fun(n) / fun(【9】 ) / fun(r)End SubFunction fun(n Aseger) as longDim t As Long【10】For k = 1 To nt = t * kNextfun = tEnd Function（9）以下是一个比赛评分程序。在窗体上建立一个名为 Text1 的文本框数组，然后画一个名为 Text2 的文本框和名为d1令按钮。运行时在文本框数组中输入7 个分

46、数，单击“计算得分”命令按钮，则最后得分显示在 Text2 文本框中（去掉一个最高分和一个最低分后的平均分即为最后得分），。请填空。Private Subd1_Click( )Dim k AsegerDim sum As Single, max As Single, min As Singlesum = Text1(0)max = Text1(0)min = 【11】For k = 【12】 To 6If max Text1(k) Thenmin = Text1(k)End Ifsum = sum + Text1(k)Next kText2 = (【13】 ) / 5（10），在列表框 Lis

47、t1 中已经有若干人的简单信息，运行时在 Text1 文本框（即“查找对象”右边的文本框）输入一个姓或，单击“查找”按钮，则在列表框中进行查找，若找到，则把该人的信息显示在 Text2 文本框中。若有多个匹配的列表项，则只显示第 1 个匹配项；若未找到，则在 Text2 中显示“查无此人”。请填空。Private Subd1_Click()Dim k Aseger, n Aseger, found Asfound = Falsen = Len(【14】 )k = 0While k List1.ListCount And Not foundIf Text1 = Left$(List1.List(

48、k), n) ThenText2 = 【15】found = TrueEnd Ifk = k + 1WendIf Not found ThenText2 = 查无此人End IfEnd Sub 2005 年 9 月计算机等级二级 VB 笔试试卷（含参考）参考选择题【 1- 5】 CACDC 【 6-10】 DAABB【11-15】BCCDC 【16-20】 CABBA【21-25】DAADC 【26-30】 ADBAC【31-35】CCDAB填空题【1】数据库系统 【2】空间 【3】驱动模块【4】32 【5】结构 【6】30【7】s&c 【8】-1 【9】n-r【10】t=1 【11】text

49、1(0) 【12】1【13】（sum-max-min） 【14】text1.text 【15】list1.list(k)2006 年 4 月计算机二级 VB 笔试参考，均上机测试通过1-5 DADBA6-10DCDAC11-15 DCCDB16-20 DBDAA21-25 BCBAD26-30 BDCDA31-35 BBCCB填空题1 ，452，类34关系静态测试5物理独立性7 Maxarr(i)9-510511 ABCD12 DialogTitle13 Keyascii14 END15 Text1.text2006年9月二级VisualBasic程序设计笔试试卷及一、单项选择(1) 下列选项

50、中不符合良好程序设计风格的是 。A) )源程序要文档化 B)数据说明的次序要规范化C) )避免goto 语句 D)模块设计要保证高耦合、高内聚(2)从工程管理角度，设计一般分为两步完成，它们是 。A) )概要设计与详细设计B)数据设计与接口设计C) )结构设计与数据设计D)过程设计与数据设计(3)下列选项中不属于生命周期开发阶段任务的是 。A) )测试B)概要设计C)D)详细设计(4)在数据库系统中，用户所见的数据模式为 。A) )概念模式B)外模式C)内模式D)物理模式(5)数据库设计的四个阶段是：需求分析、概念设计、逻辑设计和 。A) )编码设计B)测试阶段 C)运行阶段D)物理设计设有如

51、下三个关系表：下列操作中正确的是 。下列叙述中正确的是 。)一个算法的空间复杂度大，则其空间复杂度也必定大)一个算法的空间复杂度大，则其时间复杂度必定小)一个算法的时间复杂度大，则其空间复杂度必定小)上述三种说法都不对(8)在长度为 64 的有序线性表中进行顺序查找，情况下需要比较的次数为 。A) ) 63B) 64C) 6D) 7(9)数据库技术的根本目标是要解决数据的 。A) )问题B)共享问题C)安全问题D)保护问题(10)对下列二叉树：进行中序遍历的结果是 。A) ) ACBDFEG B) ACBDFGEC) ABDCGEFD) FCADBEG(11)以下叙述中正确的是 。)窗体的 N

52、ame 属性指定窗体的名称，用来标识一个窗体)窗体的 Name 属性值是显示在窗体标题栏中文本)可以在运行期间改变窗体的 Name 属性的值)窗体的 Name 属性值可以为空(12)以下叙述中错误的是 。)打开一个工程文件时，系统自动装入与该工程有关的窗体文件)保存 Visual Basic 程序时，应分别保存窗体文件及工程文件) Visual Basic 应用程序只能以解释方式执行)窗体文件包含该窗体及其控件的属性(13)设 a=2,b=3,c=4, 下列表达式的值是 。Not a = c Or 4*c = b2 And b a+cA) ) -1B) 1C) TrueD) False(14)

53、没有如下的用户定义类型： Type Studentnumber As Stringname As StringA) ge AS End Type则以下正确eger该类型成员的代码是 。A) ) Student. name= “”B) Dim s As StudentD) Dim s As TypeC) ) Dim s As Type StudentS.name= “” = “15)设 a=5,b=6,c=7,d=8 ，执行下列语句后， X 的值为 。X=IIf(ab)And(cd),10,20)A) 10B) 20C) TrueD) False(16)执行以下程序段后，变量 c$ 的值为 。$

54、= “ Visual Bassic Programming ”$= “ Quick ”e$=b$&U Case(Mid$(a$,7,6)&Right$(a$,12)A) ) Visual Basic ProgrammingB) Quick Basic programmingC) ) Quick Basic ProgrammingD) Quick Basic Programming(17) 在窗体上画一个文本框（其名称为 Textl)和一个程序运行后，如果在文本框中输入指定的信息，则立即在（其名称为 Labell)，中显示相同的内容，以下可以实现上述操作的事件过程是 。A) ) Private

55、Sub Textl_Click()B)Private Sub Text1_Change()Labell.Caption=Textl.Text Labell.Caption=Textl.TextEnd SubEnd SubC) ) Private Sub Labell_Ctrange()D) Private Sub Labell_Click()Labell. Caption=Textl.Text Labell.Caption=Textl.TextEnd SubEnd Sub(18) 在窗体上面画一个命令按钮和一个Labell ，然后编写如下事件过程：dl 和， 其名称分别为Private Sub

56、 Counter=0For i=1 To 4dl_Click()For j=6 To 1 Step -2 Counter=Counter+1Nextj NextiLabell.Caption=Str(Counter)End Sub程序运行后，单击命令按钮，中显示的内容是A) ) 11B) 12C) 16D) 20(19)在窗体上画一个名称为 Text1钮，然后编写如下事件过程：的文本框和一个名称为dl令按PrivateDim i Asdl_Click()eger, n AsegerFori=0 To 50i = i+3 n = n+1If i10Then Exit For NextTextl.

57、Text=Str(n)End Sub程序运行后，单击命命令按钮，在文本框中显示的值是 。A) ) 5 B) 4 C) 3 D) 2(20)在窗体上画一个命令按钮和两个和dlLabell，真名和分别为、Labe12，然后编写 A)&123B)123C)123D)123如下事件 过程：246345258456Private Subdl369456369789_Chick.A) =0For i=1 To 10a=a+1 b=0Forj=1 To 10 a=a+1b=b+2 NextjNext iLabell. Caption=Str(a) Labe12.Caption=Str(b)End Sub程序

58、运行后，单击命令按钮，在Labell 和 Labe12 中显示的内容分别为 。A) ) 10 和 20 B) 20 和 110 C) 200 和 110 D) 110 和 20(21)在窗体上画一个名称为 Listl 的列表框，一个名称为 Labell 的，列表框中显示若干城市的名称。当单击列表框中的某个城市名时，该城市名从列表框中，并在中显示出来。下列能正确实现上述操作的程序是 。A) ) Privale Sub Listl_Click()B) Private Sub Listl_Click()Labell. Caption=Listl. ListIndexLabell.Name=Listl

59、. ListIndexListl. Removeltem Listl.TextListl.RemoveItem Listl.Text End Sub End SubC) ) Private Sub Listl_Click()D) Private Sub Listl_Click() Labell. Caption=Listl.TextLabell. Name=Listl. TextListl. RemovItem Listl. ListIndex Listl. RemoveItem Listl. ListIndexEnd Sub End Sub(22) 在窗体上画一个名称为dl令按钮，然后编写如

60、下程序：Private SubDim i Asdl Click()eger, j AsegerDim a (10,10)As For i=1 To 3For j= i To 3a(i,j)=(i-1)*3+jegerPra (i,j);Next j PrNext i End Sub程序运行后，单击命令按钮，窗体上显示的是 。(23) 在窗体上画一个命令按钮，名称为Option Base 0d1, 然后编写如下代码：Private SubD) im A (4)As For k=0 To 2d1_Click()eger,B(4) AsegerA(k+1)=InputBox(“ 请输入一个整数B(3