1、国家计算机二级(VB)93 及答案解析(总分：100.00，做题时间：120 分钟)一、选择题(每小题 2分，共 70分) 下列各(总题数：35，分数：70.00)1.下列程序段执行结果为（ ）。 x=5 y=-6 If Not x0 Then x=y-3 Else y=x+3 Print x-y；y-x （分数：2.00）A.-3 3B.5 -9C.3 -3D.-6 52.设已经在菜单编辑器中设计了窗体的快捷菜单，其顶级菜单为 Bt，取消其“可见”属性，运行时，在以下事件过程中，可以使快捷菜单相应鼠标右键菜单的是( )。（分数：2.00）A.Private Sub Form_MouseDow
2、n(Button As Integer, Shift As Integer,_ X As Single, Y As Single) If Button=2 Then PopupMenu Bt, 2 End SubB.Private Sub Form_MouseDown(Button As Integer, Shift As Integer, _ X As Single, Y As Single) PopupMenu Bt End SuhC.Private Sub Form MouseDown(Button As Integer, Shift As Integer, _ X As Single,
3、 Y As Single) PopupMenu Bt,0 End SubD.Private Sub Form_MouseDown(Button As Integer, Shift As Integer, _ X As Single, Y As Single) If (Button=vbLeftButton) Or ( Button=vbRightButton) Then PopupMenu Bt End Sub3.在窗体上画 1 个文本框，其名称为 Text1，然后编写如下过程： Private Sub Text1_KeyDown(KeyCode As Integer,Shift As Int
4、eger) Print Chr(KeyCode) End Sub Private Sub Text1_KeyUp(KeyCode As Integer,Shift As Integer) Print Chr(KeyCode+2) End Sub 程序运行后，把焦点移到文本框中，此时如果敲击“A“键，则输出结果为_。 （分数：2.00）A.AB.AC.AD.A4.下列程序段，在运行时最早输出的内容是（ ）。 a=2 C=1 AAA： C=C + a If c10 Then Print c GoTo AAA Else Print“10 以内的奇数显示完毕。“ End If （分数：2.00）A.3
5、B.7C.9D.65.执行 x$=InputBox(“请输入 x的值“)时，在弹出的对话框中输入 123，在列表框 List1选中 1个列表项(数据为 456)，使有的值使 123456的语句是（ ）。（分数：2.00）A.只能接收用户输入的数据，但不会返回任何信息B.能接收用户输入的数据，并能返回用户输入的信息C.既能用于接收用户输入的信息，又能用于输出信息D.专门用于输出信息6.窗体上有一个名称为 Picturel的图片框控件，一个名称为 Label1的标签控件，如下图所示。 现有如下程序： Public Sub display (x As Control) If TypeOf x Is
6、Label Then x.Caption=“计算机等级考试“ Else x.Picture=LoadPicture(“pic.jpg“) End If End Sub Private Sub Labell_Click() Call display(Labell) End Sub Private Sub Picture1_Click() Call display(Picture1) End Sub 对以上程序，下列叙述中错误的是( )。 （分数：2.00）A.程序运行时会出错B.单击图片框，在图片框中显示一幅图片C.过程中的 x是控件变量D.单击标签，在标签中显示一串文字7.设有如下通用过程：
7、Public Function Fun(xStr As String)As String Dim tStr As String,strL As Integer strL=Len(xStr) Do While i * ，：，?：B.+，-，new，delete，=C.sizeof，new，delete，+，-D.sizeof，new，delete，+，-11.下列程序段的执行结果为（ ）。 a=95 If a60 Then I=l If a70 Then l=2 If a80 Then I=3 If a90 Then I=4 Print“I=“:I （分数：2.00）A.I=1B.I=2C.I=
8、3D.I=412.计算 z的值，当 x大于 y时，z=x；否则 z=y。下列语句错误的是（ ）。（分数：2.00）A.If x=y Then z=x：z=yB.If x=y Then z=x Else z=yC.z=y：If x=y Then z=xD.If xn Do While m n：m=m - n：Loop Do While m n：n=n - m：Loop Loop MyFunc=m End FunCtion （分数：2.00）A.0B.2C.4D.627.下列程序段的执行结果为（ ）。 a=1 b=1 For I=1 To 3 f=a+b a=b b=f Print f; Next
9、 I （分数：2.00）A.236B.235C.234D.22828.设有如下的用户定义类型： Type Student number As String name As Suing age As Integer End Type 则以下正确引用该类型成员的代码是【 】 （分数：2.00）A.Student.name=“李明“B.Dim S As Student S.name=“李明“C.Dim S As Type Student S.name=“李明“D.Dim S A.s Type S.name=“李明“29.语句 Print 5/4*6/5 Mod 2的输出结果是（ ）。 （分数：2.0
10、0）A.0B.1C.2D.330.声明一个变量为局部变量应该用（ ）。（分数：2.00）A.GlobalB.PrivateC.StaticD.Public31.在窗体上添加标签控件 Label1之后，标签控件的默认的名称 Name是（ ）。（分数：2.00）A.5，68936B.5，689360C.5，6893D.005，68936032.单击一次命令结束后，下列程序的执行结果是( )。 Private Sub Commandl_Click( ) s=Sat(1)+Sat(2)+Sat(3)+Sat(4) Print s End Sub Public Function Sat(N As Int
11、eger) Static Sum For i=1 To N Sum=Sum+i Next i Sat=Sum End Function （分数：2.00）A.15B.25C.35D.4533.阅读程序： Option Base 1 Dim arr() As Integer Private Sub Form_Click() Dim i As Integer, j As Integer ReDim arr(3, 2) For i = 1 To 3 For j = 1 To 2 arr(i, j) = i * 2 + j Next j Next i ReDim Preserve arr(3, 4)
12、For j = 3 To 4 arr(3, j) = j + 9 Next j Print arr(3, 2) + arr(3, 4) End Sub 程序运行后，单击窗体，输入结果为_。 （分数：2.00）A.21B.13C.8D.2534.假定在窗体（名称为 Form1）的代码窗口中定义如下记录类型： Private Type animal animalName As String*20 aColor As String*10 End Type 在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程: Private Sub Command1_Click() Dim rec
13、As animal Open “c:/vbTest.dat“ For Random As #1 Len = Len(rec) rec.animalName = “Cat“ rec.aColor = “White“ Put #1, , rec Close #1 End Sub 则以下叙述中正确的是（ ）。 （分数：2.00）A.记录类型 animal不能在 Form1中定义，必须在标准模块中定义B.如果文件 c:/vbTest.dat不存在，则 Open命令执行失败C.由于 Put命令中没有指明记录号，因此每次都把记录写到文件的末尾D.语句“Put #1, , rec”将 animal类型的两个
14、数据元素写到文件中35.在窗体上从左到右有 Text1、Text2 两个文本框（见下图） （分数：2.00）A.Private Sub Text1_KeyPress( KeyAscii As Integer) If KeyAscii=13 Then 回车符的 ASCII码是13 a=Val(Text1) If a；0 Or a=0 And a=0 And a 0 Print s End Sub 以上程序的功能是 -|_|-。程序运行后，单击窗体，输出结果为 -|_|-。 （分数：3.00）_37.在 Visual Basic的立即窗口内输入以下语句 X=65 ? Chr$(X) 在窗口中显示的
15、结果是 -|_|-。 （分数：3.00）_38.在关系数据库中，把数据表示成二维表，每一个二维表称为 -|_|-。（分数：3.00）_39.设有以下函数过程： Function fun(m As Integer) As Integer Dim k As Integer, sum As Integer sum = 0 For k = m To 1 Step -2 sum = sum + k Next k fun = sum End Function 若在程序中用语句s=fun(10)调用此函数，则 s的值为 -|_|-。 （分数：3.00）_40.下面程序的功能是统计字符串中“广的个数，请填空。
16、 Sub COU( ) a$=“Beijing University of Technology“ Dim n AS Integer n=Len(a$) For i=1 To n b$= -|_|- If -|_|- Then x=x+1 Next i Print “x=“；x End Sub （分数：3.00）_41.在窗体上加上一个文本框控件 TextBox，画一个命令按钮，当单击命令按钮的时候将显示“保存文件”对话框，设置该对话框可用于保存文本文件(默认)和 Word文档，然后在文本框控件中显示保存的文件名，请填空。 Private Sub Command1_Click( ) Commo
17、nDialog1Filter= -|_|- CommonDialog1Filter= -|_|- CommonDialog1ShowSave TextBoxText= -|_|- End Sub （分数：3.00）_42.设某循环队列的容量为 50，头指针 front=5(指向队头元素的前一位置)，尾指针 rear=29(指向队尾元素)，则该循环队列中共有 -|_|-个元素。（分数：3.00）_43.在窗体上画一个命令按钮和一个文本框，然后编写命令按钮的 Click事件过程。程序运 行后，在文本框中输入一串英文字母（不区分大小写），单击命令按钮，程序可找出未 在文本框中输入的其他所有英文字母，
18、并以大写方式降序显示到 Text1中。例如，若在 Text1 中输入的是 abDfdb，则单击 Command1按钮后 Text1中显示的字符串是 ZYXWVUTSRQPONMLKJIHGEC。请填空。 Private Sub Command1_Click() Dim str As String, s As String, c As String str = UCase(Text1) s = “ c = “Z“ While c = “A“ If InStr(str, C）= 0 Then s = -|_|- End If c = Chr$(Asc( C） -|_|- ) Wend If s *
19、 ”和“?:”。11.下列程序段的执行结果为（ ）。 a=95 If a60 Then I=l If a70 Then l=2 If a80 Then I=3 If a90 Then I=4 Print“I=“:I （分数：2.00）A.I=1B.I=2C.I=3D.I=4 解析：此题为 If Then 结构的条件语句，如果 a60，则 I=1；如果 a 70，贝 I=2；如果 a80，则 I=3；如果 a90，则 I=4。12.计算 z的值，当 x大于 y时，z=x；否则 z=y。下列语句错误的是（ ）。（分数：2.00）A.If x=y Then z=x：z=y B.If x=y Then
20、 z=x Else z=yC.z=y：If x=y Then z=xD.If xn Do While m n：m=m - n：Loop Do While m n：n=n - m：Loop Loop MyFunc=m End FunCtion （分数：2.00）A.0B.2 C.4D.6解析：此题程序代码中，被调过程采用了 Do WhileLoop 的嵌套语句结构，主 凋过程只调用了一次被调过程，Print MyFtunc(20，18)语句表明，程序最后输出的只是 被调过程的返回值，主调过程在调用被调过程 MyFunc时，把数值 20和 18分别传给形 参 m和 n，从被调过程中的循环语句来看，
21、因为此时 m的值大于 n的值，所以执行语句 m = m - n，m 值变为 2，由语句 MyFunc=m可看出，此过程的返回值就是 m的值，即 2。 27.下列程序段的执行结果为（ ）。 a=1 b=1 For I=1 To 3 f=a+b a=b b=f Print f; Next I （分数：2.00）A.236B.235 C.234D.228解析：本题考查的是 For循环结构语句，现在看程序段是如何运行的： 开始 a=1，b=1。For 循环中步长缺省值为 l，循环变量 1的初值为 1，终值为 3，所以此循环结构可以循环 3次。 第一次循环后，结果为：f=2，a=1，b=2 第二次循环后
22、，结果为：f=3，a=2，b=3 第三次循环后，结果为：f=5，a=3，b=5 每循环一次，输出 f当前值，循环 3次即输出 3个 f值分别为 2，3，5。所以正确答案是选项 B)。 28.设有如下的用户定义类型： Type Student number As String name As Suing age As Integer End Type 则以下正确引用该类型成员的代码是【 】 （分数：2.00）A.Student.name=“李明“B.Dim S As Student S.name=“李明“ C.Dim S As Type Student S.name=“李明“D.Dim S A.
23、s Type S.name=“李明“解析：Type 语句用于定义一个用户自己的数据类型(即自定义类型),它含有一个或一个以上的成员,每个成员可以被定义为不同的数据类型。声明一个自定义类型后,在引用自定义类型的成员时,应当先定义一个该类型变量,正确的定义格式为“Declare 变量名 As记录类型名“。其中,Declare 可以是Dim、Static、Public 等。然后通过“变量名.成员名“来访问该变量中的元素。29.语句 Print 5/4*6/5 Mod 2的输出结果是（ ）。 （分数：2.00）A.0B.1 C.2D.3解析：30.声明一个变量为局部变量应该用（ ）。（分数：2.00）
24、A.GlobalB.PrivateC.Static D.Public解析：根据变量的定义位置和所使用的变量定义语句的不同，Visual Basic 中的变量可以分为局部变量、模块变量和全局变量。模块级变量在模块部分用 Private或 Dim语句声明；全局变量必须用 Public或Global语句声明；局部变量在过程内用 Dim 或 Static语句声明。31.在窗体上添加标签控件 Label1之后，标签控件的默认的名称 Name是（ ）。（分数：2.00）A.5，68936B.5，689360C.5，6893D.005，689360 解析：用 Format()函数可以将数值按“格式字符串”指
25、定的格式输出，包括在 输出字符串前面加 S，字符串后面补 0及千位分隔符等。“格式字符串”是一个常量或变 量，它由专门的格式说明符组成，由这些字符决定数据项的显示格式，并指定显示区域的 长度，当格式字符串为常量时，必须放在双引号中。本题是指定 1000936 按给定“000，000000”格式输出，所以不足的部分补 0，输出结 果为：010，009360，正确答案为选项 D)。32.单击一次命令结束后，下列程序的执行结果是( )。 Private Sub Commandl_Click( ) s=Sat(1)+Sat(2)+Sat(3)+Sat(4) Print s End Sub Public
26、 Function Sat(N As Integer) Static Sum For i=1 To N Sum=Sum+i Next i Sat=Sum End Function （分数：2.00）A.15B.25C.35 D.45解析： 在被调用过程中，有这样的语句“StaticSum”，因为变量 Sum是局部变量，局部变量除了可以用Dim语句声明外，还可用 Static语句将变量声明为静态变量，它在程序运行过程中可保留变量的值。具体过程分析如下： 调用 Sat(1)，在被调过程中 N=1，执行 For Next循环，Sat(1)=Sum=1； 调用 sat(2)，在被调过程中 N=2，执行
27、 For Next循环，Sat(2)=Sum=4； 调用 Sat(3)，在被调过程中N=3，执行 For Next循环，Sat(3)=Sum=10； 调用 Sat(4)，在被调过程中 N=4，执行 For Next循环，Sat(4)=Sum=20； 不难看出，最后输出的结果 S值应为 1+4+10+20=35，所以选项 C)是正确的。 33.阅读程序： Option Base 1 Dim arr() As Integer Private Sub Form_Click() Dim i As Integer, j As Integer ReDim arr(3, 2) For i = 1 To 3
28、For j = 1 To 2 arr(i, j) = i * 2 + j Next j Next i ReDim Preserve arr(3, 4) For j = 3 To 4 arr(3, j) = j + 9 Next j Print arr(3, 2) + arr(3, 4) End Sub 程序运行后，单击窗体，输入结果为_。 （分数：2.00）A.21 B.13C.8D.25解析：ReDim 语句的功能是为动态数组变量重新分配储存空间。而 Preserve 的功能是当改变原有数组最末 维的大小时，使用此关键字可以保持数组中原来的数据。从题目可以看出，第一个 For 循环是为第二维
29、为 1 和 2 的数组赋值，而第二个 For 循环是为第二维为 3 和 4 的数组赋值。而 arr(3,2)=i*2+j=3*2+2=8，arr(3,4)=j+9=4+9=13，故输出结果为 8+13=21。34.假定在窗体（名称为 Form1）的代码窗口中定义如下记录类型： Private Type animal animalName As String*20 aColor As String*10 End Type 在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程: Private Sub Command1_Click() Dim rec As animal Open
30、“c:/vbTest.dat“ For Random As #1 Len = Len(rec) rec.animalName = “Cat“ rec.aColor = “White“ Put #1, , rec Close #1 End Sub 则以下叙述中正确的是（ ）。 （分数：2.00）A.记录类型 animal不能在 Form1中定义，必须在标准模块中定义B.如果文件 c:/vbTest.dat不存在，则 Open命令执行失败C.由于 Put命令中没有指明记录号，因此每次都把记录写到文件的末尾D.语句“Put #1, , rec”将 animal类型的两个数据元素写到文件中 解析：35
31、.在窗体上从左到右有 Text1、Text2 两个文本框（见下图） （分数：2.00）A.Private Sub Text1_KeyPress( KeyAscii As Integer) If KeyAscii=13 Then 回车符的 ASCII码是13 a=Val(Text1) If a；0 Or a=0 And a=0 And a=0 And a 0 Print s End Sub 以上程序的功能是 -|_|-。程序运行后，单击窗体，输出结果为 -|_|-。 （分数：3.00）_正确答案：(求整数 18 之和 , 36)解析：DoLoop While 语句，是先执行循环体，然后再判断条件
32、，当条件表达式为 True 时，继续执行循环 体，当表达式为 False 时，退出循环。本题中先执行一次循环体，即 s+8，n-1，每执行一次循环体，n 就减 1，当 n= “A“ If InStr(str, C）= 0 Then s = -|_|- End If c = Chr$(Asc( C） -|_|- ) Wend If s “ Then Text1 = s End If End Sub （分数：3.00）_正确答案：(s+c 或 s & c , -1)解析：题目要求把输入的字符串中没有的字符显示出来，InStr(str, c) = 0 就是指字符串中没有该字符，就要 把该字符加入到变
33、量 s 中，即 s=s+c（或 s=s & c）；题目是从“Z”“A”循环查找的，找完一个，就找 下一个，而从“Z”“A”字符的 ASCII 码是逐渐减小的，所以 c = Chr$(Asc(c)-1)。44.下列语句的输出结果是 -|_|-。 Print Format$(12586，“000，00000“) （分数：3.00）_正确答案：(001，25860)解析： Formats( )为格式输出函数，格式为： Format$(数值表达式，“格式字符串“) 其功能是：按“格式字符串”指定的格式输出“数值表达式”的值。如果省略了“格式 字符串”，则把“数值表达式”的值转换为一个字符串原样输出；在
34、本题中，12586 将按 000，00000 的格式输出，即输出结果为：001，25860。 45.有下面一个程序段，从文本框中输入数据，如果该数据满足条件，除以 4余 1，除以 5余 2则输出，否则，将焦点定位在文本框中，并清除文本框的内容。 Private Sub Command1_Click( ) x=Val(Text1Text) If -|_|- Then Print x Else Text1Text=“ -|_|- End If End Sub （分数：3.00）_正确答案：(x Mod 4 = 1 And x Mod 5=2)解析：(1)程序调用了 Val()函数从文本框中的得到数据。本题中先通过 Val()函数得到一个整数，进行条件判断，如果满足条件 x Mod 4=1 And x Mod 5=2则输出 x，否则，将清空文本框，焦点落在文本框中。
