Question

Vb Do while|until…Loop 循环语句

输出100-200间能被3整除或者能被5整除的数据，以“sy6-4.vbp”和“sy6-4.frm”文件名保存。帮帮忙 ··

Answer 1

i=100
do while i<=200
if i mod 3=0 or i mod 5=0 then print i
i=i+1
loop

Answer 2

private sub test()
dim i%
i=100
do while i<=200
if test=true then
debug.print i
end if
i=i+1
loop
end sub
private function test(byref i%) as boolean
if val(i mod 3 or i mod 5）=0 then
test=true
end if
end function

Answer 3

dim i=100,
do while
if (i++MOD5 or i++MOD3)==0 then
print:"i"
loop

Answer 4

求整除的问题，用取余数判断是否为零