Question

十万火急！！！急求VB高手帮我做一下这倒程序改错题，每个FOUND的下一行都有错误，请改正！

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

'题目：以下程序段用于输出100-300的所有素数

'------------------------------------------------
Option Explicit

Private Sub Form_Click()
Dim n As Integer, k As Integer, i As Integer, swit As Integer
For n = 101 To 300 Step 2
k = Int(Sqr(n))
i = 2
'**********FOUND**********
swit = 1
'**********FOUND**********
While swit = 0
If n Mod i = 0 Then
swit = 1
Else
'**********FOUND**********
i = i - 1
End If
Wend
If swit = 0 Then
Print n;
End If
Next n
End Sub

Answer 1

Private Sub Form_Click()
Dim n As Integer, k As Integer, i As Integer, swit As Integer
For n = 101 To 300 Step 2
k = Int(Sqr(n))
i = 2
'**********FOUND**********
swit = 0
'**********FOUND**********
While i <= k
If n Mod i = 0 Then
swit = 1
i = k + 1
Else
'**********FOUND**********
i = i + 1
End If
Wend
If swit = 0 Then
Print n;
End If
Next n
End Sub

追问

你估计自己这三个空能答对几个？我就要考试了，很着急，需要正确答案。

追答

肯定全部正确，经过测试的。