中科新闻网日本大学录取率:用VB编程啊?????
来源：百度文库 编辑：中科新闻网 时间：2024/05/11 18:58:23
用VB编程啊?????
求1到100之间能被3整除但不能被2整除所有数的和
求1到100之间能被3整除但不能被2整除所有数的和
dim i as integer ,j as long
for i= 1 to 100
if i mod 3=0 and i mod 2<>0 then
j=j+i
end if
next i
816
---------
dim sum,i
for i=1 to 100
if (i mod 3 =0) and (i mod 2=0) then sum=sum+i
next
msgbox sum