200之内偶数之和（VB解答过程）

Question

如题所述

Answer 1

dim sum
sum=0
For i = 1 To 100
sum=sum+i*2
Next
或者
dim sum
sum=0
For i = 1 To 200
if i mod 2=0 then
sum=sum+i*2
endif
Next

Answer 2

sub form_click()
dim i%,s%
for i=2 to 200 step 2
s=s+i
next
print s
end sub本回答被网友采纳

Answer 3

return (2+200) * 100 / 2

Answer 4

1)
Print (2 + 200) * 100 / 2

2)
N=200
S=0
Do while N>0
S=S+N
N=N-2
Loop
Print S