【单选题】如下程序的运行结果是() Sub Command1_Click ( ) MsgBox (p1(3.0, 7)) End Sub Public Function p1! (ByVal x!, ByVal n%) If n=0 Then p1=1 Else If n Mod 2=1 Then p1=x*p1(x, n2) Else P1=p1(x, n2) x End if End if End Fu...
【单选题】下面程序运行结果是( D )。 Private sub command1_click( ) Print p1(3,7) End sub Public Function p1!(x!,n%) If n=0 then P1=1 Else If n mod 2=1 then P1=x*p1(x,n\2) Else P1=p1(x,n\2)\x Endif Endif End function
【简答题】如下程序:Private Sub Command1_Click() Print p1(3,7)End SubPublic function p1!(x!,n%)If n=0 ThenP1=1ElseIf n Mod 2=1 ThenP1=x*p1(x,n\2)ElsePl=pl(x,n\2)\xEnd IfEnd IfEnd Function运行的结果是A. 27 B. 18 C. 7 D. 1...