vb编程一直出现错误，这个错误怎么解决？

求1-1000之间的素数个数及他们的和，还有平均数
代码如下
结果错误，请帮我找找原因
Private Sub Form_Click()
    Dim x As Integer, i As Integer, s As Single, n As Single, anv As Single
    s = 0: n = 0
    For x = 1 To 1000
      For i = 2 To Sqr(x)
       If x / i <> x \ i Then
        Print Tab(7 * (x Mod 6) + 2); x;
        s = s + x
        n = n + 1
         Exit For
     End If
     Next i
    
     Next x
     anv = s / n
    
     MsgBox "素数个数为:" & n & "素数和为:" & s & "平均值为：" & anv
 
End Sub

答案：Private Sub Form_Click() Dim x As Integer,  s As Single, n As Single, anv As Single 
for x=1 to 1000
   if x mod 2 <> 0 then
     n=n+1
     s=s+x
  end if
next x
anv=s/n
print "n=" & n;"s=" & s;"anv=" & anv
end sub