化学检验工考试
相似问题和答案
第1题：
在窗体中添加一个名称为Command1的命令按钮，然后编写如下程序：
Private Sub f(ByVal x As Integer)
x=x+4
End Sub
Private Sub Command1_Click()
i=3
Call f(i)
If i＞4 Then i=i*2
End Sub
窗体打开运行后，单击命令按钮，则消息框的输出结果为( )。
3 解析： 本题考查VBA中参数传递的知识。在VBA的过程调用时，参数有两种传递方式：传址传递和传值传递。如果在过程声明时形参用ByVal声明，说明此参数为传值调用；若用ByRef声明，说明此参数为传址调用；没有说明传递类型，则默认为传址传递。本题中在定义子过程f的时候用ByVal声明了形参x，说明为传值调用，此时对x的任何更改不会影响调用它的实参i，所以执行完callf(i)这条语句后i的值不变仍为3，当然也不满足If语句的条件，故此最后输出结果为3。
第2题：
假定有如下的Sub过程：
Sub Sub1(x As Single，y As single)
t=x
x=t/y
y=t Mod y
End Sub
在窗体上画一个命令按钮，然后编写如下事件过程：
Private Sub Command1_click()
Dim a As Single
Dim b As Single
a=5
b=4
Sub1 a，b
Print a；b
End Sub
程序运行后，单击命令按钮，输出结果为
A．
B．
C．
D．
解析：在调用通用过程时要注意的是参数的传递方式。本题中两个变量都是以传值方式传递。根据传值方式的定义不难计算出本题结果。
第3题：
在通用声明中定义a，在窗体中添加一个命令按钮Command1，编写如下程序代码：
DimaAsInteger
Subtest()
a=a+1:b=b+1:c=c+1
Print"Sub:";a;"，";b;"，";c
EndSub
PrivateSubCommand1_Click()
a=2:b=3:c=4
Calltest
Calltest
EndSub
程序运行后，单击命令按钮，窗体中将显示( )
A.Sub：3，4，5Sub：4，5，6
B.Sub：2，3，4Sub：2，3，4
C.Sub：3，1，1Sub：4，1，1
D.Sub：1，1，1Sub：1，1，1
第4题：
在窗体上画一个命令按钮，然后编写如下程序： Private Sub Comrnand3_Click( ) Cop 2 Cop 3 Cop 4 End Sub Sub Cop (a As Integer) Static x As Integer x=x + a Print x; End Sub 程序运行后，单击命令按钮，输出结果为
A．2 3 4
B．2 5 9
C．3 5 4
D．2 4 3
解析：在过程Sub中，将Integer型变量x定义为静态变量(Static)，Static语句的格式与Dim语句完全一样，但Static语句只能出现在事件过程，Sub过程或Function过程中，在过程中的Static变量只有局部的作用域，即只能在本过程中可见，但可以和模块级变量传递，即使过程结束后，其值仍能保留。Cop过程是将变量a的值加上x赋给x，然后输出x的值；第一次调用Cop过程时，x未赋值，默认为0，所以输出结果为2，第二次调用Tcl过程时，因为x为静态变量，所以它的值为上次调用后的值，即为2，加上a后，x的值变为5，输出结果为5，同理，第三次调用后输出结果为9。
第5题：
在窗体上画一个命令按钮，然后编写下列程序 Private Sub Command3_Click( ) Tcl 2 Tcl 3 Tel 4 End Sub Sub Tcl(a As Integer) Static x As Integer x=x + a Print x； End Sub 程序运行后，单击命令按钮，输出结果为
A．2 3 4
B．2 5 9
C．3 5 4
D．2 4 3
解析：在过程TCL中，将Integer型变量x定义为静态变量(StatiC)，Static语句的格式与Dim语句完全一样，但Static语句只能出现在事件过程，Sub过程或Func-tion过程中，在过程中的Static变量只有局部的作用域，即只能在本过程中可见，但可以和模块级变量传递，即使过程结束后，其值仍能保留。Tcl过程是将变量a的值加上x赋给x，然后输出x的值；第一次调用Tcl过程时，x未赋值，默认为0，所以输出结果为2，第二次调用Tcl过程时，因为x为静态变量，所以它的值为上次调用后的值，即为2，加上a后，x的值变为5，输出结果为5，同理，第三次调用后输出结果为9。
第6题：
假定有如下的Sub过程： Sub S(x As Single，y As Single) t=x x=t/y y=t Mod y End Sub 在窗体上画一个命令按钮，然后编写如下事件过程： Private Sub Command1_Click() Dim a As Single Dim b As Single a=5 b=4 S a，b Print a，b End Sub 程序运行后，单击命令按钮，输出结果为 ______ 。
A．5 4
B．1 1
C．1.25 4
D．1.25 1
解析：Visual Basic的函数参数默认的方式是传地址的，所以函数S对参数做的改变会反映到原来的变量里。
第7题：
为了获得颗粒较大的BaSO4沉淀不应采取的措施是( )。
A.在热溶液中沉淀;
B.陈化;
C.在稀溶液中进行;
D.快加沉淀剂。
第8题：
有如下SUB过程:
Sub s(x As Single,y As Single)
t=x
x=t / y
y=t Mod y
End Sub
在窗体上添加一个命令按钮,然后编写如下事件过程:
Private Sub Form_Click()
Dim a As Single
Dim b As Single
a=5
b=4
s a,b
Print a,b
End Sub
则程序运行后,单击命令按钮,输出的结果为【 】 。
1.25,1 解析：调用s过程,传入"a=5,b=4"。t=5 , x=5/4, 故x=1.25;y=5%4,故y=1。返回并输出(1.25,1)
第9题：
假定有如下的Sub过程:
Sub Sub1(x As Single, y As single)
t=x
x=t / y
y=t Mod y
End Sub
在窗体上画一个命令按钮,然后编写如下事件过程:
Private Sub Command1_Click()
Dim a As Single
Dim b As Single
a=5
b=4
Sub1 a,b
Print a;b
End Sub
程序运行后,单击命令按钮,输出结果为
A．54
B．] 1]]1
C．] 1.2]]5.4
D．] 1.25]]1
解析：Sub过程与Function过程最根本的区别是：Sub过程的过程参数名称不能有返回值，而Function过程能通过过程名称得到返回值。
第10题：
在含有BaSO4沉淀的饱和溶液中，加入足够的KNO3，这时BaSO4的溶解度会( )
A.减小
B.增大
C.不变
D.先减小后增大