懂VB的高手进 帮忙做一道编程题

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

请写出代码 或者将代码发送到wjc_90@qq.com 分数我怕浪费了 先为30 满意即加 谢谢了 选修课作业 没办法

Private Sub Command1_Click()
Dim x As Integer, y As String
y = 1
For x = 1 To 10
y = (y + 1) * 2
Next x
Print y
End Sub

Private Sub Command1_Click() Dim a As Byte, b As Integer b = 1 For a = 1 To 10 b = (b + 1) * 2 Next a Print b End Sub 结果是3070 由于第十天剩一颗，加上第九天多吃的一颗 等于两颗，得第九天先吃了2可剩2颗，再吃一颗剩一颗，以此类推。

数学太差是3070吗

Private Sub Command1_Click() For i = 1000 To 100000 If (((((((((i - i / 2 - 1) / 2 - 1) / 2 - 1) / 2 - 1) / 2 - 1) / 2 - 1) / 2 - 1) / 2 - 1) / 2 - 1) / 2 - 1 = 1 Then Print i End If Next End Sub