问题
单项选择题
在窗体上画一个名称为Text1的文本框，一个名称为Command1的命令按钮，然后编写如下事件过程和通用过程：
Private Sub Command1_Click( )
n=Val(Text1.Text)
If n\2=n/2 Then
f=f1(n)
Else
f=f2(n)
End if
Print f；n
End Sub
Public Function f1(ByRef x)
x=X*X
n=x+x
End Function
Public Function f2(ByVal x)
X=X*X
f2=X+x+x
End Function
程序运行后，在文本框中输入6，然后单击命令按钮，窗体上显示的是
A．72 36
B．108 36
C．72 6
D．108 6
答案
参考答案：A
解析： 由于输入的数字为6，6对2的浮点除法与整数除法的结果一致，都是 3，所以执行Then后面的语句，即f=fl(n)。根据Function对n的定义，参数x以传地址的方式传送数值，故n值在被传送到n函数过程后，通过x：x。x，变为36。f1值由此变为72。