在窗体上画一个名称为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
f1=x+x
End Function
Public Function f2(Byval x)
x=x*x
f1=x+x+x
End Function
程序运行后,在文本框中输入6,然后单击命令按钮,窗体上显示的是______。
A.72 36
B.108 36
C.72 6
D.108 6
参考答案:A
解析:
[分析]: 当在文本框中输入6时,条件“n\2=n/2”成立,调用f1函数过程。在过程的计算中,变量x的值为36,函数名f1为72。由于x是被定义为“ByRef”(按址方式传送),所以将36反传送给实参n,函数名f1也将72返回给变量f。最后在窗体上显示的是72和36。