VB题。帮忙

来源：百度知道 编辑：UC知道 时间：2024/05/25 22:12:09
输出1~50之间，能被3整除的数,并累加这些数的和。
答案都不对。。。谁再帮我解决一下啊，我加分，承诺。

dim result as integer
for i=1 to 50
if i mod 3=0 then
result=result + i
endif
next
debug.print result

dim i as integer
dim sNum as string '能被3整除的数列表
dim iSum as integer '能被3整除的数的和
const iDig as integer = 50
iSum = 0
i=1
while i*3 < iDig
sNum = sNum & str(i * 3)
iSum = iSum + i * 3
i = i + 1
wend

for i = 1 to 50
if i mod 3 =0 then
print i & " ";
s=s+i
next
print
print s
next