vf程序设计1到100之间的偶数之合

来源：百度知道 编辑：UC知道 时间：2024/06/20 02:02:54
速度速度 谢谢各位
详细一点的 本人比较笨

set talk off
s=0 &&s计合,初值为0
for i=2 to 100 step 2 &&i从2变化到100,每次加2
s=s+i &&循环求和
endfor
?s &&显示结果
set talk on

s=0
for i=1 to 100
if mod(i,2)=0
s=s+i
end if
end for

s=0
i=2
while i<101
s=s+i
i=i+2

Dim lngSum As Long

Dim intI As Integer

lngSum=0

For intI=2 To 100 Step 2

lngSum=lngSum+intI

Next intI