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
