2014年计算机等级二级考试(Visual Basic)考前仿真试题五
为了帮助大家复习好2014年计算机等级考试，本次我们考吧网特为广大考生整理了计算机等级考试模拟试题，希望广大考生能够喜欢。本次主要汇编了计算机等级二级考试(Visual Basic)精选试题：
一、选择题(每小题1分，共40小题，共40分)
25.在窗体上画一个命令按钮，名称为Command1，然后编写下列代码：
Option Base 0
Private Sub Command1 Click()
Dim A1(4)As Integer，A2(4)As Integer
For k=0 To 2
A1(k+1)=InputBox(”请输入一个整数”)
A2(3-k)=A1(k+1)
Next k
Print A2(k)
End Sub
程序运行后，单击命令按钮，在输入对话框中依次输入2、4、6，则输出结果为( )。
A.0
B.1
C.2
D.3
26.下列关于函数过程的叙述中，正确的是( )。
A.函数过程形参的类型与函数返回值的类型没有关系
B.在函数过程中，过程的返回值可以有多个
C.当数组作为函数过程的参数时，既能以传值方式传递，也能以传址方式传递
D.如果不指明函数过程参数的类型，则该参数没有数据类型
27.在窗体上画两个标签和一个命令按钮，其名称分别为Label1、Label2和Command1，然后编写下列程序：
Private Sub rune(L AS Labe1)
L.Caption="1234"
End Sub
Private Sub Form Load()
Labe11.Caption="ABCDE"
Labe12.Caption=10
End Sub
Private Sub Command1Click()
a=Va1(Label2.Caption)
Call func(Label1)
Label2.Caption a
End Sub
程序运行后，单击命令按钮，则在两个标签中显示的内容分别为( )。
A.ABCD和10 B.1234和100
C.ABCD和100 D.1234和10
28.在窗体上画一个命令按钮(名称为Command1)，并编写下列代码：
Function Fun1(ByVa1 a As Integer，b As Integer)As Integer
Dim t As Integer
t=a-b
b=t+a
Fun1=t+b
End Function
Private Sub Command1Click()
Dim X As Integer
x=10
Print Fun1(Vun1(X，(Fun1(x，x-1)))，x-1)
End Sub
程序运行后，单击命令按钮，输出结果是( )。
A.10
B.0
C.11
D.21
25.C。【解析】本题源程序中当循环结束时，循环变量k=3，故数组元素A2(3)=A1(1)=2。
26.A。【解析】Fmmtion过程也叫函数过程，一般用于调用后不仅要执行一组代码完成相应操作，还需返回一个有用值的情况，Function过程定义的格式如下：
[ Public 1 Private I Friend][Static]Function过程名[(参数列表)][As数据类型]
[语句块]
[过程名=表达式]
[Exit Function]
[语句块]
[过程名一表达式]
End Function
其中，在参数列表中，可以使用As子句来指定任何传给该过程的参数的数据类型，如果省略，则默认为Variant。对于Function过程而言，过程的数据类型决定其返回值的数据类型，与过程形参的类型没有必然的关系。Function函数的参数有两种传递方式：按值传递(Byval)和按址传递(Byref)，默认为按址(引用)传递，数组参数按址(引用)传递。
27.D。【解析】在Visual Basic中不仅可以使用变量作为形式参数，还可以使用窗体或控件作为通用过程的参数。
本题源程序在命令按钮的单击事件过程中，通过调用过程func将标签Label1的标题修改为“1234”;而标签Label2的标题保持不变，还是10。
28.B。【解析】在Visual Basic中，参数通过两种方式传送，即传地址和传值。其中，传地址习惯上称为引用，当通过引用来传送实参时，可以改变传送给过程的变量值;传值就是把需要传送的变量复制到一个临时的单元中，然后把该临时单元的地址传送给被调用的通用过程，它不会改变原来变量的值，所有的变化都是在变量的副本上进行的。
本题自定义函数Fun1的第1个参数按值传递，第2个参数虽然按址传递，但调用该函数时第2个参数均为表达式，因此变量x的值不受调用函数的影响。第1次调用Funl函数时，Fun1(10，9)=12;第2次调用Fun1函数时，Fun1(10，12)：1 6;第3次调用Fun1函数时，Fun1(6，9)=0。
编辑推荐：