猴子吃桃问题，请各位帮忙写一下

Question

猴子吃桃子，每天刚好吃一半多一个，到第九天的时候，还剩下一个桃子，问原来一共有多少个桃子？在文本框里输入“第几天”的时候在窗口中出现桃子的数量
比如在文本框输入3
第2天的桃子数为：382
第1天的桃子数为：766
第0天的桃子数为：1534

Answer 1

这个到教科书上去查吧,PASCAL和C语言都有!!

Answer 2

C语言我会，但VB这个我不会啊
麻烦各位帮忙写一下

Answer 3

Function SS(ByVal i As Integer)
    SS = (i + 1) * 2
End FunctionPrivate Sub Command1_Click()
    n = 1
    For i = 9 To 1 Step -1
        n = SS(n)
    Next
    Text1.Text = n
End Sub

Answer 4

Function SS(ByVal i As Integer)
    SS = (i + 1) * 2
End FunctionPrivate Sub Command1_Click()
    n = 1
    j = Val(Text1.Text) + 1
    For i = 9 To j Step -1
        n = SS(n)
    Next
    msgbox n
End Sub

Answer 5

谢谢楼上的各位，sqfeiyu(流星雨)你能帮我改改吗？Option Explicit
Private Sub cmd1_Click()
    Dim x As Integer            'x为桃子数
    Dim n As Integer            'n为天数
    Dim intput As Integer       '输入的第几天
    
    intput = txt1.Text
    
    x = 1
    For n = 1 To intput
    x = (x + 1) * 2
    
    Print "第" & intput - 1 & "天桃子数：" & x
    intput = intput - 1
    Next
    
End Sub

Answer 6

BASIC的教科书上也有
算法是通用的

Answer 7

Private Sub Command1_Click()
Dim i As Integer
For i = 9 To 0 Step -1
Print "第 " & i & " 天桃子数：" & peachnum(i)
Next
End Sub
Function peachnum(ByVal n As Integer) As Long
If n > 9 Or n < 0 Then Exit Function
If n = 9 Then
peachnum = 1
Else
peachnum = 2 * peachnum(n + 1) + 2
End If
End Function