紫竹姑娘第六问： 代码：
sub m()
dim i as integer , x as integer
x=inputbox("输入一个自然数")
for i=2 to x-1
if x mod i =0 then
exit for
end if
next i
if x=i then
msgbox x &"是质数"
else
msgbox x &"不是质数"
end if
end sub
这是课本上的例题，我觉得好别扭...比如说键盘输入3，进入for 循环，i=2，不满足if语句，i只能为2，此时x=3,i=2,两者不相等，输出“x不是质数”@ @矛盾。。哪错了。。 老汉答曰：本来你有10枚硬币，你藏了一枚，把其余九枚放进了一个盒子中，然后你对男生说：谁要是一次能从这个盒子中抓出10枚硬币，就和谁共进晚餐。结果是你的约会总不能成功。
紫竹姑娘第七问：输出能被17整除的数
我想用 msgbox输出，结果他是一个数一个数的蹦。。。能不能用msgbox一下子都输出来?课本上提供的方法是用debug.print 这种立即窗口输出，但是我想用msgbox。。。是不是用debug.print就一定是从立即窗口里输出么 老汉答曰： Sub Y()
dim i as long
dim str as string
for i=1 to 100
if i mod 17 = 0 then
str=str & i & chr(10) & chr(13)
end if
next
end sub
