全国计算机等级考试二级VB真题.docx

1、全国计算机等级考试二级VB真题2010年3月全国计算机等级考试二级笔试试卷Visual Basic语言程序设计（考试时间90分钟，满分100分）一、选择题（每小题2分，共70分）下列各题A）、B）、C）、D）四个选项中，只有一个选项是正确的，请将正确选项填涂在答题卡相应位置上，答在试卷上不得分。（1）下列叙述中正确的是_。A）对长度为n的有序链表进行查找，最坏情况下需要的比较次数为nB）对长度为n的有序链表进行对分查找，最坏情况下需要的比较次数为(n/2)C）对长度为n的有序链表进行对分查找，最坏情况下需要的比较次数为(log2n)D）对长度为n的有序链表进行对分查找，最坏情况下需要的比较次数

2、为(nlog2n)（2）算法的时间复杂度是指_。A）算法的执行时间 B）算法所处理的数据量C）算法程序中的语句或指令条数 D）算法在执行过程中所需要的基本运算次数（3）软件按功能可以分为：应用软件、系统软件和支撑软件（或工具软件）。下面属于系统软件的是_。A）编辑软件 B）操作系统 C）教务管理系统 D）浏览器（4）软件（程序）调试的任务是_。A）诊断和改正程序中的错误 B）尽可能多地发现程序中的错误C）发现并改正程序中的所有错误 D）确定程序中错误的性质（5）数据流程图（DFD图）是_。A）软件概要设计的工具 B）软件详细设计的工具C）结构化方法的需求分析工具 D）面向对象方法的需求分析工具

3、（6）软件生命周期可分为定义阶段，开发阶段和维护阶段。详细设计属于_。A）定义阶段 B）开发阶段 C）维护阶段 D）上述三个阶段（7）数据库管理系统中负责数据模式定义的语言是_。A）数据定义语言 B）数据管理语言 C）数据操纵语言 D）数据控制语言（8）在学生管理的关系数据库中，存取一个学生信息的数据单位是_。A）文件 B）数据库 C）字段 D）记录（9）数据库设计中，用E-R图来描述信息结构但不涉及信息在计算机中的表示，它属于数据库设计的_。A）需求分析阶段 B）逻辑设计阶段 C）概念设计阶段 D）物理设计阶段（10）有两个关系R和T如下： 则由关系R得到关系T的操作是_。A）选择 B）投影

4、 C）交 D）并（11）在VB集成环境中要结束一个正在运行的工程，可单击工具栏上的一个按钮，这个按钮是_。A） B） C） D）（12）设x是整型变量，与函数IIf(x0,-x,x)有相同结果的代数式是_。A）|x| B）-|x| C）x D）-x（13）设窗体文件中有下面的事件过程： Private Sub Command1_Click() Dim s a%=100 Print a End Sub其中变量a和s的数据类型分别是_。A）整型，整型 B）变体型，变体型C）整型，变体型 D）变体型，整型（14）下面_属性肯定不是框架控件的属性。A）Text B）Caption C）Left D）E

5、nabled（15）下面不能在信息框中输出“VB”的是_。A）MsgBox VB B）x=MsgBox(VB)C）MsgBox(VB) D）Call MsgBox VB（16）窗体上有一个名称为Option1的单选按钮数组，程序运行时，当单击某个单选按钮时，会调用下面的事件过程Private Sub Option1_Click(Index As Integer)End Sub下面关于此过程的参数Index的叙述中正确的是_。A）Index为1表示单选按钮被选中，为0表示未选中B）Index的值可正可负C）Index的值用来区分哪个单选按钮被选中D）Index表示数组中单选按钮的数量（17）设窗

6、体中有一个文本框Text1，若在程序中执行了Text1.SetFocus，则触发_。A）Text1的SetFocus事件 B）Text1的GotFocus事件C）Text1的LostFocus事件 D）窗体的GotFocus事件（18）VB中有3个键盘事件：KeyPress、KeyDown、KeyUp，若光标在Text1文本框中，则每输入一个字母_。A）这3个事件都会触发 B）只触发KeyPress事件C）只触发KeyDown、KeyUp事件 D）不触发其中任何一个事件（19）下面关于标准模块的叙述中错误的是_。A）标准模块中可以声明全局变量B）标准模块中可以包含一个Sub Main过程，但此

7、过程不能被设置为启动过程C）标准模块中可以包含一些Public过程D）一个工程中可以含有多个标准模块（20）设窗体的名称为Form1，标题为Win，则窗体的MouseDown事件过程的过程名是_。A）Form1_MouseDown B）Win_MouseDownC）Form_MouseDown D）MouseDown_Form1（21）下面正确使用动态数组的是_。A）Dim arr() As Integer B）Dim arr() As Integer ReDim arr(3,5) ReDim arr(50) As StringC）Dim arr() D）Dim arr(50) As Inte

8、ger ReDim arr(50) As Integer ReDim arr(20)（22）下面是求最大公约数的函数的首部 Function gcd(ByVal x As Integer,ByVal y As Integer) As Integer 若要输出8、12、16这3个数的最大公约数，下面正确的语句是_。A）Print gcd(8,12),gcd(12,16),gcd(16,8)B）Print gcd(8,12,16)C）Print gcd(8),gcd(12),gcd(16)D）Print gcd(8, gcd(12,16)（23）有下面的程序段，其功能是按图1所示的规律输出数据Di

9、m a(3,5) As IntegerFor i=1 To 3 For j=1 To 5 a(i,j)=i+j Print a(i,j); Next PrintNext若要按图2所示的规律继续输出数据，则接在上述程序段后面的程序段应该是_。A）For i=1 To 5 B）For i=1 To 3 For j=1 To 3 For j=1 To 5 Print a(j,i); Print a(j,i); Next Next Print Print Next Next C）For j=1 To 5 D）For i=1 To 5 For i=1 To 3 For j=1 To 3 Print a(

10、j,i); Print a(i,j); Next Next Print Print Next Next（24）窗体上有一个Text1文本框，一个Command1命令按钮，并有以下程序 Private Sub Command1_Click() Dim n If Text1.Text123456 Then n=n+1 Print 口令输入错误 & n & 次 End If End Sub 希望程序运行时得到左图所示的效果，即：输入口令，单击“确认口令”命令按钮，若输入的口令不是“123456”，则在窗体上显示输入错误口令的次数。但上面的程序实际显示的是右图所示的效果，程序需要修改。下面修改方案中正

11、确的是_。A）在Dim n语句的下面添加一句：n=0B）把Print 口令输入错误 & n & 次改为Print 口令输入错误+ n +次C）把Print 口令输入错误 & n & 次改为Print 口令输入错误& Str(n) & 次D）把Dim n改为Static n（25）要求当鼠标在图片框P1中移动时，立即在图片框中显示鼠标的位置坐标。下面能正确实现上述功能的事件过程是_。A）Private Sub P1_MouseMove(Button As Integer,Shift As Integer,X As Single,Y As Single) Print X,Y End SubB）Pr

12、ivate Sub P1_MouseDown(Button As Integer,Shift As Integer,X As Single,Y As Single) Picture.Print X,Y End SubC）Private Sub P1_MouseMove(Button As Integer,Shift As Integer,X As Single,Y As Single) P1.Print X,Y End SubD）Private Sub Form_MouseMove(Button As Integer,Shift As Integer,X As Single,Y As Sing

13、le) P1.Print X,Y End Sub（26）计算的近似值的一个公式是/4=1+n-1。某人编写下面的程序用此公式计算并输出的近似值： Private Sub Command1_Click() PI=1 Sign=1 n=20000 For k=3 To n Sign=-Sign PI=PI+Sign/k Next k Print PI*4 End Sub 运行后发现结果为3.22751，显然，程序需要修改。下面修改方案中正确的是_。A）把For k=3 To n改为For k=1 To nB）把n=20000改为n=20000000C）把For k=3 To n改为For k=3

14、To n Step 2D）把PI=1改为PI=0（27）下面程序计算并输出的是_。 Private Sub Command1_Click() a=10 s=0 Do s=s+a*a*a a=a-1 Loop Until a=0 Print s End SubA）13+23+33+103的值 B）10!+3!+2!+1!的值C）(1+2+3+10)3的值 D）10个103的和（28）若在窗体模块的声明部分声明了如下自定义类型和数组 Private Type rec Code As Integer Caption As String End Type Dim arr(5) As rec 则下面的输

15、出语句中正确的是_。A）Print arr.Code(2),arr.Caption(2) B）Print arr.Code,arr.CaptionC）Print arr(2).Code,arr(2).Caption D）Print Code(2),Caption(2)（29）设窗体上有一个通用对话框控件CD1，希望在执行下面程序时，打开如图所示的文件对话框 Private Sub Command1_Click() CD1.DialogTitle=打开文件 CD1.InitDir=C: CD1.Filter=所有文件|*.*|Word文档|*.doc|文本文件|*.txt CD1.FileNam

16、e= CD1.Action=1 If CD1.FileName= Then Print 未打开文件 Else Print 要打开文件 & CD1.FileName End If End Sub 但实际显示的对话框中列出了C:下的所有文件和文件夹，“文件类型”一栏中显示的是“所有文件”。下面的修改方案中正确的是_。A）把CD1.Action=1改为CD1.Action=2B）把“CD1.Filter=”后面字符串中的“所有文件”改为“文本文件”C）在语句CD1.Action=1的前面添加：CD1.FilterIndex=3D）把CD1.FileName=改为CD1.FileName=文本文件（3

17、0）下面程序运行时，若输入395，则输出结果是_。 Private Sub Command1_Click() Dim x% x=InputBox(请输入一个3位整数) Print x Mod 10,x100,(x Mod 100)10 End SubA）3 9 5 B）5 3 9 C）5 9 3 D）3 5 9（31）窗体上有List1、List2两个列表框，List1中有若干列表项（见图），并有下面的程序： Private Sub Command1_Click() For k=List1.ListCount-1 To 0 Step -1 If List1.Selected(k) Then L

18、ist2.AddItem List1.List(k) List1.RemoveItem k End If Next k End Sub 程序运行时，按照图示在List1中选中2个列表项，然后单击Command1命令按钮，则产生的结果是_。A）在List2中插入了“外语”、“物理”两项B）在List1中删除了“外语”、“物理”两项C）同时产生A）和B）的结果D）把List1中最后1个列表项删除并插入到List2中（32）设工程中有2个窗体：Form1、Form2，Form1为启动窗体。Form2中有菜单，其结构如表。要求在程序运行时，在Form1的文本框Text1中输入口令并按回车键（回车键的A

19、SCII码为13）后，隐藏Form1，显示Form2。若口令为“Teacher”，所有菜单项都可见；否则看不到“成绩录入”菜单项。为此，某人在Form1窗体文件中编写如下程序： Private Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii=13 Then If Text1.Text=Teacher Then Form2.input.Visible=True Else Form2.input.Visible=False End If End If Form1.Hide Form2.Show End Sub 程序运行时发现刚输入口令时就隐藏

20、了Form1，显示了Form2，程序需要修改。下面修改方案中正确的是_。A）把Form1中Text1文本框及相关程序放到Form2窗体中B）把Form1.Hide、Form2.Show两行移到2个End If之间C）把If KeyAscii=13 Then改为If KeyAscii=Teacher ThenD）把2个Form2.input.Visible中的“Form2.”删去（33）某人编写了下面的程序，希望能把Text1文本框中的内容写到out.txt文件中 Private Sub Command1_Click() Open out.txt For Output As #2 Print T

21、ext1 Close #2 End Sub 调试时发现没有达到目的，为实现上述目的，应做的修改是_。A）把Print Text1改为Print #2,Text1B）把Print Text1改为Print Text1C）把Print Text1改为Write Text1D）把所有#2改为#1（34）窗体上有一个名为Command1的命令按钮，并有下面的程序： Private Sub Command1_Click() Dim arr(5) As Integer For k=1 To 5 arr(k)=k Next k Prog arr() For k=1 To 5 Print arr(k); Ne

22、xt k End Sub Sub prog(a() As Integer) n=UBound(a) For i=n To 2 step -1 For j=1 To n-1 If a(j)=0 Then count(n)=count(n)+1 End If Next k m=count(0) For k=1 To 25 If m2 Print i End Sub 程序运行后，单击窗体，输出结果为 【10】 。（9）在窗体上画一个名称为Command1的命令按钮。然后编写如下程序： Option Base 1 Private Sub Command1_Click() Dim a(10) As In

23、teger For i=1 To 10 a(i)=i Next Call swap( 【11】 ) For i=1 To 10 Print a(i); Next End Sub Sub swap(b() As Integer) n=UBound(b) For i=1 To n/2 t=b(i) b(i)=b(n) b(n)=t 【12】 Next End Sub上述程序的功能是，通过调用过程swap，调换数组中数值的存放位置，即a(1)与a(10)的值互换，a(2)与a(9)的值互换，。请填空。（10）在窗体上画一个文本框，其名称为Text1，在属性窗口中把该文本框的MultiLine属性设置

24、为True，然后编写如下事件过程： Private Sub Form_Click() Open d:testsmtext1.txt For Input As #1 Do While Not 【13】 Line Input #1,aspect$ whole$=whole$+aspect$+Chr$ (13)+Chr$ (10) Loop Text1.Text=whole$ 【14】 Open d:testsmtext2.txt For Output As #1 print #1, 【15】 Close #1 End Sub运行程序，单击窗体，将把磁盘文件smtext1.txt的内容读到内存并在文本框中显示出来，然后把该文本框中的内容存入磁盘文件smtext2.txt。请填空。