一个随机生成1到100随机数的VB程序

下面是一个生成1到100之间随机数的 Visual Basic 程序示例：

Imports System

Module Program
    Sub Main(args As String())
        Dim rand As New Random()
        Dim randomNumber As Integer = rand.Next(1, 101)
        Console.WriteLine("随机数: " & randomNumber)
    End Sub
End Module

在上述示例中，我们使用了 `Random` 类来生成随机数。`Next` 方法接受两个参数，分别是生成随机数的下限（包含）和上限（不包含）。在这里，我们将下限设置为1，上限设置为101，以确保生成的随机数在1到100之间。最后，我们使用 `Console.WriteLine` 将生成的随机数输出到控制台。

你可以将以上代码保存为一个 .vb 文件，并使用 Visual Basic 编译器进行编译和执行。执行程序后，将会输出一个在1到100之间的随机数。每次运行程序，生成的随机数都会不同。