用vb写一个随机生成三位数的程序

以下是用 VB 编写的随机生成三位数的程序：

Private Sub btnGenerate_Click()
Dim num As Integer
Randomize
num = Int((999 - 100 + 1) * Rnd + 100)
lblResult.Caption = num
End Sub

该程序使用 Randomize 函数生成随机数种子，然后使用 Rnd 函数生成一个介于 100 和 999 之间的随机整数，并将其显示在标签控件上。

相关问题

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位素数并输出了结果。