vb程序，求素数的~其循环有错误可是我检查不出

Private Sub Command1_Click()
n = 2'这里改为n=2
Do While n < 100
flag = 0
For I = 2 To Sqr(n)'这里少了个n
If n Mod I = 0 Then
flag = 1
Exit For
End If
Next I
If flag = 0 Then Print n;'这里的冒号改为分号
If n Mod 10 = 0 Then Print
n = n + 1
Loop
End Sub

Private Sub Command1_Click()
Print "素数如下："
n = Val(InputBox(""))
For i = 2 To n - 1
If n Mod i = 0 Then
GoTo re
ElseIf n Mod i <> 0 Then
Print i,
m = m + 1
If n Mod 5 = 0 Then Print
End If
re:
Next i
End Sub
我做的一个
Private Sub Command1_Click()
n = 1
Do While n < 100
flag = 0
For I = 2 To n - 1
If n Mod I = 0 Then
flag = 1
Exit For
End If
Next I
If flag = 0 Then Print n;
l = l + 1
If n Mod 10 = 0 Then Print
n = n + 1
Loop
End Sub
这个代码，你换行不对

Private Sub Command1_Clic