在VB里是素数的意思，在判断一个数是否为素数的时候会用到。
定义一个判断x是否为素数的函数，判断x是否为素数的方法是：如果x不能被从2到Int(Sqr(x))的数整除，那么这个数就是素数。这里的Prime是一个布尔型变量，只不过没有定义。可以加个Dim prime As BooleanPublic Function prime(x As Integer).
k = Int(Sqr(x) + 0.5);
For i = 2 To k;
If x Mod i = 0 Then '如果x能被这其中的一个数整除,x就不是素数;
prime = False '所以Prime为假;
Exit Function '如果一个数不是素数就退出Function过程;
End If Next prime = ture '如果x都不能被被从2到Int(Sqr(x))的数整除，那么这个数就是素数，即Prime为真;
End Function.
1、函数名已经为Prime了，变量名怎么还可以是Prime？这样引用函数的时候会出错的，建议把Prime改为IsPrime.
2、这个函数不完善，比如2是素数，但引用这个函数判断2的结果是2不是一个素数...给你一个能正确判断一个数是否为素数的代码。
Private Sub Command1_Click( X).
Dim n%, IsPrime As Boolean;
IsPrime = True;
n = Val(InputBox("请输入n的值"));
If n = 1 Or (n <> 2 And n Mod 2 = 0) Then '1和偶数（除2以外）都不是素数;
IsPrime = False;
ElseIf n = 2 Then '偶数的特例：2是素数;
IsPrime = True.
Else '判断奇数是不是素数;k = 3;
Do Until k > Sqr(n) Or Not IsPrime;
If n Mod k = 0 Then;
IsPrime = False Else;
k = k + 2;
End If; Loop End If;
Print n & IIf(IsPrime, "是素数", "不是素数");
End Sub.
本回答被网友采纳