Vb弄一个随机的三位数偶数

在VB（Visual Basic）中，你可以通过Random对象和一些条件判断来生成一个随机的三位偶数。以下是一个简单的示例：

Sub GenerateRandomEven()
    Dim min As Integer = 100 ' 最小的三位数
    Dim max As Integer = 998 ' 最大的三位数 (因为是偶数，所以最大数比999少1)
    Dim randomNum As Integer
    
    Do While True ' 一直循环直到找到符合条件的随机数
        randomNum = Int((max - min + 1) * Rnd() + min) ' 随机生成一个整数
        If randomNum Mod 2 = 0 Then ' 如果是偶数
            Exit Do ' 找到后退出循环
        End If
    Loop
    
    Console.WriteLine("随机的三位偶数是: " & randomNum)
End Sub

这个程序首先定义了最小值和最大值，然后在一个循环中不断生成随机数，只有当它是偶数时才跳出循环。最后，它会打印出生成的随机三位偶数。