VB完成1+2+3+4...+100

Question

国际象棋的棋盘正方形.8*8共64个方格.
第1格1个麦子.第2格2个麦子.第3格4个麦子.第4格8个麦子.依此类推,放完64格麦子.用VB循环语句来计算一共要放的麦子
M记录各格所放的麦子数.
S记录所放的麦子总数.
Private sub form_click()
m= 1
s=1
for i=( ) to( )
m=( )
s=( )

添语句进括号裏面!!!thank!!
我的题目写错了...题目不是来的...
真正的问题是里面的

Answer 1

'....文不对题....

'你的题目 1+2+3+4+...+100 这样求
Dim X As Long
X = 100
Print X * (X + 1) / 2
'或
Dim X,F As Integer
For F = 1 To 100
X = X + F
Next
Print X

'你的问题这样求

M= 1
S=1
For I = 1 To 64
M=S
S=M * 2
Next
Print S
'或者
S = (2 ^ 64) - 1
Print S

'我的是正确的

' 目前 只有 ben1222 沾边 其他全错.

Answer 2

VB完成1+2+3+4...+100

只实现1到100的连加嘛？

Private Sub Command1_Click() ‘我用的是按钮的单击事件出发
For i = 1 To 100 ’循环100次
Sum = Sum + i ’上来SUM是0 I=1
Print Sum
Next
End Sub

如果是你的那个放麦子的问题，好像不是1－－100的连加问题吧？每次都是以乘2的方式增加

Answer 3

Private sub form_click()
m= 0
s=1
for i=(2 ) to(100)
m=(i )
s=(s+m)
next i
感觉太麻烦
直接这样也可以实现
Private sub form_click()
s=0
for i =(1)to( 100) step (1 )
s=( s+i)
next i print "1+2+...+100=";s

Answer 4

for i=2 to 64
m=2^(i-1)
s=s+m
s初值为1，就是从第二个格开始放麦子
所以i从2开始本回答被提问者采纳

Answer 5

如果是放麦子的那个问题
总数 = (2 ^ 格子数) - 1
可由等比数列求和公式推得...