1、计算机二级(VB)44 及答案解析(总分：100.00，做题时间：120 分钟)一、选择题(每小题 2 分，共 70 分) 下列各(总题数：35，分数：70.00)1.在窗体上画两个文本框，其名称分别为 Text1 和 Text2，然后编写如下程序： Private Sub Form_Load() Show Text1.Text = “ Text2.Text = “ Text1.SetFocus End Sub Private Sub Text1_Change() Text2.Text = Mid(Text1.Text, 8) End Sub 程序运行后，如果在文本框 Text1 中输入Bei
2、jingChina，则在文本框 Text2 显示的内容是_。（分数：2.00）A.BeijingChinaB.ChinaC.BeijingD.BeijingC2.设 a=5,b=6,c=7,d=8,执行下列语句后,X 的值为【 】 X=IIF(ab)And(Cd),10,20) （分数：2.00）A.10B.20C.TrueD.False3.在 Visual Basic 中，要将一个窗体加载到内存进行预处理但不显示所使用的语句是（ ）。（分数：2.00）A.HideB.ShowC.LoadD.Unload4.以下关于变量作用域的叙述中，正确的是（ ）。 （分数：2.00）A.窗体中凡被声明为
3、Private 的变量只能在某个指定的过程中使用B.全局变量必须在标准模块中声明C.模块级变量只能用 Private 关键字声明D.Static 类型变量的作用域是它所在的窗体或模块文件5.下列说法错误的是（ ）。（分数：2.00）A.SystemB.ObjectC.ClassD.Thread6.单击一次命令结束后，下列程序的执行结果是( )。 Private Sub Commandl_Click( ) s=Sat(1)+Sat(2)+Sat(3)+Sat(4) Print s End Sub Public Function Sat(N As Integer) Static Sum For i
4、=1 To N Sum=Sum+i Next i Sat=Sum End Function （分数：2.00）A.15B.25C.35D.457.下列可以启动 Visual Basic 的方法是（ ）。（分数：2.00）A.Abs(成绩)B.Int(成绩)C.Srq(成绩)D.Sgn(成绩)8.下列叙述中，正确的是（ ）。（分数：2.00）A.任何时候都可以使用标准工具栏的“菜单编辑器”按钮打开菜单编辑器B.只有当代码窗口为当前活动窗口时，才能打开菜单编辑器C.只有当某个窗体为当前活动窗体时，才能打开菜单编辑器D.任何时候都可以使用“工具”菜单下的“菜单编辑器”命令，打开菜单编辑器9.Visu
5、al Basic 程序设计采用的编程机制是（ ）。（分数：2.00）A.方法是对象的一部分B.方法的调用格式和对象的属性的使用格式相同C.方法是一种特殊的过程和函数D.在调用方法时，对象名是不可缺少的10.有如下程序： Private Sub Commandl_Click( ) a$=“A WORKER IS HERE“ x=Len(a$) For i=1，To x-1 b$=Mid$(a$，i，3) If b$=“WOR“ Then S=S+1 Next Print S End Sub 单击命令按钮，程序运行结果为( )。 （分数：2.00）A.const，break，defaultB.lo
6、ng，void，usingC.virtual，extern，includeD.try，throw，this11.设已经在菜单编辑器中设计了窗体的快捷菜单，其顶级菜单为 Bt，取消其“可见”属性，运行时，在以下事件过程中，可以使快捷菜单相应鼠标右键菜单的是( )。（分数：2.00）A.a+=a-=(b=4) * (a=3)B.a=a * 3+2C.x(-3)D.y=float i12.不能脱离控件(包括客体)而独立存在的过程是（ ）。（分数：2.00）A.事件过程B.通用过程C.Sub 过程D.函数过程13.在窗体上画一个命令按钮和两个标签,其名称分别为 Command1、Label1 和 La
7、bel2,然后编写如下事件过程： Private Sub Command1_Click() a=0 For i=1 To 10 a=a+1 b=0 For j=1 To 10 a=a+1 b=b+2 Next j Next i Label1.Caption=str(a) Label1.Caption=str(b) End Sub 程序运行后,单击命令按钮,在标签 Label1 和 Label2 中显示的内容分别是【 】 （分数：2.00）A.10 和 20B.20 和 10C.200 和 110D.110 和 2014.在窗体上画一个名称为 Command1 的命令按钮，然后编写如下通用过程和
8、命令按钮的事件过程： Private Function f(m As Integer) If m Mod 2 = 0 Then f = m Else f = 1 End If End Function Private Sub Command1_Click() Dim i As Integer s = 0 For i = 1 To 5 s = s + f(i) Next Print s End Sub 程序运行后，单击命令按钮，在窗体上显示的是（ ）。 （分数：2.00）A.11B.10C.9D.815.下列程序段的执行结果为（ ）。 X=2 Y=5 If X * Y 1 Then Y=Y -
9、1 Else Y=-1 Print Y-X0 （分数：2.00）A.TrueB.FalseC.-1D.116.单击按钮时，以下程序运行后的输出结果是（ ）。 Private Sub Commandl_Click( ) Dim X As Integer，y As Integer，z As Integer x=1：y=2： Z=3 Call God(x，x，z) Print x；x；z Call God(x，y，y) Print X；y；y End Sub Private Sub God(x As Integer，y As Integer，z As Integer) x=3 * Z + 1 y=2
10、 * Z z=x + y End Sub （分数：2.00）A.MinimizeB.RequeryC.MaximizeD.Restore17.设已经在“菜单编辑器”中设计了窗体的快捷菜单，其顶级菜单为 Bs，取消其“可见”属性，运行时，在以下事件过程中，可以使快捷菜单响应鼠标右键菜单的是（ ）。 （分数：2.00）A.Private Sub Form_Mouse Down(Button As Integer，Shift As Integer，- X As Single，Y As Single) If Button=2 Then PopupMenu Bs，2 End SubB.Private S
11、ub Form_MouseDown(Button As Integer，Shift As Integer，- X As Single，Y As Single) PopupMenu Bs End SubC.Private Sub FOrm_MouseDown(Button As Integer，Shift As Integer，- X As Single，Y As Single) PopupMenu Bs，0 End SubD.Private Sub Form_MouseDown(Button As Integer，Shin As Integer，- X As Single，Y As Singl
12、e) If(Button=vbLeftButton)Or(Button=vbRightButton)Then PopupMenu Bs End Sub18.下列说法正确的是（ ）。（分数：2.00）A.对象的可见性可设为 True 或 FalseB.标题的属性值不可设为任何文本C.属性窗口中属性只能按字母顺序排列D.某些属性的值可以跳过不设置，自动设为空值19.根据变量的作用域，可以将变量分为 3 类，分别为（ ）。（分数：2.00）A.局部变量、模块变量和全局变量B.局部变量、模块变量和标准变量C.局部变量、模块变量和窗体变量D.局部变量、标准变量和全局变量20.属性 BorderColor
13、 的作用是（ ）。（分数：2.00）A.设置直线颜色和形状边界颜色B.设置直线或形状背景颜色C.设置直线或形状边界线的线型D.设置形状的内部颜色21.下列程序段的执行结果为（ ）。 a=5 Fork=1 To 0 a=a + k Next k Print k；a （分数：2.00）A.-1 6B.-1 16C.1 5D.11 2122.可以在常量的后面加上类型说明符以显示常量的类型，用来表示字符串常量的是（ ）。（分数：2.00）A.B.#C.!D.23.要在 D 盘当前文件夹下建立一个名为 InfoBasedat 的顺序文件，应使用的语句是（ ）。（分数：2.00）A.Open“InfoBa
14、sedat“For Output As #2B.Open“d:/InfoBasedat“For Output As #2C.Open“d:/InfoBasedat“For Input As #2D.Open“InfoBasedat“，For Input As #224.下列程序的执行结果为( )。 a=10 b=20 If a b Then a=a + b Else b=b-a Print a，b （分数：2.00）A.20 20B.30 20C.30 40D.15 1525.使用语句 Dim A(2) As Integer 声明数组 A 之后，以下说法正确的是（ ）。（分数：2.00）A.p
15、ublic void static main(String args ) . B.void public static main(String args ) . C.static public void main(String args ) . D.以上都不正确26.在 Visual Basic 中，要将一个窗体加载到内存进行预处理但不显示，应使用的语句是（ ）。（分数：2.00）A.关系中每一个属性对应一个值域B.关系中不同的属性可对应同一值域C.对应同一值域的属性为不同的属性D.DOM(A)表示属性 A 的取值范围27.在窗体上画一个名称为 Command1 的命令按钮，然后编写如下事件过
16、程： Private Sub Command1_Click( ) a$=“VisualBasic” Print String(3，a$) End Sub 程序运行后，单击命令按钮，在窗体上显示的内容是（ ）。 （分数：2.00）A.VVVB.VisC.sicD.1128.窗体文件的扩展名是（ ）。（分数：2.00）A.basB.clsC.frmD.res29.只有将组合框的 Style 属性设置为何值时，才能触发 DblClick 事件?（分数：2.00）A.0B.1C.2D.330.下列说明中，不属于随机文件特点的是（ ）。（分数：2.00）A.可移植性和跨平台的特点B.多线程的并发机制C.
17、编译器将 Java 源程序转换成机器码D.Applet 是 Java 的特殊应用程序，它嵌入到 HTML 中，随主页发布到互连网上31.设有下面的循环： i=1 Do i=i + 3 Print i Loop Until I_ 程序运行后要执行 3 次循环体，则条件中 I 的最小值为（ ）。 （分数：2.00）A.k=10 Dim Arr(k)B.Const k=10 Dim Arr(k)C.Dim Arrl(10) As Integer Dim Arr2(10)D.Dim Arrl(1 To 10) Dim Arr2(1 To 10，2 To 11)32.窗体上有 1 个过程为 CD1 的通
18、用对话框，1 个名称为 Command1 的命令按钮。命令 按钮的单击事件过程 如下 ： Private Sub Command1_Click() CD1.FileName = “ CD1.Filter = “All Files|*.*|(*.Doc)|*.Doc|(*.Txt)|*.Txt“ CD1.FilterIndex = 2 CD1.Action = 1 End Sub 关于以上代码，错误的叙述是_。 （分数：2.00）A.执行以上事件过程，通用对话框被设置为“打开“文件对话框B.通用对话框的初始路径为当前路径C.通用对话框的默认文件类型为*.TxtD.以上代码不对文件执行操作33.下
19、列说法错误的是（ ）。（分数：2.00）A.CREATE REPORT PP1B.MODIFY REPORT PP1C.CREATE PP1D.MODIFY PP134.下列数组定义语句错误的是( )。（分数：2.00）A.成员函数B.友元函数C.构造函数D.析构函数35.在设计阶段，当双击窗体上的某个控件时，打开的窗口是（ ）。（分数：2.00）A.工程资源管理器窗口B.工具箱窗口C.代码窗口D.布局窗口二、填空题（每空 2 分，共 30 分）(总题数：15，分数：30.00)36.在窗体上有一个命令按钮，然后编如下事件过程： Function SR( x As Double)As Doub
20、le Select Case Sgn(x) Case 1 SR=Sqr(x) Exit Function Case 0 SR=0 Case-1 SR=-1 End Select End Function Private Sub Command1 _ Click1 Dim Msg，SRN Dim N AS Double N=InputBox(“请输入要计算平方根的数“) Msg=Nb(i)=I，且数组 a 的上下界分别为 1 和4，数组 b 的上下界分别为 3 和 6；接着将数组 a 作为参数调用 YAS 过程，在 YAS 过程中，定义了两个变量 t 及 I，I 作为循环语句 For 的变量，它
21、的初始值和终值分别为数组的上下界，循环体为 t=t*a(i)即将a(i)的值乘以 t，然后再赋给 t，当循环结束后，程序返回的就是数组 a 中的各元素的积；同理程序将数组 b 作为参数传递给 YAS 过程后返回数组 b 中各元素的积，运行程序结束后，输出结果为:s1=24 s2=360。47.在 E 盘当前目录文件夹下建立一个名为“Studenttxt的顺序文件，要求用 InputBox 函数输入 5个学生的姓名(StuName)、年级(StuGrade)和年龄(StuAge)。 Private Sub Form _ Click1 2 For i=1 To 5 StuName=InputBox
22、(“请输入姓名“) StuGrade=InputBox(“请输入年级号“) StuAge=InputBox(“请输入年龄“) 3 Next i 4 End Sub （分数：2.00）填空项 1:_ （正确答案：Open“E:/Studenttxt“ For Output As #1）解析：在 Form _ Click 过程中，要在文件中写入数据，首先要建立一个文件，建立文件用 Open 语句，文件名必须是全称；因为要建立的文件为空文件，所以可以认为不能从它里面读出数据，只能写入数据在For“模式”中应该用“Output”，所以在第一个空处应填入的语句是“Open”E:/Studenttxt“
23、For Output As #1”；在 For 循环语句中，首先调用 InputBox 函数，给出提示信息，并将接收到的信息依次赋给相应的变量，然后将它们写入文件中，因为 StuName，StuGrade，StuAge 为变量名，不能用双引号，所以在第二个空处应填入的语句是“Write #1，StuName，StuGrade，StuAge”；当对文件写完以后，就要关闭文件，关闭文件用 Close 语句，关闭文件的格式为 Close#文件号，#文件号，文件号即为打开文件时的文件号，所以第三个空应填入的语句是“Close #1”。48.在 E 盘当前目录文件夹下建立一个名为“Studenttxt的
24、顺序文件，要求用 InputBox 函数输入 5个学生的姓名(StuName)、年级(StuGrade)和年龄(StuAge)。 Private Sub Form _ Click1 2 For i=1 To 5 StuName=InputBox(“请输入姓名“) StuGrade=InputBox(“请输入年级号“) StuAge=InputBox(“请输入年龄“) 3 Next i 4 End Sub （分数：2.00）填空项 1:_ （正确答案：Open“E:/Studenttxt“ For Output As #1）解析：在 Form _ Click 过程中，要在文件中写入数据，首先要建
25、立一个文件，建立文件用 Open 语句，文件名必须是全称；因为要建立的文件为空文件，所以可以认为不能从它里面读出数据，只能写入数据在For“模式”中应该用“Output”，所以在第一个空处应填入的语句是“Open”E:/Studenttxt“ For Output As #1”；在 For 循环语句中，首先调用 InputBox 函数，给出提示信息，并将接收到的信息依次赋给相应的变量，然后将它们写入文件中，因为 StuName，StuGrade，StuAge 为变量名，不能用双引号，所以在第二个空处应填入的语句是“Write #1，StuName，StuGrade，StuAge”；当对文件写完
26、以后，就要关闭文件，关闭文件用 Close 语句，关闭文件的格式为 Close#文件号，#文件号，文件号即为打开文件时的文件号，所以第三个空应填入的语句是“Close #1”。49.在窗体上画 1 个文本框，名称为 Text1，然后编写如下程序： Private Sub Form_Load1 Open “d:/temp/dat.txt“ For Output As #1 Text1.Text = “ End Sub Private Sub Text1_KeyPress(KeyAscii As Integer) If 2= 13 Then If UCase(Text1.Text) = 3Then
27、 Close #1 End Else Write #1, 4 Text1.Text = “ End If End If End Sub 以上程序的功能是，在 D 盘 temp 目录下建立 1 个名为 dat.txt 的文件，在文本框中输入字符，每 次按回车键（回车符的 ASCII 码是 13）都把当前文本框中的内容写入文件 dat.txt，并清除文 本框中的内容；如果输入“END“，则结束程序。请填空。 （分数：2.00）填空项 1:_ （正确答案：KeyAscii , “END“ , Text1.Text）解析：第 13 空的目的是用来判断当前输入的字符是否是回车（其 Ascii 码值为 1
28、3），只要判断所输入的字符的 Ascii 码值是否是 13，在 KeyPress 事件中，KeyAscii 用来表示当前输入字符的 Ascii 码值，故第 13 空 应填 KeyAscii。第 14 空的目的是判断当前文本框中所输入的字符串是否为“End”（可忽略大小写），只要 将文本框中的字符全部转换为大写字母，然后与“END”相比较，故第 14 空应填“END”；第 15 空所在语 句是将文本框中的内容写入到文件#1 中，故该空应填 Text1.Text。50.某二叉树中度为 2 的结点有 18 个，则该二叉树中有 1 个叶子结点。（分数：2.00）填空项 1:_ （正确答案：19）解析：二叉树的性质 3：在任意一棵二叉树中，度为 0 的结点（即叶子结点）总是比度为 2 的结点多一个。 本题中度为 2 的结点数为 18，故叶子结点数为 18+1=19 个。
