Function FuncByVal xAs Integer,yAs Integer) y=x*y If y>0 Then Func=x Else Func=y End If End Function Private SubCommand1_Click() Dim aAs Integer,bAs Integer a=3 b=4 c=Func(a,B、 Print"a=";a Print"b=";b Print"C=";c End Sub 程序运行后,单击命令按钮,其输出结果为:_______。 A、a=3b=12c=3B、a=3b=4c=3 C、a=3b=4c=12 D、a=13 b=12 c=12