国王棋盘小麦问题vb语言“国王有一棋难局,请所有臣民解决.一臣民解决了难局,国王问其要何奖励,该臣民请国王奖给米粒,米粒数按棋盘格数计,第1格放1粒,第2格放2粒,第3格放4粒,第4植物园8粒

Question

国王棋盘小麦问题vb语言
“国王有一棋难局,请所有臣民解决.一臣民解决了难局,国王问其要何奖励,该臣民请
国王奖给米粒,米粒数按棋盘格数计,第1格放1粒,第2格放2粒,第3格放4粒,第4植物园8粒,
直至所有64格放满.该是多少粒?”算出来后,国王惊倒了.
下面我们帮助国王解决这个问题.
1、分析问题(找出已知和未知、列出已知和未知之间的关系)
2、写出解题步骤
3、结果
vb语言!

Answer 1

Private Sub Command1_Click()
Dim s As Double
Dim i As Integer
s = 0
For i = 0 To 63
s = s + 2 ^ i
Next
Text1.Text = s
End Sub
结果:1.84467440737096E+19