用VB语言编写代码 在象棋的的棋盘第一格放一颗麦粒,第二格放两颗麦粒,第三格放四颗麦粒,每？

Private Sub Command1_Click()

s = 1

t = 1

For i = 2 To 64

  t = t + t

  s = s + t

Next i

Print "64个格子全部放完尺正麦子陵做悔胡喊，"

Print "总共为"s"粒"

End Sub

For I = 1 To n

s = s + p

p = 2 ^ I

Next I

I = 1

Do While I <租拦= n '这里氏磨应该是小于等于N 不是小于N

s = s + p

p = 2 ^ I

I = I + 1

Loop

吃多少弊核胡年的问题: s * 0.2 / (500 * 6000000000# * 365)

结果为 3369.27年

用循洞乎环蠢培来做啊带颤唯

Private Sub Command1_Click()

Dim n As Long

n = Val(Text1.Text)

For i = 1 To n Step 1

s = s + Exp(Log(2) * (i - 1))

Next

Text2.Text = s

End Sub

---