Question

设计vb算法输出所有能被7整除的三位奇数,并统计它们的个数

Answer 1

dim a as integer

for i =100 to 999

if i mod 7 = 0 and i mod 2 0 then

print i

a = a + 1

end if

next

msgbox "能被7整除的三位奇数的总个数为:" & a