VB编写程序 计算1~100内3的倍数的数的和

问题描述:

VB编写程序 计算1~100内3的倍数的数的和

dim x as integer,dim sum as integer
for x=1 to 100
if x mod 3 =0 then
sum=sum+x
end if
next x
print sum