啊

有一道题目不会解决 谁能帮我啊

private sub form_click()

m=1

s=1

for i=( ) to( )

m=()

s=()

next i

print"一共要方“s；”可麦子“

end sub

一个人要求在8×8个方格的棋盘放麦子

要求在棋盘的第一各放1粒麦子，

第二各放2粒

第三个放4粒

第四个放8粒

以后每个放的粒数是前一格的两倍

就这样放完64各 代码如上

谁帮我啊

Private Sub Command1_Click()
Dim a(1 To 64) As Double
Dim i As Integer
a(1) = 1
For i = 2 To 64
a(i) = a(i - 1) * 2
Next
For i = 1 To 64
Print a(i); Spc(4);
If i Mod 8 = 0 Then Print
Next
End Sub

Private Sub Form_Click()

m = 1 '第一格个数
s = 1 '总个数
For i = 1 To 64 - 1
m = 2 ^ i '第i+1格个数
s = s + m '总和
Next i

Print "一共要放" & s & "可麦子"
End Sub

[此贴子已经被作者于2005-12-25 22:42:53编辑过]

帮忙者万岁