请教VB错误解决

修改代码如下：

Private Sub Command1_Click()
Dim i As Integer, j As Integer
Dim m As Integer, sum As Integer
Form1.FontSize = 9
Form1.FontBold = True
Form1.Print "100以内的素数"
i = 1
Do While i < 100
i = i + 1
m = 0
For j = 2 To Sqr(i)
If i Mod j = 0 Then
m = 1
Exit For
End If'if 没有 end if，需要加上
Next j
If m = 0 Then
Print i; Sqr(2)'spr(2)改为sqr(2)，不过为什么要显示sqr(2)呢？
sum = sum + 1
If sum Mod 5 = 0 Then Print
End If
Loop
Print
Print "100以内的素数总共有：" & Str(sum) & "个"
End Sub