1、计算机二级(VB)48 及答案解析(总分：100.00，做题时间：120 分钟)一、选择题(每小题 2 分，共 70 分) 下列各(总题数：35，分数：70.00)1.单击命令按钮时，下列程序的执行结果为（ ）。 Private Sub Command1_Click() Dim x As Integer，y As Integer x=50：y=78 Call PPP(x，y) Print x；y End Sub Public Sub PPP(ByVal n As Integer，ByValm As Integer) n=n/10 m=m/10 End Sub （分数：2.00）A.多态B.继承
2、C.封装D.垃圾回收2.设在名称为 My form 的窗体上只有 1 个名称为 C1 的命令按钮,下面叙述中正确的是【 】（分数：2.00）A.窗体的 Click 事件过程的过程名是 My form ClickB.命令按钮的 Click 事件过程的过程名是 C1-ClickC.命令按钮的 Click 事件过程的过程名是 Command1_ClickD.上述 3 种过程名称都是错误的3.用 InputBox 函数设计的对话框，其功能是（ ）。（分数：2.00）A.只能接收用户输入的数据，但不会返回任何信息B.能接收用户输入的数据，并能返回用户输入的信息C.既能用于接收用户输入的信息，又能用于输出
3、信息D.专门用于输出信息4.有如下程序： Private Sub Commandl_Click() Dim a As Single Dim b As Single a=2：b=4 Call CS(a，b) End Sub Sub CS(x As Single，y As Single) t=X x=t/y y=t Mod y End Sub 程序运行后，单击命令按钮，a 和 b 的值分别为( )。 （分数：2.00）A.Dim pict3,4As IntegerB.Dim pict(3，4)As IntegerC.Dim pict34As IntegerD.Dim pict(3：4)As Int
4、eger5.单击命令按钮时，下列程序的执行结果是( )。 Private Sub Command1_Click() Dim a As Integer，b As Integer，C As Integer a=3 b=4 c=5 Print SecProc(c，b，a) End Sub Function FirProc (x As Integer，y As Integer，z As Integer) FirProc=2 * x + y + 3 * z+2 End Function Function SecProc (x As Integer，y As hteger，z As Integer) Se
5、cProc=FirProc(z，x，y)+x+7 End Function （分数：2.00）A.13B.16C.36D.336.一个工程中含有窗体 Form1、Form2 和标准模块 Model1，如果在 Form1 中有语句 Pubilc X As Integer，在 Model1 中有语句 Pubilc Y As Integer，则以下叙述中正确的是（ ）。 （分数：2.00）A.变量 X、Y 的作用域相同B.Y 的作用域是 Model1C.在 Form1 中可以直接使用 XD.在 Form2 中可以直接使用 X 和 Y7.下列程序段，在运行时最后输出的内容是（ ）。 a=2 c=1 A
6、AA: c=c + a If c10 Then Print c GoTo AAA Else Print “10 以内的奇数显示完毕“ End If （分数：2.00）A.3B.7C.9D.10 以内的奇数显示完毕8.下面关于菜单的叙述中错误的是【 】（分数：2.00）A.各级菜单中的所有菜单项的名称必须唯一B.同一子菜单中的菜单项名称必须唯一,但不同子菜单中的菜单项名称可以相同C.弹出式菜单用 Popup Menu 方法弹出D.弹出式菜单也用菜单编辑器编辑9.当滚动条位于最左端或最上端时，Value 属性被设置为（ ）。（分数：2.00）A.打印在每页的底部，用来显示本页的汇总说明的是页面页脚
7、B.用来显示整份报表的汇总说明，在所有记录都被处理后，只打印在报表的结束处的是报表页脚C.报表显示数据的主要区域叫主体D.用来显示报表中的字段名称或对记录的分组名称的是报表页眉10.下列叙述中正确的是【 】（分数：2.00）A.一个算法的空间复杂度大,则其时间复杂度也必定大B.一个算法的空间复杂度大,则其时间复杂度必定小C.一个算法的时间复杂度大,则其空间复杂度必定小D.上述三种说法都不对11.下列语句的输出结果为( )。 Print Format (1000936，“000，000000”) （分数：2.00）A.10，00936B.10，009360C.10，0093D.010，00936
8、012.有如下事件过程，单击命令按钮扣，输出结果是( )。 Private Sub Command1 Click( ) Dim b% (1 To4) ,j%, t# For j=1 To 4 b(j) =j Next j t=Tax(b( ) ) Print “t=“; t, End Sub Function Tax (a( ) As Integer) Dim t#, i% t=1 For i=2 To UBound (a) t=t * a(i) Next i Tax=t End Function （分数：2.00）A.私有成员B.保护成员C.公有成员D.所有成员13.如下事件过程： Func
9、tion Feed(x) If x 10 Then Feed=X Else Feed=10+x End If End Function Private Sub Command1_Click( ) x=Val(Input Box(“ “，0) pay=Feed(x) Print pay End Sub 运行时在输入框内输入变量 x 的值为 15，输出结果为( )。 （分数：2.00）A.0B.15C.25D.3014.Visual Basic 中的数值可以用十六进制或八进制表示，十六进制数的开头符是 Next End Sub Sub swap(b() As Integer) n = -|_|-
10、For i = 1 To n / 2 t = b(i) b(i) = b(n) b(n) = t -|_|- Next End Sub 上述程序的功能是，通过调用过程 swap，调换数组中数值的存放位置，即 a(1)与 a(10)的值互换，a(2)与 a(9)的值互换，a(5)与 a(6)的值互换。请填空。（分数：2.00）_37.下列程序的功能是：将数据 1，2，10 写入顺序文件 Basetxt 中，请填空。 Private Sub Form_Click() Dim i As Integer Open -|_|- As #1 For i=1 To 10 -|_|- Next i Close
11、 #1 End Sub （分数：2.00）_38.设有如下程序： Private Sub Form_Click() Dim n As Integer, s As Integer n = 8 s = 0 Do s = s + n n = n - 1 Loop While n 0 Print s End Sub 以上程序的功能是 -|_|-。程序运行后，单击窗体，输出结果为 -|_|-。 （分数：2.00）_39.在窗体上有一个命令按钮，然后编如下事件过程： Function SR( x As Double)As Double Select Case Sgn(x) Case 1 SR=Sqr(x)
12、 Exit Function Case 0 SR=0 Case-1 SR=-1 End Select End Function Private Sub Command1 _ Click( ) Dim Msg，SRN Dim N AS Double N=InputBox(“请输入要计算平方根的数“) Msg=N s End Sub （分数：2.00）_正确答案：(a(i)=Int(Rnd-|-*-|-200+100)解析：求随机数要用到随机函数 Rnd，所以在程序中调用了 Rnd 函数，100300 之间的随机函数表示为：a(i)=Int(Rnd * 200+100)；求某个数的倍数要用到取模运
13、算符 Mod，本题中求 7 的倍数，所以表示为：a(i) Mod 7=0；对于条件语句，有 If 开头的必须有 End If 结尾，Select Case 开头的，必须要用 End Select 结尾，所以本题中应添加 End If。42.窗体上有两个按钮，则执行程序后按键盘 Cancel 键的输出结果是 -|_|-。 Private Sub Command1 _ Click( ) Print“北京“； End Sub Private Sub Command2 _ Click( ) Print“南京“； End Sub Private Sub Form _ Load( ) Command2Ca
14、ncelTrue Command1Cancel=True End Sub （分数：2.00）_正确答案：(北京)解析：窗体中只能有一个 CommandButton 控件为取消按钮。当一个 CommandButton 控件的 Cancel 属性被设置为 True 时，窗体中其他 CommandButton 控件的 Cancel 属性自动地被设置为 False。当 CommandBuuon控件的 Cancel 属性被设置为 True，而且当前窗体处于活动状态时，按 Cancel 键可以触发该按钮 Click事件，而不管该控件是否获得焦点。本题开始时 Command2 的 Caned 属性为 Tru
15、e，但随后由于 Command1的该属性变为 True， Command 2 的 Cancel 属性变为 False，因此按 Cancel 键后执行 Command1 _ Click事件。43.执行下面的程序段，x 的值为 -|_|-。 Private Sub Command1_Click() For i=1 To 9 a=a + i Next i x=Val(i) MsgBox x End Sub （分数：2.00）_正确答案：(10)解析：MsgBox 函数的格式如下： MsgBox(msg，type)，title)，helpfile，content msg：一个字符串，长度不能超过 10
16、24 个字符。 type：一个整数值或符号常量，用来控制在对话框内显示的按钮，图标的种类及数量。 title：一个字符串，用来显示对话框的标题。 hdpfile，content：同 InputBox 函数。 在这 5 个参数中，只有第一个是必须的，其他的可以省略。 在程序中 ForNext 语句之后并没有对 I 的值改变，此时 I 为 10，故运行后结果为 10。 44.新建一个工程，内有两个窗体，窗体 Form1 上有一个命令按钮 Command1，单击该按钮， Form1 窗体消失，显示 Form2 窗体，程序如下： Private Sub Command1_Click() -|_|- F
17、orm2 -|_|- End Sub 试补充完整。 （分数：2.00）_正确答案：(MeHide 或者 Form1Hide 或者 Unload-|-Me)解析：解答此题首先要了解以下方法： Show 方法：将窗体加载到内存并显示。 Hide 方法：将窗体加载到内存并隐藏。 Load 语句：加载窗体到内存。 Unload 语句：从内存卸载窗体，Unload Me 卸载本窗体。所以本题中，可以用 Hide 方法，也可以用 Unload 语句使 Form1 窗体消失；用 Show 方法显示窗体。 45.下列事件过程的功能是：通过 Form _ Load 事件给数组赋初值为 35、48、15、22、6
18、7，Form_ Click事件找出可以被 3 整除的数组元素并打印出来。请在空白处填入适当的内容，将程序补充完整。 Dim Arr ( ) Private Sub Form _ Load( ) -|_|- End Sub Private Sub Form _ Click( ) -|_|- If Int(x/3)=x/3 Then Print x End If Next x End Sub （分数：2.00）_正确答案：(Arc=Array(35，48，15，22，67)解析：Form _ Load 事件给数组赋初值，且限定只能用一条语句完成，显然只能用 Array 函数给数组赋值了。Form
19、_ Click 事件是打印出数组中能被 3 整除的数，程序中只有“Next x”语句，没有与之对应的For 语句。循环体是对数组元素进行处理，但循环体中又没有出现表示数组元素的下标变量，由此判断出应该用 For Each 语句。46.在 E 盘当前目录文件夹下建立一个名为“Studenttxt的顺序文件，要求用 InputBox 函数输入 5个学生的姓名(StuName)、年级(StuGrade)和年龄(StuAge)。 Private Sub Form _ Click( ) -|_|- For i=1 To 5 StuName=InputBox(“请输入姓名“) StuGrade=Input
20、Box(“请输入年级号“) StuAge=InputBox(“请输入年龄“) -|_|- Next i -|_|- End Sub （分数：2.00）_正确答案：(Open“E:/Studenttxt“ For Output As #1)解析：在 Form _ Click 过程中，要在文件中写入数据，首先要建立一个文件，建立文件用 Open 语句，文件名必须是全称；因为要建立的文件为空文件，所以可以认为不能从它里面读出数据，只能写入数据在For“模式”中应该用“Output”，所以在第一个空处应填入的语句是“Open”E:/Studenttxt“ For Output As #1”；在 For
21、 循环语句中，首先调用 InputBox 函数，给出提示信息，并将接收到的信息依次赋给相应的变量，然后将它们写入文件中，因为 StuName，StuGrade，StuAge 为变量名，不能用双引号，所以在第二个空处应填入的语句是“Write #1，StuName，StuGrade，StuAge”；当对文件写完以后，就要关闭文件，关闭文件用 Close 语句，关闭文件的格式为 Close#文件号，#文件号，文件号即为打开文件时的文件号，所以第三个空应填入的语句是“Close #1”。47.下列程序计算 Sn 的值。Sn=a+aa+aaa+aaaa，其中最后一项为 n 个。 例如：a=5，n=4
22、时，则Sn=5+55+555+5555。请在空白处填入适当的内容，将程序补充完整。 Private Sub Command1_Click() Dim a As Integer，n As Integer，Cout As Integer Dim Sn As Long，Tn As Long Cout=1 Sn=0 Tn=0 a=InputBox(“请输入 a 的值：“) -|_|- Do Tn=Tn * 10 + a Sn 二 Sn + Tn Cout=Cout+1 -|_|- DebugPrint a，n，Sn End Sub （分数：2.00）_正确答案：(答案：n = InputBox(“请输
23、入 n 的值！”)解析： a 和 n 的值必须已知，表达式才能计算。但程序中没有给变量 n 赋值的语句，可见第一个空白行应该填写给 n 赋值的语句。 Do 循环应该有与之对应的终端语句，可见于第二个空白行应填写 Do 循环的终端语句，即 While 语句，同时要构造出控制循环的。程序中有四个赋值语句，其中有 一个计数语句 Cout=Cout + 1，可见控制循环次数的变量应是 Cout。 48.要使标签的背景样式为不透明，应将 BackStyle 属性设置为 -|_|-。（分数：2.00）_正确答案：(1)解析：BackStyle 属性用来指定标签的背景样式是否透明，该属性可以取两个值：0 和
24、 1。当为 0 时，标签为“透明”的；当值为 1 时，标签将覆盖背景。49.下述语句段在运行时的显示结果是 -|_|-。 Cis x=1034 + 8 Print Len(x) （分数：2.00）_正确答案：(5)解析：在本题中考查了 Len(X)函数，它的功能是测试字符串的长度，也可以测试变量的存储空间，它的自变量可以是字符串，也可以是变量名。本题中 x=1834，四位数字和一个小数点位，共五位，所以输出结果应该是 5。50.如果存在如下过程： Private Function FMax(a( )As Integer) Dim First As Integer，Last As Integer
25、，i As Integer First=LBound(A) Last=UBound(A) Max=a(First) For i=First To Last If a(i) Max Then Max=a(i) Next i FMax=Max End Function 在窗体上添加一个命令按钮，然后编写如下事件过程： Private Sub Command1 Click( ) ReDim m(1 To 4) As Integer m(1)=20：m(2)=30：m(3)=50：m(4)=100 c=FMax(m) Print c End Sub 单击命令按钮，其输出结果为 -|_|-。 （分数：2
26、.00）_正确答案：(100)解析：在程序 Sub 中定义了一个含 4 个元素的数组，并且分别给它们赋值，数组上界是 4，下界为 1；将数组 m 作为实参调用 Fmax 事件过程，并将数组 m 的地址传递给数组 a，即此时数组 a 与 m 用一个存储空间；将数组的上界和下界分别赋给变量 Last 和 First，在赋值表达式中分别调用了 Lbound()函数求数组下界，及 Ubound()函数求数组的上界；在循环语句中，变量的初始值为数组的下界为 1，终值为数组的上界为 4，循环体是一个条件语句，如果 a(I)中的值大于 Max，那么就将 a(I)的值赋给 Max，当循环结束后，将 Max 作为函数的返回值，所以此事件过程的功能即为求数组中的最大值。
