VB判断是否为素数

Function shu(x As Integer) As Boolean
Dim i As Integer
For i = 2 To Sqr(x)
If x Mod i = 0 Then
Exit For
Else
shu = True
End If
Next i
shu = False
End Function

Private Sub Form_Click()
Dim n As Integer
n = Val(InputBox("请输入一个数："))
Print n & "是素数吗：" & shu(n)
End Sub

为什么，弄出来都是 False呢？

Function shu(x As Integer) As Boolean
Dim i As Integer
shu = True
For i = 2 To Sqr(x）
If x Mod i = 0 Then
shu = False
Exit For
End If
Next i

End Function

Private Sub Form_Click()
Dim n As Integer
n = Val(InputBox("请输入一个数："))
Print n & "是素数吗：" & shu(n)
End Sub

写程序太麻烦。告诉你方法吧。设i=2.先判断输入的整数是否为1和2 。如果是1，直接反回索数。如果是2反回非素数。如果不是1，2。则进入循环把整数除i ，判断余数>0并且i<整数，i++。一旦出现余数=0侧为反回非素数，如果循环完了还没有，反回素数。原理：是素数只1与自身整除。