VB判断素数问题

给你个判断质数的函数。
代码如下。
＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
Function IsPrime(ByVal n As Long) As Boolean
Dim i As Long
For i = 2 To Int(n / 2)
If n Mod i = 0 Then IsPrime = False: Exit Function
Next
IsPrime = True
End Function

所谓素数是只能被1和自身整除的数.

你的选择语句用的不对，如果是我，我会用"if then"或者用“choose”语句也行的，在好好检查一下吧

看来分数是我的了吧~

'自定义功能，判断素数，声明功能为布朗型，素数为单精度变量
Function isprime(t_I As Integer) As Boolean
'声明一个变量
Dim J As Integer
'初始化判断开关为否
isprime = False
'循环除数从2到目标数字的二分之一
For J = 2 To t_I / 2
'如果能整出的话，那么是复数，退出循环，得出结论FALSE
If t_I Mod J = 0 Then Exit For
'除不净时候，循环下一个数值
Next J
'如果如果这个数字比目标数字的二分之一大的话，那么得出结论TRUE
If J > t_I / 2 Then isprime = True
'结束
End Function