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 程序运行后,在文本框中输入3,然后单击命令按钮,窗体上显示的是() A.72 36 B.108 36 C.72 6 D.27 3