vb编程糖果问题编程

川农选了VB得同学看看就知道了哈！！！http://hi.baidu.com/20085557 里面有解答不错！！

我想看问题，不小心看到楼主的大眼睛
好吧，我贴好了吧

幼儿园小朋友分吃一堆糖果。第一天吃了一半，又吃了一颗；第二天，同样吃了剩下的一半，又多吃了一颗。到第十天一看，只剩下一颗糖果问原来共有多少颗糖果？

解答:Private Sub Command1_Click()
Dim i As Integer, x As Integer
x = 1
For i = 9 To 1 Step -1
x = (x + 1) * 2
Next i
Print "原来共有" & x & "颗糖果"
End Sub
Private Sub Form_Load()
Command1.Caption = "计算"
End Sub