Simone
在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() 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
