求助高手~！！VB do while 国际象棋棋盘上的麦粒程序！！

国际象棋盘上的麦粒
在印度有一个古老的传说：舍汗王打算奖赏国际象棋的发明人——宰相西萨班达依尔。国王问他想要什么。他对国王说：“陛下，请您在这张棋盘（见图1）的第1个格子，赏给我1粒麦子，在第2个小格子里给2粒，第3小格里给4粒，以后每一小格都比前一小格多1倍。请您将这样摆满棋盘上所有64格的麦粒，都赏给您的仆人吧！”国王觉得这个要求太容易满足了，就命令给他这些麦粒。当人们把一袋一袋麦子搬来开始数时，国王才发现：就是把全印度甚至全世界的麦粒都拿来，也满足不了那位宰相的要求。
那么，宰相要求得到的麦粒到底有多少呢？
方法一：
Private Sub Command1_Click()
Dim n As Integer, I As Integer, p As double, s as double
N=64
S=0
P=1
For i=_________ to n
S=______________
P=______________
Next i
Label1.Caption=”麦粒的数量是”+ str(s)
End Sub

方法二：
Private Sub Command1_Click()
Dim n As Integer, I As Integer, p As double, s as double
N=64
S=0
P=1
________
Do while i<n
S=______________
P=______________
I=_____________
loop
Label1.Caption=”麦粒的数量是”+ str(s)
End Sub

问题：假如每粒麦子的重量是0.2克，每人每天消耗0.5千克，那么棋盘上的麦粒能供全球60亿人吃多少年？

wh－＋to do结构 VB高手进~~~求助！！！ vb问题，高手求助 vb高手求助 求助 VB高手进 求助VB高手 求助VB高手...!! VB高手进！求助 vb求助啊~~~ vb高手请进！！！ VB高手大哥请进 求助VB选择题