vb6产生一个随机数

在VB6中，可以使用Rnd函数来生成一个随机数。Rnd函数会返回一个大于等于0且小于1的随机数。

如果想要生成一个介于最小值和最大值之间的随机整数，可以使用以下代码：

Dim minValue As Integer
Dim maxValue As Integer
Dim randomNumber As Integer

minValue = 1 ' 设置最小值
maxValue = 100 ' 设置最大值

Randomize ' 初始化随机数种子

randomNumber = Int((maxValue - minValue + 1) * Rnd + minValue)

MsgBox randomNumber ' 显示随机数

以上代码首先声明最小值和最大值的变量，然后使用Randomize函数初始化随机数种子。接着使用Rnd函数生成一个介于0和1之间的随机数，并使用乘法和加法运算将其转换为介于最小值和最大值之间的随机整数。最后使用MsgBox函数显示生成的随机数。

注意，在使用Rnd函数生成随机数之前，一定要使用Randomize函数对随机数种子进行初始化，以确保每次运行都能生成不同的随机数。