Question

vb程序 下面程序的作用是产生100以内的全部素数，并 按每行5个数据输出。

'------------------------------------------------
'【程序改错】
'------------------------------------------------

'题目：下面程序的作用是产生100以内的全部素数，并
' 按每行5个数据输出。

'------------------------------------------------
'注意：不可增加或删除程序行，也不可以更改程序结构
'------------------------------------------------
Option Explicit

Private Function prime(ByVal n As Integer)
Dim i As Integer
prime = 1
If n <= 1 Then prime = 0
'**********FOUND**********
For i = 1 To n - 1 If n Mod i = 0 Then prime = 0
Next i
End Function

Private Sub Form_Click()
Dim i As Integer, k As Integer
k = 0
For i = 1 To 100
If prime(i) = 1 Then
'**********FOUND**********
Print Tab((k Mod 5) * 8); i
k = k + 1
'**********FOUND**********
If k Mod 4 = 0 Then Print ; End If
Next i
End Sub

请问第二个find下面那里错了，为什么
谢谢

Answer 1

'------------------------------------------------
'【程序改错】
'------------------------------------------------

'题目：下面程序的作用是产生100以内的全部素数，并
' 按每行5个数据输出。

'------------------------------------------------
'注意：不可增加或删除程序行，也不可以更改程序结构
'------------------------------------------------
'================================================
'本题有两个错误，见下说明
'================================================
Option Explicit

Private Function prime(ByVal n As Integer)
Dim i As Integer
prime = 1
If n <= 1 Then prime = 0
'**********FOUND**********
For i = 2 To n - 1 '这行把i = 1 to n-1改为i = 2 to n-1
If n Mod i = 0 Then prime = 0
Next i
End Function

Private Sub Form_Click()
Dim i As Integer, k As Integer

For i = 1 To 100

If prime(i) = 1 Then
'**********FOUND**********
Print Tab((k Mod 5) * 8); i; '这行后面加;号
k = k + 1
'**********FOUND**********
If k Mod 4 = 0 Then Print ;
End If
Next i
End Sub

Answer 2

For i = 1 To n - 1
If n Mod i = 0 Then prime = 0
改为
For i = 2 To n - 1
If n Mod i = 0 Then prime = 0