猴子摘了很多桃子，当天吃了一半多一个，2天吃掉剩下的一半多一个，以后每天

Private Sub Form_Click()
Dim I As Integer
Dim A(7) As Single
A(1) = 1
Print "第7天剩余桃子数：A(7)=" & A(1)
For I = 2 To 7
A(I) = 2 * A(I - 1) + 2
Print "第" & 8 - I & "天剩余桃子数：A(" & 8 - I & ")=" & A(I)
Next I
Print S
End Sub
猴子那天共摘了190个桃子

190

按题意每天剩下的只能是偶数，所以第七天剩一个加上多吃的一个，再翻倍 那么第六天就是4个，以此类推五天的时候还有10个， 四——22 三——46 二——94 一——190

这样 用VB 就好编了

窗体上放一个命令按纽，以下代码
Private Sub Command1_Click()
Dim x As Integer, y As Integer
x = 1
For y = 6 To 1 Step -1
x = (x + 1) * 2
Next y
Print "共有" & x & "个桃子"
End Sub
结果是190个

190个,这猴子挺牛