1、VB 笔试-试卷 55 及答案解析(总分：104.00，做题时间：90 分钟)一、选择题(总题数：36，分数：72.00)1.选择题（）下列各题 A、B、C、D 四个选项中，只有一个选项是正确的，请将正确选项涂写在答题卡相应位置上。（分数：2.00）_2.下列数组声明正确的是( )。（分数：2.00）A.n=5 Dim a(1 to n) As IntegerB.Dim a(10) As Integer ReDim a(1 To 12)C.Dim a() As Single ReDim a(3,4) As Integer ReDim a(1 to n)As IntegerD.Dim a() A
2、s Integer n=53.列表框的_属性代表着列表框中项目的数目。（分数：2.00）A.ListB.ListlndexC.ListCountD.Seleted4.下列叙述中正确的是_。（分数：2.00）A.软件交付使用后还需要进行维护B.软件一旦交付使用后就不需要进行维护C.软件交付使用后其生命周期就结束D.软件维护是指修复程序中被破坏的指令5.在软件生命周期法中，用户的参与主要在_。（分数：2.00）A.软件定义期B.软件开发期C.软件维护期D.整个软件生命周期过程中6.栈和队列的共同点是_。（分数：2.00）A.都是先进后出B.都是先进先出C.只允许在端点处插入和删除元素D.没有共同点
3、7.设 R 和 S 为二个关系，_中的符号分别代表选择、投影、笛卡儿积的关系代数运算。（分数：2.00）A.F(R)，A(R)、RSB.EA(R)、VA(S)、R*SC.RS、RS、RSD.A(R)，F(R)、RS8.假设线性表的长度为 n，则在最坏情况下，冒泡排序需要的比较次数为（分数：2.00）A.log2nB.n2C.On1.5D.n(n-1)/29.用黑盒技术测试用例的方法之一为（分数：2.00）A.因果图B.逻辑覆盖C.循环覆盖D.基本路径测试10.设有下列二叉树： （分数：2.00）A.ABCDEFB.BDAECFC.ABDCEFD.DBEFCA11.串的长度是（分数：2.00）A
4、.串中不同字符的个数B.串中不同字母的个数C.串中所含字符的个数且字符个数大于零D.串中所含字符的个数12.在窗体上有一个文本框控件,名称为 TextTime;一个计时器控件,名称为 Timerl。要求每一秒在文本框中显示一次当前的时间。程序为: Private Sub Timer1_ _TxtTime.text=Time End Sub 在下划线上应填入的内容是（分数：2.00）A.EnabledB.VisibleC.IntervalD.Time13.下列程序段的执行结果为_。 K=0 For I=1 To 3 A=IIK Print A; Next I（分数：2.00）A.1 1 1B.1
5、 4 9C.0 0 0D.1 2 314.滚动条控件中，用来设置鼠标单击滚动箭头时滚动条移动的大小的属性是_。（分数：2.00）A.MaxB.ValueC.LargeChangeD.SmallChange15.如果 A 为整数且A=10，则打印“OK”，否则打印“Error”，表示这个条件的单行格式 If 语句是( )。（分数：2.00）A.If Int(A)=A And Sqr(A)=10 Then Print “OK“ Else Print “Error“B.If Fix(A)= A And Abs(A)=10 Then Print “OK“ Else Print “Error“C.If
6、Int(A)=A And(A=10,A=-10)Then Print “OK“ Else Print “Error“D.If Fix(A)=A And A=10,And A=10 Then Print “OK“ Else Print “Error“16.在窗体上画一个命令按钮(其名称为 Command1)，然后编写如下事件过程： Private Sub Command1_Click() Dim a(5,5)As Integer Dim i As Integer,j As Integer For i=1 To 3 For i=1 To 3 a(i,j)=(i-1)*3+j Print a(i,j
7、) Next j Print Next i End Sub 程序运行后，单击命令按钮，在窗体上的输出结果是_。（分数：2.00）A.1 4 7 2 5 8 3 6 9B.1 2 3 4 5 6 7 8 9C.1 2 3 4 5 6 7 8 9D.没有输出17.系统符号常量的定义可以通过_获得。（分数：2.00）A.对象浏览器B.代码窗口C.属性窗口D.工具箱18.下列程序段的执行结果为( )。 Dim A(3，3) For M=1 To 3 For N=1 To 3 If N=M Or N=3-M+1 Then A(M, N)=1 Else A(M，N)=0 End If Next N Nex
8、t M For M=1 To 3 For N=1 To 3 Print A(M，N) Next N Print Next M（分数：2.00）A.1 0 0 0 1 0 0 0 1B.1 1 1 1 1 1 1 1 1C.0 0 0 0 0 0 0 0 0D.1 0 1 0 1 0 1 0 119.下列程序的执行结果是( )。 Function P(N As Integer) For i=1 To N Sum=Sum+i Next i P=Sum End Function Private Sub Command1_Click() S=P(1)+P(2)+P(3)+P(4) Print S; E
9、nd Sub（分数：2.00）A.15B.16C.2OD.2520.为了使用窗体输出，使 Print 方法在 Form_Load 事件中起作用，必须设置窗体的( )属性。（分数：2.00）A.AutoReDrawB.BackColorC.MoveableD.Caption21.以下叙述中错误的是（分数：2.00）A.在 KeyUp 和 KeyDown 事件过程中，从键盘上输入 A 或 a 被视作相同的字母(即具有相同的 KeyCode)B.在 KeyUp 和 KeyDown 事件过程中，将键盘上的“1”和右侧小键盘上的“1”视作不同的数字(具有不同的 KeyCode)C.KeyPress 事件
10、中不能识别键盘上某个键的按下与释放D.KeyPress 事件中可以识别键盘上某个键的按下与释放22.下面叙述中正确的是_。（分数：2.00）A.随机文件中记录的长度不是固定不变的B.随机文件由若干条记录组成，并可以按记录号访问各个记录C.不能按任意顺序访问随机文件中的数据D.可以同时对打开的随机文件进行读写操作23.下列程序段的结果为_。A=“ABBACDDCBA“For I=6 To 2 Step-2 X=Mid(A，I，I) Y=Left(A，I) Z=Right(A，I) Z=X y End sub（分数：2.00）A.12 24B.2 24C.2 3D.12 226.符号%是声明 _
11、类型变量的类型定义符。（分数：2.00）A.IntegerB.VariantC.SingleD.String27.滚动条控件中，用来设置鼠标单击滚动箭头时滚动条移动的大小的属性是 _。（分数：2.00）A.MaxB.ValueC.LargeChangeD.SmallChange28.设有变量声明 Dim TestDate As Date，为变量 TestDate 正确赋值的表达方式是 _。（分数：2.00）A.TestDate=#1/1/2002#B.TestDate#”1/1/2002“#C.TestDatedate(“1/1/2002“)D.TestDateFormat(“m/d/yy“，
12、“1/1/2002“)29.下面的 4 个数组中，语句语法正确的是 _ 。（分数：2.00）A.Dim a10B.Def fn(10)C.Dim a(10)D.Dimension a(10)30.下列程序是将两个文本框(text1 和 text2)的内容进行组合，组合后的结果在图片框(Pic1)显示出来。 Private Sub Command1_Click() Dim sl As String，s2 As String S1=Text1.Text S2=TextText For i=Len(s1)To 1 Step-1 s3=s3+Mid(s1，i，1)+Mid(s2，i，1) Next i
13、 Pic1.Print s3 End Sub 程序运行后，在 Text1 文本框中输入“ABCDE”，在 Text2 文本框中输入“12345”，单击命令按钮，则在 Pic1 图片框中显示的内容是（分数：2.00）A.E5D4C3B2A1B.ABCDE12345C.12345ABCDED.A1B2C3D4E531.以下关于保存工程的说法正确的是（分数：2.00）A.保存工程时只保存窗体文件即可B.保存工程时只保存工程文件即可C.先保存窗体文件，再保存工程文件D.先保存工程文件，再保存窗体文件32.下列程序段的执行结果为_。 X=5 Y=-20 If Not X0 Then X=Y-3 Else
14、 Y=X+3 Print X-Y；Y-X（分数：2.00）A.-3 3B.5 -8C.3 -3D.25 -2533.下列不能打开属性窗口的操作是 _。（分数：2.00）A.执行“视图”菜单中的“属性窗口”命令B.按 F4 键C.按 Ctrl+TD.单击工具栏上的“属性窗口”按钮34.通过设置何属性可以改变所画图形的形状?（分数：2.00）A.ShapeB.IndexC.EnabledD.Height35.下列各种形式的循环中，输出“*“的个数最少的循环是（分数：2.00）A.a=5：b=8 Do Print“*“ a=a+l Loop While abB.a=5：b=8 Do Print“*“
15、 a=a+l Loop Until abC.a=5：b=8 Do Until a-b Print“*“ b=b+1 LoopD.a=5：b=8 Do Until ab Print“*“a=a+1 Loop36.设窗体上有一个名为 Txtl 的文本框和一个名为 Commandl 的命令按钮，并有以下事件过程： Private Sub Commandl 一 Click() x!=Val(TextlText) Select Case x Casc Is=20 Print“输入错误” Case IsA.5B.20C.25D.输入错误二、填空题(总题数：16，分数：32.00)37.填空题（每空）请将每
16、一个空的正确答案写在答题卡上。注意：以命令关键字填空的必须拼写完整。（分数：2.00）_38.下面程序的功能是统计字符串中“i“的个数，请填空。 Sub COU() Dim n As Integer a$=“Beijing University of Technology“ n=Len(a$) For i=1 To n b$=Mid$(a$,i,1) If 1 Then x=x+1 Next Print “x=“;x End Sub（分数：2.00）填空项 1:_39.一个类可以从直接或间接的祖先中继承所有属性和方法。采用这个方法提高了软件的 1。（分数：2.00）填空项 1:_40.关系操作
17、的特点是 1 操作。（分数：2.00）填空项 1:_41.软件是程序、数据和 1 的集合。（分数：2.00）填空项 1:_42.软件维护活动包括以下几类：改正性维护、适应性维护、 1 维护和预防性维护。（分数：2.00）填空项 1:_43.在鼠标事件过程 MouseDown 和 MouseUp 中，参数 Button 的值为 1、2、4 时，分别代表按下鼠标的 1、 2 和 3 按钮。（分数：2.00）填空项 1:_填空项 1:_填空项 1:_44.下面程序的功能是产生 10 个小于 100(不含 100)的随机正整数，并统计其中 5 的倍数所占比例，但程序不完整，请补充完整。Sub PR()
18、 Randomize Dima(10) Forj=1 To 10 a(i)=Int 1 If a(j)Mod5=0 Then k=k+1 Printa(j) Nextj Print Printk/10 End Sub（分数：2.00）填空项 1:_45.若要求输入密码时文本框中只显示“*”号，则应当在文本框的属性窗口中设置 1 属性。（分数：2.00）填空项 1:_46.当用 1 方式打开文件时，如果对文件进行写操作，则写入的数据附加到原文件的后面。（分数：2.00）填空项 1:_47.表达式“12345“”1234a”&“ABC”的值是 1 。（分数：2.00）填空项 1:_ （正确答案：正
19、确答案：True）解析：48.若要添加 CommonDialog 控件，则应从“工程”菜单中选择“部件”命令，在弹出的“部件”对话框的“控件”选项卡中选择 1，将控件添加到工具箱中。（分数：2.00）填空项 1:_ （正确答案：正确答案：Microsoft Common Dialog Control 6.0）解析：解析：通用对话框是 VB 提供的 ActiveX 控件。ActiveX 控件是具有.OCX 扩展名的文件，或一个可插入的对象。当使用“部件”对话框将其添加到工程中时，将扩充工具箱的内容。当工具箱上无通用对话框控件图标时，可以通过选择“工程”菜单中的“部件”命令，或用鼠标右键单击工具箱
20、，在弹出的快捷菜单中，选择“部件”命令，打开“部件”对话框。然后在对话框中的“控件”选项卡中，找到“Microsoft Common Dialog Control 6.0”，并选中该项，单击“确定”按钮后即可将通用对话框控件添加到工具箱中。49.设 A=“345678“，则表达式 Val(Mid(A,4,2)+Right(A,4)的值为 1。（分数：2.00）填空项 1:_ （正确答案：正确答案：675678）解析：解析：Val(string)函数用于返回字符串中所含的数值。 Right(string, length)函数来得到某字符串最右边的几个字符。Mid(Str，p, n)函数从第 p
21、个字符开始，向后取字符串的 n 个字符。题中，首先计算 Mid(A，4，2)为“67”，Right(A，4)为“5678”，然后用+连接符连撞起来成为“675678”字符串，最后转换成“675678”数值。50.Visual Basic 中的控件分为 3 类，它们是标准控件、 1 和可插入对象。（分数：2.00）填空项 1:_ （正确答案：正确答案：ActiveX 控件）解析：解析：Visual Basic 中的控件分为以下 3 类：标准控件(也称内部控件)、ActiveX 控件、可插入对象。51.程序执行结果 s 的值是 1。 Private Sub subl(Byval p As Inte
22、ger) p=p * 2 End Sub Private Sub Command1_Click( ) Dim i As Integer i=3 Call sub1 (i) if i4 then i=i mod 2 Print cstr(i) End Sub（分数：2.00）填空项 1:_ （正确答案：正确答案：3）解析：解析：ByVal 表示所声明的参数是按值传递的。因此参数值的变化只在被调用的函数或过程中有效，即只是形参的值有变化，而实参不受影响。ByRef 表示所声明的参数是按地址传递的。因此形参值的变化都会反映在实参上。 本题程序中，参数 p 是按值传递的，因此调用 sub1 后，实参 i 的值仍为 3。52.单击窗体上的命令按钮 Command1, 1 Private Sub Command1_Click() a= “10“ b=20 c=Val(A)+b Print c End Sub（分数：2.00）填空项 1:_ （正确答案：正确答案：30）解析：解析：执行赋值语句 a=“10“，将字符串“10”赋给变量 a；执行赋值语句 b=20，将数值 20 赋值给变量 b。由于 Visual Basic 中在进行字符串和数值相加时会自动先将字符串转换成数值型再参与计算，因此 Print 方法在窗体中的输出为 30。
