求解VB~！！！

Private Sub Command1_Click()
Dim s As Double, m As Double, n As Integer
s = 0 '麦子总数
m = 1 '当前格麦子数
n = 1 '格子数
Do While n <= 64 '不超过64个格子则循环
m = 2 * m '麦子翻倍
s = s + m '加到总数里
n = n + 1 '下一格
Loop
Print "棋盘上的麦粒能供全球60亿人吃" & Int(s * 0.2 / 500 / 6000000000# / 365) & "年"
End Sub

---

sum=0
for i = 0 to 63
sum=sum+(2^i) '计算棋盘上米粒总数

next i
s=sum*0.2 '米粒总克数

a=6000000000*500*365.25 '60亿人每年所吃米克数

n=s/a '全球60亿人所吃年数

msgbox("可以吃" & n & "年") '输出结果

=================================
我暂时没有vb环境，所以代码没有经过测试，可能会有些小的错误。
希望对你有所帮助~

---

私人小组Command1_Click（）
昏暗的小号双M为双，n为整数
= 0'的小麦总人数
米= 1'号的Gemai子
? = 1'格子数
当N <= 64“超过64点阵的循环
M = 2 * M'小麦一倍
S = S + M'被添加到总数的
N = N + 1“下一帧
回路
打印”棋盘上的一粒麦子为6000万世界各地的人们吃“及诠释（* 0.2 / 500/6亿/ 365）＆“年”
END SUB

---