Question

如何这个画流程图和vb程序

有一个猴子，摘了很多桃子。第一天，它吃了整体一半的桃子，又多吃了一个桃子。第二天，它吃了剩下的一半的桃子，又多吃了一个。第三天又吃了剩下的一半桃子加一个。。。到最后，它发现只剩一个桃子了。

设有n天 n= ——————
它摘了——————个桃子

根据这个做流程图。和vb程序

Answer 1

这样也要流程图,倒推回去就是了,再说这里怎么画
==============================
Option Explicit
Dim i, n As Integer
Dim sum As Long

Private Sub Cmd_Click()
n = Val(Trim(Txt(0).Text))
If n > 0 Then
sum = 1
For i = 2 To n Step 1
sum = 2 * (sum + 1)
Next i
Txt(1).Text = sum
End If
End Sub
===============================
估计这家伙的胃会受不了!