1、二级 VISUAL+BASIC-83 及答案解析(总分：92.00，做题时间：90 分钟)一、选择题(总题数：35，分数：67.00)1.设 a=2，b=3，c=4，d=5，下列表达式的值是_。 Not a=c Or 4*c=b2 And ba+c（分数：2.50）A.-1B.1C.TrueD.False2.软件设计包括软件的结构、数据接口和过程设计，其中软件的过程设计是指_。（分数：2.00）A.模块间的关系B.系统结构部件转换成软件的过程描述C.软件层次结构D.软件开发过程3.以下变量名中， _是不符合 Visual Basic 的命名规范的。（分数：1.00）A.Abc901B.mnu
2、Open 234C.priceDK4.有如下的程序。 Private Sub Commandl_Click( ) Dim k As Integer, m As Integer Dim P As Integer k=4: m=1 P=Fun(k, m) : Print P; P = Fun ( k, m) : Print P End Sub Private Function Fun( a As Integer, b As Integer) Static m As Integer, i As Integer m=5:i=2 i=i+m+1 m=i + a + b Fun=m/2 End Funct
3、ion 单击命令按钮后，输出结果为（分数：1.00）A.2 2B.4 4C.5 5D.65.在利用菜单编辑器设计菜单时，为了把组合键“Alt+X”设置为“退出(X)”菜单项的访问键，可以将该菜单项的标题设置为_。（分数：2.00）A.退出(Xa;“b=“;b;“c=“;c Call S2(a,b) Print “a=“; a;“b=“; b;“c=“;e; End Sub Private Sub S1(x As Integer, Y As Integer) Dim c As Integer x=2*x: y=y+2:c=x+y End Sub Sub S2(x As Integer, ByVa
4、l Y As Integer) Dim e As Inleger x=2*x: Y=Y+2: e=x+y End Sub（分数：2.50）A.a=1 b=6 c=6a=4 b=6 c=6B.a=8 b=6 c=6a=8 b=6 c=6C.a=4 b=c c=6a=8 b=6 c=6D.a=8 b=6 c=6a=4 b=6 c=616.下列叙述中正确的是 _ 。（分数：2.00）A.在窗体的 Form_Load 事件过程中定义的变量是全局变量B.局部变量的作用域可以超出所定义的过程C.在某个 Sub 过程中定义的局部变量可以与其他事件过程中定义的局部变量同名，但其作用域只限于该过程D.在调用过程
5、时，所有局部变量被系统初始化为 0 或空字符串17.执行下面的程序，单击窗体后在窗体上显示的结果是_。 Private Sub form_Click() Dim Str1 As String, Str2 As String Dim Str3 As String, I As Integer Str1=“e“ for I=1 To 2 Str2=Ucase(Str1) Str1=Str2y End sub（分数：1.00）A.12 24B.2 24C.2 3D.12 2二、填空题(总题数：15，分数：25.00)36.如果不指明函数过程参数的类型，则该参数的数据类型为 _ 1_ 。 （分数：1.0
6、0）37.要求打开随机文件“C:/Example.txt”文件，文件号为 1。实现的语句是 1。 （分数：2.00）38.在面向对象方法中，类的实例称为 1。 （分数：2.00）39.应用程序结构指的是组织指令的 1，即指令存放的 2 和指令的 3 顺序。 （分数：1.00）40.下列程序段的执行结果为 _ 1_ 。 Dim A (10,10) For i = 2 To 4 For j =4 To 5 A(i,j) =i*j Next Next Print A (2,5) +A(3,4) +A(4,5) （分数：1.00）41.下图中，图 1、图 2 是应用程序的部分界面。运行程序首先出现图
7、1 的对话框，要求用户输入口令，输入完毕后单击“确定”按钮。如果输入的口令正确，则显示图 2 的界面。如果输入的门令错误，则出现图 3 的信息框。单击图 1 中的“取消”按钮，则结束程序。 Private Sub iommand1_ Click () Dim passwor As String password = Text1. Text if password = “Myname“ then 1 form1. Show Else d = MsgBox( 2) Refresh End if End Sub Private Sub command2_ Click() 3 End Sub 在图 1
8、 的窗体中，文本框对象的名称属性是 4。 （分数：2.00）42.执行下面的程序段，x 的值为 _ 1_ 。 Private Sub Command1_Click() For i=1 To 9 a=a+i Next x=Val(i) MsgBox x End Sub （分数：1.00）43.在窗体(Name 属性为 Form1)上画两个文本框(其 Name 属性分别为 Text1 和 Text2)和一个命令按钮(Name 属性为 Command1)，然后编写如下两个事件过程： Private Sub Command1_Click() a = Text1.Text + Text2.Text Pr
9、int a End Sub Private Sub Form_Load() Text1.Text = “ “ Text2.Text = “ “ End Sub 程序运行后，在第一个文本框(Text1)和第二个文本框(Text2)中分别输入 1234 和 4321，然后单击命令按钮，则输出结果为 _ 1_ 。 44.下列表式有错误，正确的写法应该是 _ 1_ 。 (a+B) +c/80-5(d+e) （分数：1.00）45.设有如下程序 Private Sub Search(a()As Variant， ByVal key As Variant， index%) Dim I% For I=LBo
10、und(a) To UBound(a) If key=a(I) Then Index=I Exit Sub End If Next I Index=-1 End Sub Private Sub Form Load() Show Dim b()As Variant Dim n As Integer b=Array(1，3，5，7，9， 11， 13， 15) Call Search(b， 11， n) Print n End Sub 程序运行后，输出结果是 1。 （分数：2.00）46.新建一个工程，内有两个窗体，窗体 Form1 上有一个命令按钮 Command1，单击该按钮，Form1 窗体
11、消失，显示 Form2 窗体，程序如下： Private Sub Command1_Click() 1 Form2. 2 End Sub 试补充完整。 （分数：4.00）47.简单的交换排序方法是 1。 （分数：2.00）48.假定在工程文件中有一个标准模块，其中定义了如下记录类型：Type Books Name As String*10 TelNuin As String*20 End Type 要求在执行事件过程 Command1_Click 时，在顺序文件 Person.txt 中写入一条记录。将以下程序补充完整。Private Sub Command1_Clickk() DimB As
12、 Books open“c:/person.txt“For output As #1 B.Name=InputBox(“请输入姓名“) B.TelNum=InputBox(“请输入电话号码“) write #1， 1 close #1 End Sub （分数：2.00）49.在 Selectcase 结构中应至少包含一个 1 子句。 （分数：2.00）50.在名称为 Form1 的窗体上绘制一个文本框，其名称为 Text1，在属性窗口中把该文本框的 MultiLine属性设置为 True，然后编写如下的事件过程： Private Sub Form Click() Open “d：/test/s
13、mtext1.txt“ For Input As #1 Do While Not Line Input #1，aspects whole$=whole$+aspect$+Chr$(13)+Chr$(10) Loop Text1.Text=whole$ Close #1 Open “d：/test/smtext2.txt“ For Output As #1 Print #1, 1 Close #1 End Sub 上述程序的功能是，把磁盘文件 smtext1.txt 的内容读到内存并在文本框中显示出来，然后把该文本框中的内容存入磁盘文件 smtext2.txt。请填空。 （分数：2.00）二级
14、VISUAL+BASIC-83 答案解析(总分：92.00，做题时间：90 分钟)一、选择题(总题数：35，分数：67.00)1.设 a=2，b=3，c=4，d=5，下列表达式的值是_。 Not a=c Or 4*c=b2 And ba+c（分数：2.50）A.-1B.1C.TrueD.False 解析：解析 本题考查运算符及其优先级。在表达式中，当运算符不止一种时，要先进行算术运算，接着进行比较运算，然后再进行逻辑运算。算术运算符的优先顺序从高到低依次为：幂()取负(-)乘、浮点除(*、/)整除(/)取模(mod)加、减(+、-)连接( P = Fun ( k, m) : Print P E
15、nd Sub Private Function Fun( a As Integer, b As Integer) Static m As Integer, i As Integer m=5:i=2 i=i+m+1 m=i + a + b Fun=m/2 End Function 单击命令按钮后，输出结果为（分数：1.00）A.2 2B.4 4C.5 5D.6 解析：解析 考查考生对函数调用的掌握情况。 解题要点 在 Sub 过程中，程序段先定义了 3 个 Integer 型变量 k，m，P，并给 A 赋给初值 4，m 的初值为 1，然后调用事件过程 Fun，并将它的值赋给 9；在事件过程 Fu
16、n 中定义了两个形参，参数的传送是通过引用实参，即将 k，m 的地址作为 a，b 的地址；在 Fun 中，将 m，i 定义为静态变量，所以第一次调用后的值仍然保留，但是 m，i 分别都有赋值语句，将它们的值变为 5，2，所以返回值不变都是 6 6。 错解分析 调用函数只能返回一个结果值。 考点链接 函数调用、参数传递5.在利用菜单编辑器设计菜单时，为了把组合键“Alt+X”设置为“退出(X)”菜单项的访问键，可以将该菜单项的标题设置为_。（分数：2.00）A.退出(Xa;“b=“;b;“c=“;c Call S2(a,b) Print “a=“; a;“b=“; b;“c=“;e; End S
17、ub Private Sub S1(x As Integer, Y As Integer) Dim c As Integer x=2*x: y=y+2:c=x+y End Sub Sub S2(x As Integer, ByVal Y As Integer) Dim e As Inleger x=2*x: Y=Y+2: e=x+y End Sub（分数：2.50）A.a=1 b=6 c=6a=4 b=6 c=6B.a=8 b=6 c=6a=8 b=6 c=6C.a=4 b=c c=6a=8 b=6 c=6 D.a=8 b=6 c=6a=4 b=6 c=6解析：解析 在定义子过程的参数时，如果
18、在参数前加上 ByVal，表示“传值”参数，主调函数中参数的值不被改变；否则表示是“传地址”参数，参数值会被调用的子过程改变。题中 S1 过程的参数是“传地址”，因此调用后 a、b、c 的值都改变了，分别为 4、6、6：S2 过程的参数 a 是“传地址”参数，b 是“传值”参数，因此调用后 a 值改变，b 值不变，因为 C 是过程变量，所以也没有变化，因此输出的值为8、6、6。16.下列叙述中正确的是 _ 。（分数：2.00）A.在窗体的 Form_Load 事件过程中定义的变量是全局变量B.局部变量的作用域可以超出所定义的过程C.在某个 Sub 过程中定义的局部变量可以与其他事件过程中定义的
19、局部变量同名，但其作用域只限于该过程 D.在调用过程时，所有局部变量被系统初始化为 0 或空字符串解析：17.执行下面的程序，单击窗体后在窗体上显示的结果是_。 Private Sub form_Click() Dim Str1 As String, Str2 As String Dim Str3 As String, I As Integer Str1=“e“ for I=1 To 2 Str2=Ucase(Str1) Str1=Str2y End sub（分数：1.00）A.12 24B.2 24 C.2 3D.12 2解析：解析 本题主要考查对过程的理解程度。在调用过程时，一般主调与被调
20、过程之间有数据传递，即将主调过程的实参传递给被调用的过程，完成实参与形参的结合后执行被调过程。在 Visual Basic 中，实参与形参的结合有两种方式：即传址与传值。这两种方法的特点如下： 传址的结合过程是，当调用一个过程时，它将实参的地址传给形参，在被调用的过程中，对形参的任何操作都变成了对相应实参的操作，因此实参的值会随形参的改变而改变。 传值的结合过程是，当调用一个过程时，系统将实参的值赋值给形参并断开了联系，被调用过程中的操作是在形参自己的存储单元中进行的，当过程调用结束时，这些形参所占用的存储单元也同时被释放，因此在过程中对形参的任何操作都不会影响实参。而题中被调过程 Procl
21、 中有两个形参，其中第一个形参为传址方式，第二个形参为传值方式。主调过程分别把实参 x，y 传递给 Procl，所以当过程调用结束后，实参 x 的值应随着被调过程变化而变化，而实参 y 值在主凋函数中始终不变，所以输出 y 的值仍为 24；在被调过程中“nn Mod 10”被调用时，相当于“xx Mod 10”，所以 x 的最终值应为 2。选项 B 是正确的。二、填空题(总题数：15，分数：25.00)36.如果不指明函数过程参数的类型，则该参数的数据类型为 _ 1_ 。 （分数：1.00）解析：Variant37.要求打开随机文件“C:/Example.txt”文件，文件号为 1。实现的语句
22、是 1。 （分数：2.00）解析：Open“c:/Example.txt“For Randorn As#1 解析 与顺序文件不同，打开一个随机文件后，既可用于写操作，也可用于读操作。打开随机文件的一般格式为： Open“文件名称“For Random As#文件号Len=记录长度38.在面向对象方法中，类的实例称为 1。 （分数：2.00）解析：对象解析 将属性、操作相似的对象归为类，也就是说，类是具有共同属性、共同方法的对象的集合。所以，类是对象的抽象，它描述了属于该对象类型的所有对象的性质，而一个对象则是其对应类的一个实例。39.应用程序结构指的是组织指令的 1，即指令存放的 2 和指令的
23、 3 顺序。 （分数：1.00）解析：方法 位置 执行40.下列程序段的执行结果为 _ 1_ 。 Dim A (10,10) For i = 2 To 4 For j =4 To 5 A(i,j) =i*j Next Next Print A (2,5) +A(3,4) +A(4,5) （分数：1.00）解析：42解析 该题定义了一个 2 组数组，用 A(i，j)：i*j 给数组赋值，则 A(2，5)+A(3，4)+A(4，5)=25+34+45=10+12+20=42。41.下图中，图 1、图 2 是应用程序的部分界面。运行程序首先出现图 1 的对话框，要求用户输入口令，输入完毕后单击“确定
24、”按钮。如果输入的口令正确，则显示图 2 的界面。如果输入的门令错误，则出现图 3 的信息框。单击图 1 中的“取消”按钮，则结束程序。 Private Sub iommand1_ Click () Dim passwor As String password = Text1. Text if password = “Myname“ then 1 form1. Show Else d = MsgBox( 2) Refresh End if End Sub Private Sub command2_ Click() 3 End Sub 在图 1 的窗体中，文本框对象的名称属性是 4。 （分数：2
25、.00）解析：Unload Me “口令非法!”，vbOKOnly，“学生管理信息系统” End Text 解析 这是个多窗口操作程序，要注意窗口之间的打开和关闭。MsgBox 函数的格式是：“MsgBox(提示信息，按钮常数，信息框标题，帮助文件)”，End 是结束运行、关闭所有窗口，UnLoad Me 是关闭当前窗口。42.执行下面的程序段，x 的值为 _ 1_ 。 Private Sub Command1_Click() For i=1 To 9 a=a+i Next x=Val(i) MsgBox x End Sub （分数：1.00）解析：10解析 在程序中 ForNext 语句之后
26、并没有对 i 的值改变，此时 i 为 10，故运行后结果为 10。43.在窗体(Name 属性为 Form1)上画两个文本框(其 Name 属性分别为 Text1 和 Text2)和一个命令按钮(Name 属性为 Command1)，然后编写如下两个事件过程： Private Sub Command1_Click() a = Text1.Text + Text2.Text Print a End Sub Private Sub Form_Load() Text1.Text = “ “ Text2.Text = “ “ End Sub 程序运行后，在第一个文本框(Text1)和第二个文本框(Te
27、xt2)中分别输入 1234 和 4321，然后单击命令按钮，则输出结果为 _ 1_ 。 解析：12344321解析 TextBox 的 Text 属性用来设置或返回文本框编辑区中的文本。44.下列表式有错误，正确的写法应该是 _ 1_ 。 (a+B) +c/80-5(d+e) （分数：1.00）解析：(a+b+c)/80-5/(d+e) 解析 在 Visual Basic 中： “+”不是合法的运算符。 括号不区分大、中、小括号，一律用小括号嵌套。 除号有两个：“/”，表示一般意义的除；“/”表示整除。45.设有如下程序 Private Sub Search(a()As Variant， B
28、yVal key As Variant， index%) Dim I% For I=LBound(a) To UBound(a) If key=a(I) Then Index=I Exit Sub End If Next I Index=-1 End Sub Private Sub Form Load() Show Dim b()As Variant Dim n As Integer b=Array(1，3，5，7，9， 11， 13， 15) Call Search(b， 11， n) Print n End Sub 程序运行后，输出结果是 1。 （分数：2.00）解析：5解析 本题综合考查
29、了数值的初始赋值，Sub 过程的建立与调用，For 循环控制语句等多项内容。本题的要点在于理解 Sub 过程 Search 所要表达的意思根据题意，Search 需要在数组 a()中寻找等于key 的数，如果找到了，则令 Index 等于该元素的下标值，如果没有找到，则令 Index 等于-1。据此，在调用 Search 时，11 为 b(8)的第 6 个元素，下标为 5，故 index 为 5。46.新建一个工程，内有两个窗体，窗体 Form1 上有一个命令按钮 Command1，单击该按钮，Form1 窗体消失，显示 Form2 窗体，程序如下： Private Sub Command1_
30、Click() 1 Form2. 2 End Sub 试补充完整。 （分数：4.00）解析：Me. Hide 或 Form1. Hide show 解析 本题考查关于窗体的操作，其显示和隐藏分别用 Show 和 Hide。47.简单的交换排序方法是 1。 （分数：2.00）解析：冒泡排序解析 交换排序是指借助数据元素之间的互相交换进行排序的一种方法，冒泡排序是一种最简单的交换排序方法，它是通过相邻元素之间的相互交换逐步将线性表变成有序。48.假定在工程文件中有一个标准模块，其中定义了如下记录类型：Type Books Name As String*10 TelNuin As String*20
31、 End Type 要求在执行事件过程 Command1_Click 时，在顺序文件 Person.txt 中写入一条记录。将以下程序补充完整。Private Sub Command1_Clickk() DimB As Books open“c:/person.txt“For output As #1 B.Name=InputBox(“请输入姓名“) B.TelNum=InputBox(“请输入电话号码“) write #1， 1 close #1 End Sub （分数：2.00）解析：Get。解析 随机访问模式中文件的写操作使用 Put 命令，Put 命令是将一个记录变量的内容写入所打开的
32、磁盘文件中指定的记录位置上；随机访问模式中文件的读操作使用 Get 命令，Get 命令是从磁盘文件将一条记录号指定的记录内容读入记录变量中。49.在 Selectcase 结构中应至少包含一个 1 子句。 （分数：2.00）解析：Case50.在名称为 Form1 的窗体上绘制一个文本框，其名称为 Text1，在属性窗口中把该文本框的 MultiLine属性设置为 True，然后编写如下的事件过程： Private Sub Form Click() Open “d：/test/smtext1.txt“ For Input As #1 Do While Not Line Input #1，asp
33、ects whole$=whole$+aspect$+Chr$(13)+Chr$(10) Loop Text1.Text=whole$ Close #1 Open “d：/test/smtext2.txt“ For Output As #1 Print #1, 1 Close #1 End Sub 上述程序的功能是，把磁盘文件 smtext1.txt 的内容读到内存并在文本框中显示出来，然后把该文本框中的内容存入磁盘文件 smtext2.txt。请填空。 （分数：2.00）解析：EOF(1) Text1.Text 或 Text1 或 Form1.Text1.Text 或 Form1.Text1
34、 或 Me.Text1.Text 或 Me.Text1 解析 本题考查文件操作。文件操作是考试难点，也是众多考生认为困难的内容。首先把磁盘文件 smtext1.txt 的内容读到内存，如何判断文件是否读取完成呢? EOF 函数的功能就是当文件指针到达文件尾部时返回True，否则返回 False，当 EOF(文件号)可以判断是否读取完成。 Linelnput#语句的功能是从一个打开的顺序文件中，读出一行数据赋给一个 aspect$变量，然后进行相应运算，Chr(13)+Chr(10)的功能是回车换行。最后将 whole$变量的值显示在文本框中，然后关闭#1 文件。接下来就是如何把文本框中的内容存入文件中，这里使用 Open “d：/test/smtext2.txt“ ForOutput As #1，该语句可以打开 d：/test/目录下的名为 smtext2.txt 的文件，如果不存在，该语句将创建一个名为 smtext2.txt 的文件。文件的写入是由 Print #语句实现，考生需要注意区分 Print #语句与 Write #语句的区别。
