Visual Basic WinForm质数显示异常：仅输出97|，需实现1-100质数分隔显示

核心问题分析 #

1. 文本内容被覆盖：原代码每次找到质数时直接用=赋值给文本框，会替换掉之前的所有内容，最终仅显示最后一个被判定为质数的数（97）。
2. 质数定义错误：数学上1不属于质数，但原代码将其判定为质数。
3. 状态未重置：checkPrime变量在外层循环外初始化，若前一个数被判定为非质数，checkPrime会保持0，可能导致后续数的判断逻辑出错。

修正后的代码 #

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    IsPrime()
End Sub

Private Sub IsPrime()
    Dim primeText As String = ""
    Dim primeNumber, i As Integer
    
    For primeNumber = 2 To 100 ' 从2开始，排除不符合定义的1
        Dim isPrime As Boolean = True ' 每次判断新数前重置状态
        
        ' 优化：只需判断到质数的平方根，减少冗余计算
        For i = 2 To Math.Sqrt(primeNumber)
            If primeNumber Mod i = 0 Then
                isPrime = False
                Exit For
            End If
        Next
        
        If isPrime Then
            ' 追加质数到字符串，避免覆盖原有内容
            primeText &= primeNumber.ToString & " | "
        End If
    Next
    
    ' 移除末尾多余的" | "，保证格式整洁
    If primeText.Length > 0 Then
        primeText = primeText.Substring(0, primeText.Length - 3)
    End If
    
    Me.Txt_PrimeNumber.Text = primeText
End Sub

关键修改说明 #

• 避免内容覆盖：先用字符串变量primeText累加所有质数，最后一次性赋值给文本框，彻底解决覆盖问题。
• 修正质数范围：循环从2开始，直接排除不符合质数定义的1。
• 重置状态：将质数状态变量isPrime放到外层循环内，每次判断新数前重置为True，避免前一次的判断结果干扰当前数。
• 优化效率：内层循环仅需判断到目标数的平方根，减少不必要的计算次数。
• 格式优化：移除末尾多余的分隔符，让最终显示的格式更规范（如2 | 3 | 5 | ... | 97）。

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