各位哥哥姐姐帮我完成一些问题

都是把for－next转换为do while 语句来实现一下代码

这个是要求计算从1加到100的值的

private sub form-click()

s=0

for i = 1 to 100 step 1

s = s+i

next i

print "1+2+3......+100=" ; s

end sub

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

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

第二各放2粒

第三个放4粒

第四个放8粒

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

就这样放完64各 代码：

private sub form_click()

m=1

s=1

for i= 2 to 64

m= m*2

s= s+m

next i

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

end sub

虽然是简单的问题 但一定要帮啊。。。。。