问题 单项选择题

在窗体上画一个名称为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   f2=x+x+x  End Function  程序运行后,在文本框中输入6,然后单击命令按钮,窗体上显示的是

A.72 36

B.108 36

C.72 6

D.108 6

答案

参考答案:A

解析:解析:因为输入的6满足条件n\2=n/2,所以执行f=f1(n),而f1里形参类型为ByRef即址传递,所以在函数里形参的改变会影响到实参。

综合题
选择题