1、二级 VISUAL+BASIC 笔试-167 及答案解析(总分：98.00，做题时间：90 分钟)一、选择题(总题数：25，分数：73.00)1.一个文本框，要使它显示多行文件，应使它的 _ 值的设置为 Ture。（分数：1.00）A.WordWrapB.MultilineC.SCrollBarsD.Locked2.当 Command1_Click 事件发生时，窗体上显示的内容是 _。Private Sub Command1_Click()Dim a As Integer，b As Integer，c As IntegerIf a = 0 Thenx = x-1ElseIf b 0 Thenx
2、 = 7Elsex=x+8End IfIf c 0 Thenx = x-3Elsex = 4End IfPrint xEnd Sub（分数：3.00）A.7B.8C.4D.33.如下图所示的四个 Check Box 中，可以选择的个数最多为 _。（分数：3.00）A.B.C.D.4.以下所列的过程中，正确的是 _。（分数：3.00）A.void play(var a: Integer, var b: Integer)B.Sub play(int a, b)C.void play(int a, int b)D.Sub play(a As Integer, b As Integer)5.A、B、C
3、 均为整型，执行下列语句后，窗口上将显示 _。A=7: B=2：C=11Print A*C2/B-A*C2/B（分数：3.00）A.0.5B.-1.0C.1.0D.0.56.在窗体上画一个按钮，然后编写如下事件代码。单击按钮，输出为 _。Private Function fun3(x As Integer)Static t As Integert = t + 3t = t + xfun3 = tEnd FunctionPrivate Sub Commandl Click()Dim a As Integer, b As Integer, c As Integera = 2 : b = 1c =
4、fun3 (a)c = fun3 (b)Print cEnd Sub（分数：3.00）A.6B.8C.9D.127.设 x 为整型变量，以下不能正确表达数学关系式 2x5 的 Visual Basic 表达式为 _。（分数：3.00）A.x=3 Or x=4B.2x5C.x5 And x2D.Not(x=2) And Not(x=5)8.要使 Form1 的标题栏显示“雀巢咖啡”，可在执行时使用语句 _。（分数：3.00）A.Form1.Caption=“雀巢咖啡“B.Form.Caption=“雀巢咖啡“C.Form1.Value=“雀巢咖啡“D.Form.Value=“雀巢咖啡“9.下列不
5、能作为 Visual Basic 变量名的是 _。（分数：3.00）A.IQB.I_love_UC.本命年D._UN10.Double 双精度数占 _ 个字节（分数：3.00）A.2B.4C.8D.1011.当文本框的 Text 属性发生变化时，将发生 _ 事件。（分数：3.00）A.KerPressB.LOStFOCUSC.ChangeD.SetFocus12.已知窗体上一个名称为 Pic1 的图片框，现在要把图片文件 peach.bmp 装载到该图片框中，使用的语句是 _。（分数：3.00）A.Pic1= “peach.bmp“B.Pic1=LoadPicture(“peach.bmp“)
6、C.Pic1.Picture=“peach.bmp“D.Pic1.Picture=LoadPicture(“peach.bmp“)13.Visual Bask 中工程文件的扩展名是 _。（分数：3.00）A.resB.frmC.vbpD.cls14.下列语句：X=5If X0 Then Y5Y=10运行程序后，下列叙述中正确的是 _。（分数：3.00）A.变量 Y 的值是 5B.变量 Y 的值是 10C.变量 X 的值是 10D.变量 Y 的值无法确定15.由如下程序：Type StudentNum As IntegerName As String * 13End TypeDim stu(30
7、)As Student该程序段定义了两个程序成分，它们分别是 _。（分数：3.00）A.记录类型和记录数组B.记录类型和记录变量C.显示类型和记录数组D.记录变量和记录数组16.当 Form_Click;事件发生时,窗体上显示的第三行是 _。Private Sub Form_Click()Dim i As Integer, j As Integer, k As IntegerDim x(5, 5) As IntegerFor i = 1 To 5k = 1For j = 1 To 5If i = j Thenx(i, j) = k + 1k=k+2Elsex(i, j) = k + 1End
8、IfNext jNext iFor i = 1 To 5For j = 1 To 5Print x(i, j)Next jPrintNext iEnd Sub（分数：3.00）A.22135B.21357C.22213D.1357917.用下面的语句定义的数组元素的个数是 _。Dim Arrl(-2 To 6)As Integer（分数：3.00）A.6B.7C.8D.918.程序段：x=0For a=1 to 5 step 2x=x+a2Next aPrint a语句 x=x+a2 执行的次数和最后 a 的值分别为 _。（分数：3.00）A.3 7B.2 5C.3 5D.2 719.当 Fo
9、rm_Click 事件发生时，程序输出的结果是 _。Private Sub Form Click()Dim a As Integer，b As Integer，c As Integera=1: b=1Print a; bDoc=a+bPrint ca=b:b=cLoop Until c=5End Sub（分数：3.00）A.1 1 1B.2 3 5C.2 5 7D.2 3 420.在窗体有一个水平滚动条名为 Hscrolll，其属性设置如下：LargeCh8nge=15, SmallChange=3, Max=100，Min=20，Value=45现单击该滚动条向右的箭头，Value 的值将变
10、为 _。（分数：3.00）A.45B.60C.48D.10021.要把名称为 List1 的列表框中当前选中的一项删除，应执行以下语句中的 _。（分数：3.00）A.List1.CIearB.List1.Delete List1. ListIndexC.List1.ClearList1.ListIndexD.List1.List1.Remove ListIndex22.能被对象所识别的动作与对象可执行的动作分别称作对象的 _。（分数：3.00）A.事件方法B.过程方法C.过程属性D.事件属性23.在窗体上画一个名称为 Command1 的命令按钮，然后编写如下程序 _。Dim k As Int
11、egerPrivate Sub Form_Load()k=5End SubPrivate Sub Command Click()Static b As Integerb b + kk=k+1Print k，bEnd Sub程序运行时，两次单击命令按钮 Command1 后，在窗体上显示的第二行是 _。（分数：3.00）A.7 11B.5 11C.76D.2 124.在窗体上画一个命令按钮，名称为 Command1。Private Sub Command1 Click()Dim x As Integer，y As Integerx=10:y:0Dox=x+2:y=y+xPrint “x=“, x
12、; “y=“,yIf y20 Then Exit DoLoop Until x=18End Sub程序运行后，如果单击命令按钮，则在窗体上显示的内容是 _。（分数：3.00）A.x=12y=12x = 14 y = 16x=16 y=18B.x=12 y=12x= 16 y =28x= 18 y=24C.x=12 y=12x= 14 y=44D.x= 12 y=12x= 14 y=2625.已知字符串 A 的值为“AdvancedEducation”，现要将它全部转化为大写字母并存放在 A 中，可以使用语句 _。（分数：3.00）A.B.C.D.二、填空题(总题数：6，分数：25.00)26.
13、下列程序段用于实现以下功能：随机产生一个 100 以内的整数，从键盘上输入一个数，计算机提示输入的数是否与随机整数一样。请填空。Private Sub Command1_Click()RANDOMIZEa = 【1】 DoInput “请输入一个数字:“, nIf n = a ThenPrint “Good!“【2】 ElseIf na ThenPrint “大了“ElsePrint “小了“End IfLoopEnd Sub（分数：5.00）填空项 1:_27.以下程序段的作用是计算数据的和，数据的个数是可变的。请填空。Private Sub Command1_Click()Dim a As
14、 Integera=0Sum a, 1, 5, 2Print “sum of 3 = “; aa = 0Call Sum(a, 1, 3, 5, 7, 9)Print “sum of 5 = “; aEnd SubPrivate Sub Sum(x As integer, 【3】 Dim y As VariantFor 【4】 x = x + yNext yEnd Sub（分数：5.00）填空项 1:_28.下列程序段用于计算 1 到 20 之间奇数之和与偶数之和。请填空。x = 0:z = 0For i = 0 To 20 Step 2x = x + iy = i + 1z = y + zN
15、ext i【5】 Print “偶数和=“; xPrint “奇数和=“; z（分数：2.50）填空项 1:_29.以下程序段的功能为，输入 8 个数给数组 a,然后采用插入排序算法，将数组 a 中的数按照升序排列存入数组 b 中。请填空。Private Sub Command1_Click ()Dim a(1 To 8), b(1 To 8)For i = 1 To 8a(i) = InputBox(“请输入“)Print a(i)Next iPrintFor i = 1 To 8s = 1For j = 1 To 8If 【6】 Thens = s + 1End IfNext j【7】 N
16、ext iEnd Sub（分数：5.00）填空项 1:_30.下面程序段的作用：在窗体上一个命令按钮。单击命令按钮后，将程序中字符串 “Welcome Home“中的字符全部大写输出，其后字符“Wel Back“全部小写输出。请填空。Private Sub Command1_Click()a = “Welcome Home“;b = “Wel Back“c = 【8】 + LCase(b)Print cEnd Sub（分数：2.50）填空项 1:_31.以下程序需要实现的功能是：在 C 盘根目录下建立一个名为 Students.txt 的顺序文件。单击命令按钮后，输入 4 个学生的个人信息，包
17、括 name、sex 和 age，将这些信息写入文件中。请填空。Private Sub Form_Click()Open 【9】 For Output As #1For i=1 To 4name=InputBox(“姓名“)age=InputBox(“年龄“)sex=InputBox(“性别“)Write 【10】 Next iClose #1End Sub（分数：5.00）填空项 1:_二级 VISUAL+BASIC 笔试-167 答案解析(总分：98.00，做题时间：90 分钟)一、选择题(总题数：25，分数：73.00)1.一个文本框，要使它显示多行文件，应使它的 _ 值的设置为 Tur
18、e。（分数：1.00）A.WordWrapB.Multiline C.SCrollBarsD.Locked解析：解析 Visual Basic 中文本框没有 WordWrap 属性，该属性是标签控件的一个属性。文本框里的Multiline 属性决定文本框是否可以显示多行文本，当其值为 True 时可以显示多行文本。 ScrollBars 属性用来控制文本框是否显示滚动条，其值为 0 不显示滚动条，为 1 时只显示水平滚动条，为 2 时只显示垂直滚动条，为 3 时两种滚动条都显示。Locked 属性用来决定文本框控件是否可编辑，为 False 时可编辑，为 Ture 时不可编辑，此时文本框的功能
19、相当于标签控件。2.当 Command1_Click 事件发生时，窗体上显示的内容是 _。Private Sub Command1_Click()Dim a As Integer，b As Integer，c As IntegerIf a = 0 Thenx = x-1ElseIf b 0 Thenx = 7Elsex=x+8End IfIf c 0 Thenx = x-3Elsex = 4End IfPrint xEnd Sub（分数：3.00）A.7B.8C.4 D.3解析：解析 本题先定义了三个变量，其默认值都为 0。执行 If 语句，其条件“a=0”为True，“b0”为 False，
20、“c0”为 False.依次执行结构体中的语句后，x 的值为 4。3.如下图所示的四个 Check Box 中，可以选择的个数最多为 _。（分数：3.00）A.B.C.D. 解析：解析 本题使用框架控制，把四个复选框控件分成两组。但每组之中可以选择一个到多个复选框控件，甚至全部选中。4.以下所列的过程中，正确的是 _。（分数：3.00）A.void play(var a: Integer, var b: Integer)B.Sub play(int a, b)C.void play(int a, int b)D.Sub play(a As Integer, b As Integer) 解析：解
21、析 Visual Basic 中，定义通用过程以 Sub 开头，后跟过程名。过程的每个形参都必须定义类型。答案 A 是错误的。Visual Basic 中没有 var 和 void 关键字。整型类型说明符应该为 Integer。因此本题答案选 D。5.A、B、C 均为整型，执行下列语句后，窗口上将显示 _。A=7: B=2：C=11Print A*C2/B-A*C2/B（分数：3.00）A.0.5B.-1.0C.1.0D.0.5 解析：解析 本题主要考查表达式的计算。Print 后面的表达式中，首先计算乘方，再按顺序计算乘除法，最后计算加减法。不难得出最后表达式的结果为-0.5。6.在窗体上画
22、一个按钮，然后编写如下事件代码。单击按钮，输出为 _。Private Function fun3(x As Integer)Static t As Integert = t + 3t = t + xfun3 = tEnd FunctionPrivate Sub Commandl Click()Dim a As Integer, b As Integer, c As Integera = 2 : b = 1c = fun3 (a)c = fun3 (b)Print cEnd Sub（分数：3.00）A.6B.8C.9 D.12解析：解析 当单击按钮时，首先调用 fun3 函数过程，把 a 的值按
23、地址传递给形参 x，在 fun3 函数中首先定义了一个静态变量 t，通过两条赋值语句使 t 的值变为 5，5 作为函数的返回值并赋值给 c；再一次调用 fun3 函数，此时需注意，静态变量依旧保持上次退出时的 5，所以执行下面的两条语句后，a 的值是9，把 9 作为函数的返回值并赋值给 c，因此 c 的输出值为 9。7.设 x 为整型变量，以下不能正确表达数学关系式 2x5 的 Visual Basic 表达式为 _。（分数：3.00）A.x=3 Or x=4B.2x5 C.x5 And x2D.Not(x=2) And Not(x=5)解析：解析 表达式“2x5”包含两个条件，即同时满足“x
24、5”和“x2”。答案 C 是正确的。满足 2x5 的整型变量 x 可以有两个值，分别是 3 和 4，选项 A 正确。Not(x=5)”和“x 5”的等价，“Not(x=2)”和 x“x2”等价，选项 D 正确。选项 B 不正确。8.要使 Form1 的标题栏显示“雀巢咖啡”，可在执行时使用语句 _。（分数：3.00）A.Form1.Caption=“雀巢咖啡“B.Form.Caption=“雀巢咖啡“ C.Form1.Value=“雀巢咖啡“D.Form.Value=“雀巢咖啡“解析：解析 窗体有 Caption 属性，用来设置其显示标题，但没有 Value 属性。窗体属性的设置方法为Form
25、.属性名二属性值，并且这里的 Form 不能写成 Form1。9.下列不能作为 Visual Basic 变量名的是 _。（分数：3.00）A.IQB.I_love_UC.本命年D._UN 解析：解析 在 Visual Basic 中变量取名的规则是：首字母必须为字母或汉字；变量名长度不超过255，在作用域内唯一；变量名中不能包括点号和用于类型说明的字符%，事件发生时,窗体上显示的第三行是 _。Private Sub Form_Click()Dim i As Integer, j As Integer, k As IntegerDim x(5, 5) As IntegerFor i = 1 T
26、o 5k = 1For j = 1 To 5If i = j Thenx(i, j) = k + 1k=k+2Elsex(i, j) = k + 1End IfNext jNext iFor i = 1 To 5For j = 1 To 5Print x(i, j)Next jPrintNext iEnd Sub（分数：3.00）A.22135 B.21357C.22213D.13579解析：解析 程序首先通过一个双重循环二维数组 x 的各个元素赋值，通过计算不难得出二维数组各行的值：第一行：1 3 5 7 9第二行：2 1 3 5 7第三行：2 2 1 3 5第四行：2 2 2 1 3第五行
27、：2 2 2 2 1第三行的值为 2 2 1 3 5，因此本题选 A。17.用下面的语句定义的数组元素的个数是 _。Dim Arrl(-2 To 6)As Integer（分数：3.00）A.6B.7C.8D.9 解析：解析 定义一维数组时可以定义下标上界(Up)和下界(Down)，数组元素的个数为 Up-Down+1。所以其元素个数为 9。18.程序段：x=0For a=1 to 5 step 2x=x+a2Next aPrint a语句 x=x+a2 执行的次数和最后 a 的值分别为 _。（分数：3.00）A.3 7B.2 5C.3 5 D.2 7解析：解析 当循环变量的值在变化方向上超过
28、终值时程序跳出 For 循环体。本题循环变量 a 初值为1，终值为 5，步长为 2，因此在 a=1、3、5 时分别执行一次循环。当 a=7 时超过了终值 5，循环结束，因此答案为 C。19.当 Form_Click 事件发生时，程序输出的结果是 _。Private Sub Form Click()Dim a As Integer，b As Integer，c As Integera=1: b=1Print a; bDoc=a+bPrint ca=b:b=cLoop Until c=5End Sub（分数：3.00）A.1 1 1B.2 3 5 C.2 5 7D.2 3 4解析：解析 当发生窗体
29、单击事件时，首先给变量 a 和 b 赋值 1，然后输出为 1 1，并换行，执行循环，c 值为 2，输出 2 后不换行，进行赋值后 a 为 1，b 为 2，判断“c5”为 False，继续执行下一循环。第二次循环输出 c 值为 3，循环终止条件仍为 False。第三次执行后，c 值为 5，循环终止条件为 True，循环退出。因此输出的第二行为“2 3 5”。20.在窗体有一个水平滚动条名为 Hscrolll，其属性设置如下：LargeCh8nge=15, SmallChange=3, Max=100，Min=20，Value=45现单击该滚动条向右的箭头，Value 的值将变为 _。（分数：3.
30、00）A.45B.60C.48 D.100解析：解析 ListCount 的值表示列表框中项目的数量。ListCount-1 表示列表中最后一项的序号。21.要把名称为 List1 的列表框中当前选中的一项删除，应执行以下语句中的 _。（分数：3.00）A.List1.CIearB.List1.Delete List1. ListIndexC.List1.ClearList1.ListIndexD.List1.List1.Remove ListIndex 解析：解析 列表框的 Clear 属性可把列表框中所有选项清除，而 Clear 的方法没有参数。列表框没有Delete 方法，而是使用列表框
31、的 Remove 方法从中移去某一项，当前选中项的编号保存在列表框的ListIndex 属性中，因此选择答案 D。22.能被对象所识别的动作与对象可执行的动作分别称作对象的 _。（分数：3.00）A.事件方法 B.过程方法C.过程属性D.事件属性解析：解析 所有的对象都具有自己的特征，称为属性：外界对对象的刺激能引起对象的响应，这种刺激称为事件：各种对象具有特定的功能，称为方法。23.在窗体上画一个名称为 Command1 的命令按钮，然后编写如下程序 _。Dim k As IntegerPrivate Sub Form_Load()k=5End SubPrivate Sub Command
32、Click()Static b As Integerb b + kk=k+1Print k，bEnd Sub程序运行时，两次单击命令按钮 Command1 后，在窗体上显示的第二行是 _。（分数：3.00）A.7 11 B.5 11C.76D.2 1解析：解析 本题首先定义一个窗体级变量 k，该窗体的所有过程都可以使用该变量。在窗体加载时的Load 事件中给变量 k 赋值 5。第一次单击命令按钮，定义静态变量 b，执行以后两条语句后 b 的值为 5，窗体级变量 k 的值为 6，所以输出为 6 5；再次单击命令按钮，此时静态变量 b 是上次退出时的值 5，而不是 0，执行以后两条语句后，b 的值
33、变为 11，变量 k 的值为 7，所以输出 7 11。24.在窗体上画一个命令按钮，名称为 Command1。Private Sub Command1 Click()Dim x As Integer，y As Integerx=10:y:0Dox=x+2:y=y+xPrint “x=“, x; “y=“,yIf y20 Then Exit DoLoop Until x=18End Sub程序运行后，如果单击命令按钮，则在窗体上显示的内容是 _。（分数：3.00）A.x=12y=12x = 14 y = 16x=16 y=18B.x=12 y=12x= 16 y =28x= 18 y=24C.x
34、=12 y=12x= 14 y=44D.x= 12 y=12x= 14 y=26 解析：解析 给变量 x 和 y 赋值后，执行 Do.Loop 循环。第一个循环后，x 的值为 12，y 的值为 12，输出：x=12 y=12。执行“语句，因为条件表达式“y20”为 False，所以不执行后面的 Do Exit，判断循环结束条件“x14”为 False，接着执行循环。第二次循环后，x 的值为 14，y 的值为 26，输出结果为 x=14 y=26，判断 If 语句的条件“y20”为 Ture，执行 DoExit 语句，退出循环。25.已知字符串 A 的值为“AdvancedEducation”，
35、现要将它全部转化为大写字母并存放在 A 中，可以使用语句 _。（分数：3.00）A. B.C.D.解析：解析 在 Visual Basic 中没有 ToUpper 和 ToLower 这两种函数。Ucase 函数的作用是将字符串中的小写字母转换成大写字母，Lcase 函数的作用是将字符串中的大写字母转换成小写字母。二、填空题(总题数：6，分数：25.00)26.下列程序段用于实现以下功能：随机产生一个 100 以内的整数，从键盘上输入一个数，计算机提示输入的数是否与随机整数一样。请填空。Private Sub Command1_Click()RANDOMIZEa = 【1】 DoInput “
36、请输入一个数字:“, nIf n = a ThenPrint “Good!“【2】 ElseIf na ThenPrint “大了“ElsePrint “小了“End IfLoopEnd Sub（分数：5.00）填空项 1:_ （正确答案：Int(100*Rnd) Exit Do）解析：解析 【1】处语句的作用为产生一个 100 以内的随机整数；【2】处的语句作用为输入数与随机整数一样时跳出循环体。27.以下程序段的作用是计算数据的和，数据的个数是可变的。请填空。Private Sub Command1_Click()Dim a As Integera=0Sum a, 1, 5, 2Print
37、 “sum of 3 = “; aa = 0Call Sum(a, 1, 3, 5, 7, 9)Print “sum of 5 = “; aEnd SubPrivate Sub Sum(x As integer, 【3】 Dim y As VariantFor 【4】 x = x + yNext yEnd Sub（分数：5.00）填空项 1:_ （正确答案：ParamArray Num() Each y In Num）解析：解析 过程参数表中，通常使用 ParamArray 声明不定数量的参数，其格式为 ParamArmy 形式参数名()，即将不定数量的参数放在一个不定长的数组中。在过程中通常
38、使用 For Each.Next 循环引用形式参数数组中的每一个元素。28.下列程序段用于计算 1 到 20 之间奇数之和与偶数之和。请填空。x = 0:z = 0For i = 0 To 20 Step 2x = x + iy = i + 1z = y + zNext i【5】 Print “偶数和=“; xPrint “奇数和=“; z（分数：2.50）填空项 1:_ （正确答案：z=z-y）解析：解析 程序段中，通过一个步长为 2 的 For 循环语句得到 120 的偶数 i，x 为偶数之和， y 为i 值加 1，即当前奇数值，2 为奇数累加值。当 i=20 时，当前奇数 y 值为 21
39、，因此奇数和 c 要减掉当前奇数值。29.以下程序段的功能为，输入 8 个数给数组 a,然后采用插入排序算法，将数组 a 中的数按照升序排列存入数组 b 中。请填空。Private Sub Command1_Click ()Dim a(1 To 8), b(1 To 8)For i = 1 To 8a(i) = InputBox(“请输入“)Print a(i)Next iPrintFor i = 1 To 8s = 1For j = 1 To 8If 【6】 Thens = s + 1End IfNext j【7】 Next iEnd Sub（分数：5.00）填空项 1:_ （正确答案：a(
40、i)a(j) b(s)=a(i)）解析：解析 首先通过 InputBox 语句输入 8 个数给数组 a。将数组 a 中的每个元素按顺序与其余 9 个元素比较。例如对元素 a(1)，如果有 n 个元素小于该元素，则该元素赋值给数组 b 中的 b(n +1)。30.下面程序段的作用：在窗体上一个命令按钮。单击命令按钮后，将程序中字符串 “Welcome Home“中的字符全部大写输出，其后字符“Wel Back“全部小写输出。请填空。Private Sub Command1_Click()a = “Welcome Home“;b = “Wel Back“c = 【8】 + LCase(b)Prin
41、t cEnd Sub（分数：2.50）填空项 1:_ （正确答案：UCase）解析：解析 字符串转换函数 UCase 的作用是字符串中所有小写字母改成大写。字符串转换函数 LCase的作用是字符串中所有大写字母改成小写。31.以下程序需要实现的功能是：在 C 盘根目录下建立一个名为 Students.txt 的顺序文件。单击命令按钮后，输入 4 个学生的个人信息，包括 name、sex 和 age，将这些信息写入文件中。请填空。Private Sub Form_Click()Open 【9】 For Output As #1For i=1 To 4name=InputBox(“姓名“)age=InputBox(“年龄“)sex=InputBox(“性别“)Write 【10】 Next iClose #1End Sub（分数：5.00）填空项 1:_ （正确答案：“C:/Students.txt“ #1，name，age，sex）解析：解析 Open 语句的格式为：Open 文件名For 文件模式Access 存取方式锁定As#文件号Len=记录长度)。因此第一个空填文件的路径与文件名。使用 Write 将数据写入文件内，其格式为Write#1，A，B,.，即把变量 A、B 等的值写入文件号为 1 的文件内。
