使用Visual Basic识别质数时的错误排查求助

核心错误点 #

你的代码存在两个致命逻辑错误，这是导致9的奇数倍数被误判为质数的根本原因：

1. 代码执行顺序完全错误：For x = 2 To (n - 1)循环在读取用户输入的n之前就执行了，此时n未被赋值（VB中Integer默认值为0），循环条件2 To -1不成立，循环根本不会运行，x始终保持初始值0。就算你把循环挪到n赋值之后，原循环也是空的——只是让x从2跑到n-1，没有在循环中检查n是否能被x整除，最后只用x的最终值（即n-1）做一次取模判断，这完全不符合质数的判断逻辑。
   • 举个例子：当n=9时，若循环在n赋值后执行，x最终会变成8，9 Mod 8 = 1 ≠ 0，所以程序误判为质数；n=27时，x最终是26，27 Mod 26=1≠0，同样误判。
2. 添加n mod 9 <>0的判断无效：这个逻辑只能排除9的倍数，但无法判断其他非质数（比如15、21等），而且它不能替代完整的质数判断逻辑，本质上是治标不治本。

修正后的代码 #

以下是符合质数判断逻辑的VB代码，同时做了效率优化：

Module Module1
    Sub Main()
        Dim n As Integer
        Dim isPrime As Boolean = True
        
        Console.WriteLine("Enter number")
        ' 处理非整数输入的情况
        If Not Integer.TryParse(Console.ReadLine(), n) Then
            Console.WriteLine("输入无效，请输入整数。")
            Console.ReadLine()
            Return
        End If
        
        Select Case n
            Case Is < 2
                Console.WriteLine("Not Prime")
            Case 2
                Console.WriteLine("Prime")
            Case Else
                ' 优化：只遍历到n的平方根，减少循环次数
                Dim maxDivisor As Integer = Math.Sqrt(n)
                ' 先判断是否为偶数，避免后续循环遍历偶数
                If n Mod 2 = 0 Then
                    isPrime = False
                Else
                    ' 从3开始，步长为2，只遍历奇数
                    For x As Integer = 3 To maxDivisor Step 2
                        If n Mod x = 0 Then
                            isPrime = False
                            Exit For ' 找到因数后立即退出循环，提升效率
                        End If
                    Next
                End If
                Console.WriteLine(If(isPrime, "Prime", "Not Prime"))
        End Select
        
        Console.ReadLine()
    End Sub
End Module

代码说明 #

• 输入验证：用Integer.TryParse确保用户输入的是有效整数，避免程序崩溃。
• 质数逻辑：
  • 小于2的数直接判定为非质数；
  • 2是唯一的偶质数，单独判定；
  • 大于2的数，先判断是否为偶数（偶数除了2都是非质数）；
  • 遍历从3到√n的奇数（因为如果n有大于√n的因数，必然对应一个小于√n的因数，这样能大幅减少循环次数），只要找到能整除n的数，就判定为非质数并退出循环。

内容的提问来源于stack exchange，提问作者Clutch_PainX