有没有用Visual的质数搜索代码

以下是使用Visual Basic编写的质数搜索代码：

Public Sub FindPrimes(ByVal max As Integer)
    Dim isPrime(max) As Boolean
    Dim i, j As Integer
    
    ' Initialize array to true
    For i = 2 To max
        isPrime(i) = True
    Next i
    
    ' Sieve of Eratosthenes
    For i = 2 To Math.Sqrt(max)
        If isPrime(i) Then
            For j = i * i To max Step i
                isPrime(j) = False
            Next j
        End If
    Next i
    
    ' Print primes
    For i = 2 To max
        If isPrime(i) Then
            Debug.Print i
        End If
    Next i
End Sub

这段代码使用筛法（Sieve of Eratosthenes）来查找小于等于给定整数的所有质数。它首先创建一个布尔数组 `isPrime`，其中 `isPrime(i)` 表示整数 `i` 是否为质数。然后，它将 `isPrime` 数组的所有元素初始化为 `True`。

接下来，它使用 Sieve of Eratosthenes 算法来标记所有非质数。该算法的基本思想是从 2 开始，将所有其倍数标记为非质数，然后继续下一个未标记的数字。

最后，该代码打印出 `isPrime` 数组中值为 `True` 的所有索引，这些索引对应于质数。您可以将 `max` 参数更改为所需的最大值。