写一个"写入顺序文件求1-100的所有质数"的程序,该怎么处理

写一个"写入顺序文件求1-100的所有质数"的程序
书上的代码:
Private   Sub   Command1_Click()
Dim   intnum   As   Integer,   int1   As   Integer,   int2   As   Integer
Open   "c:\1.txt "   For   Output   As   #1
intnum   =   0
For   int1   =   2   To   100
        For   int2   =   2   To   int1   \   2
        If   (int1   Mod   int2)   =   0   Then
        Exit   For
        End   If
       
Next
       
       
       
        If   int2   >   int1   \   2   Then
        intnum   =   intnum   +   1
        Write   #1,   int1
        End   If
        Next
        Print   intnum
        Close   #1
       

End   Sub

我的答案
Private   Sub   Command1_Click()
Dim   intnum   As   Integer,   int1   As   Integer,   int2   As   Integer
Open   "c:\1.txt "   For   Output   As   #1
intnum   =   0
For   int1   =   1   To   100
        For   int2   =   2   To   int1   \   2
        If   (int1   Mod   int2)   =   0   Then
        Exit   For
        End   If
       
Next
       
       
       
        If   int2   >   int1   \   2   Then
        intnum   =   intnum   +   1
        Write   #1,   int1
        End   If
        Next
        Print   intnum
        Close   #1
       

End   Sub


不知道哪个是对的,感觉书上错了!


[解决办法]
1-100内,试除2,3,5,7四个数就够了
[解决办法]
谁对谁错运行一下不就明白了？
按照你的写法，数字1也会被认为是质数