在“**************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