Question

计算机老师要求我们把下面的这个问题用VB程序做出来，希望计算机高手们把下面这个问题翻译成VB代码！急用

二、递推算法（迭代算法）
1、猴子吃桃问题。一只猴子第一天摘了若干个桃子，当即吃了一半又多吃了一个。第二早上又将剩下的桃子吃了一半又多吃了一个。以后每天早上如此，到了第10天早上想吃时，就剩一个桃子了。请问第一天摘了几个桃子？ 在此先谢谢啦！

Answer 1

Option Explicit

Private Sub Command1_Click()
Dim i As Long
Text1.Text = CStr(fun(10))

End Sub

Function fun(n As Long) As Long
If n = 1 Then
fun = 1
Exit Function
End If
fun = fun(n - 1) * 2 + 2
End Function

注意那个10，最后的结果是1534
1
4
10
22
46
94
190
382
766
1534