棋盘上米粒问题

来源：百度知道 编辑：UC知道 时间：2024/06/30 16:40:51
在8×8的国际象棋的棋盘上，第一格放一粒米，第二格放二粒米，第三格放四粒米，第四格放八粒米，以此类推，后一格放的米粒的数量是前一格的两倍。请编写一个程序，求出前n格共需要几粒米。
周三前要答案
VB代码！！帮帮忙！
谢谢大家

Private Sub Command1_Click()
Dim nStr As String, N, S
nStr = InputBox("请输入格子数：", "棋盘上米粒问题", 10)
If nStr = "" Then Exit Sub
N = Val(nStr)
S = 2 ^ N - 1
MsgBox "前 " & N & " 格共需要几粒米：" & S, vbInformation
End Sub

好像要20多万吨可以让世界上所有的人2年不吃饭