1. 贝贝有n个桃子，吃完后每三个桃核可以换一个桃子，编写一个程序计算贝贝总共能够吃到几个桃子。

1. （1） 若贝贝总共有7个桃子，则他最后可以吃到个桃子。
3. （2） 修改程序中的错误。

   程序代码如下:

   Private Sub Command 1_Click()

   Dim n As Integer,ans As Integer

   n =Val(Text1.Text)

   ans = n

   Do While n>3    ‘

    ans = ans + n\3

    n = n\3     ‘

   Loop

   Label2.Caption = “总共能吃到的桃子数为：” + Str(ans)+“个”

   End Sub