求vb题解答，，

这个涉及递归调用自己，第二参数是奇数，所以 执行p1=x*p1(x,n\2)，每次调用时参数n先被整除2，所以这个参数依次为 7，3，1，0 。直到参数为0时执行p1=1语句，所以整个过程相当如下：

dim p
p=1 ：n=0
p=p*3.0 ：n=1
p=p*3.0 ：n=3
p=p*3.0 ：n=7
p1=p

你的是作业吧？是哪儿抄来的解答然后又抄错了吧？

1）MsgBox(p1(3.0,7)应为MsgBox(p1(3.0,7))，少了一个右括号。

2）p1函数明显很多错误，请参考：

   Public Function p1(Byval x As Double, n As Integer) As Object
        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
            End If
        End If
    End Function

这应该就是你需要的。

属性，事件，方法
设计模式，调试模式，中断模式
解释执行，编译执行
78
123445
从s中取后两个字符
1 2
Sqr(16)= 4
label1.caption="a*b="
text1.setFocus
（我亲自测试过的）

求采纳为满意回答。