在VB（Visual Basic）中生成随机数，可以使用以下方法：
使用Rnd函数
`Rnd`函数用于生成0到1之间的随机小数。
要生成指定范围内的随机整数，可以使用公式 `（最大值 - 最小值 + 1） * Rnd + 最小值`。例如，生成1到100之间的随机整数：
```vba
Dim 随机数 As Integer
随机数 = Int（（100 - 1 + 1） * Rnd + 1）
```
使用Random类
`Random`类可以生成更高质量的随机数。
使用`Random`类的`Next`方法可以生成指定范围内的随机数。例如，生成1到100之间的随机整数：
```vba
Dim random As New Random（）
Dim randomNumber As Integer = random.Next（1, 101）
```
生成随机小数
使用`Single`类型来存储小数，直接使用`Rnd`函数即可生成0到1之间的随机小数：
```vba
Dim 随机数 As Single
随机数 = Rnd
```
生成指定范围的小数
例如，生成1.5到2.5之间的随机小数：
```vba
Dim 随机数 As Single
随机数 = Rnd * （2.5 - 1.5） + 1.5
```
初始化随机数生成器
使用`Randomize`函数来初始化随机数发生器，以确保每次生成的随机数都是不同的。通常在程序开始时调用：
```vba
Randomize
```
示例代码
```vba
' 生成1到10之间的随机整数
Sub 生成随机整数（）
Dim 随机数 As Integer
随机数 = Int（（10 * Rnd） + 1）
MsgBox 随机数
End Sub
' 生成50到100之间的随机整数
Sub 生成指定范围随机整数（）
Dim 随机数 As Integer
随机数 = Int（（100 - 50 + 1） * Rnd + 50）
MsgBox 随机数
End Sub
' 生成0到1之间的随机小数
Sub 生成随机小数（）
Dim 随机数 As Single
随机数 = Rnd
MsgBox 随机数
End Sub
' 生成1.5到2.5之间的随机小数
Sub 生成指定范围随机小数（）
Dim 随机数 As Single
随机数 = Rnd * （2.5 - 1.5） + 1.5
MsgBox 随机数
End Sub
```
通过这些方法，你可以在VB中轻松生成各种范围和类型的随机数。