编程：输出100~200间不能被3整除的数

以下全是VB写的代码,但只有第一个是完成的函数,你可以通过调用:
dim a as long
a=f(100)
msgbox a
就可以看到1加到100的结果了.
其他只是部份代码,你要查看变量保存的值才能知道结果的.
2,3,4的代码你不要用一个函数调试,那样会产生变量重复定义的错误的.

1.
private function f(byval n as integer) as long
dim i as integer
dim r as long
r=0
for i=1 to n
r=r+i
next i
f=r
end function
'函数f(n)的返回值就是你要的结果了.

2.
dim i as integer
dim r as long
r=0
for i=2 to 50 step 2
r=r+i
next
'r中保存的就是结果.

3.结果输出在立即窗口中.
dim i as integer
dim d as integer
for i=100 to 200
if i mod 3<>0 then
debug.print i
end if
next

4.
dim i as integer
i=int(30*vba.rnd())+1
'i的结果就是你想要的.

你没有说是那种语言啊？
main()
{int i,d;
for(i=100;i<=200;i++)
{if (i%3==0)
printf(i);
}
}