vb随机生成素数

以下是VB.NET代码，可以随机生成指定位数的素数：

Private Function GeneratePrime(ByVal digits As Integer) As BigInteger
    Dim rand As New Random()
    Dim min As BigInteger = BigInteger.Pow(10, digits - 1)
    Dim max As BigInteger = BigInteger.Pow(10, digits)
    Dim p As BigInteger = 0
    While True
        p = BigInteger.RandomRange(min, max)
        If IsPrime(p) Then
            Exit While
        End If
    End While
    Return p
End Function

Private Function IsPrime(ByVal n As BigInteger) As Boolean
    If n <= 1 Then
        Return False
    End If
    If n <= 3 Then
        Return True
    End If
    If n Mod 2 = 0 OrElse n Mod 3 = 0 Then
        Return False
    End If
    Dim i As BigInteger = 5
    While i * i <= n
        If n Mod i = 0 OrElse n Mod (i + 2) = 0 Then
            Return False
        End If
        i += 6
    End While
    Return True
End Function

使用方法：

Dim prime As BigInteger = GeneratePrime(10) ' 生成10位素数
Console.WriteLine(prime)

其中，`digits` 参数表示生成素数的位数。在上面的示例中，生成了10位素数并输出了结果。