用VB语言编写.求100以内能被3除余1且被5除余2的所有正整数.

dim i%
for i= 1 to 100
if i mod 3=1 and i mod 5=2 then print i
next
再问： 你确定是这个么。
再答： 确定以及肯定 结果是这些，你看有什么问题 22 37 52 67 82 97
再问： 还有7.女朋友说答案正确，辛苦了，谢谢。