设计vb算法输出所有能被7整除的三位奇数,并统计它们的个数
问题描述：
设计vb算法输出所有能被7整除的三位奇数,并统计它们的个数
答
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