输出100至200之间所有能被5或7整除的整数？

(没有vb环境，所以只写了开始和结束语之间的语句)在窗体的单击事件中：

for i=1 to 20

a=int(rnd*(200-100+1)+100)

if a mod 3=0 then

print a

s=s+a

end if

next i

if s>0 then print s