求s=2+4+6+…+100的和，并用print显示结果。VB

来源：百度知道 编辑：UC知道 时间：2024/06/26 04:23:03
求s=2+4+6+…+100的和，并用print显示结果。
Private Sub Command_Click()

End Sub

Private Sub Command_Click()
For i = 2 To 100 Step 2
s = s + i
Next i
Print s
End Sub

Private Sub Command_Click()
For i = 2 To 100 Step 2
s=0
s = s + i
Next i
Print s
End Sub

Private Sub Command_Click()

Dim s,i
i=0
s=0

for i=1 to 50
s=s+i*2
next i

print "s=";s

End Sub

常规的方法,就是一个一个往上加 代码如下:
Private Sub Command1_Click()
s = 0
For i = 2 To 100 Step 2
s = s + i
Next i
Print " S="; s
End Sub

如果聪明一点 就用通项公式啊
Private Sub Command1_Click()
Print " S="; (2 + 100) * 50 / 2
End Sub

这个东西 爱因斯坦小学的时候就会了.. 还记得他计算1+2+3+4+....+100的方法吗.......