在Visual Basic（VB）中生成随机数可以通过以下几种方法：
方法一：使用 `Rnd` 函数
`Rnd` 函数可以生成一个大于等于 0 且小于 1 的单精度随机数。你可以通过乘以一个数值并将其加上另一个数值来将随机数调整到所需的范围内。
例如，生成 1 到 10 之间的随机整数：
```vba
Dim 随机数 As Integer
随机数 = Int（（10 * Rnd） + 1）
MsgBox 随机数
```
生成 50 到 100 之间的随机整数：
```vba
Dim 随机数 As Integer
随机数 = Int（（51 * Rnd） + 50）
MsgBox 随机数
```
生成 0 到 1 之间的随机小数：
```vba
Dim 随机数 As Single
随机数 = Rnd
MsgBox 随机数
```
方法二：使用 `Random` 类
在 VB.NET 中，你可以使用 `Random` 类来生成随机数。以下是一个示例代码，展示如何生成 1 到 100 之间的随机整数：
```vb
Dim random As New Random（）
Dim randomNumber As Integer = random.Next（1, 101）
Console.WriteLine（randomNumber）
```
方法三：使用 `Randomize` 函数
在使用 `Rnd` 函数之前，通常需要先调用 `Randomize` 函数来初始化随机数生成器。这可以确保每次运行程序时生成的随机数序列都不同。
```vba
Private Sub Command_Click（）
Randomize
Dim MyValue As Integer
MyValue = Int（（100 * Rnd） + 1）
Print MyValue
End Sub
```
方法四：生成指定范围的随机小数
如果你需要生成指定范围内的随机小数，可以使用以下代码：
```vba
Dim 随机数 As Single
随机数 = Rnd * （上限 - 下限） + 下限
MsgBox 随机数
```
例如，生成 1.5 到 2 之间的随机小数：
```vba
Dim 随机数 As Single
随机数 = Rnd * （2 - 1.5） + 1.5
MsgBox 随机数
```
总结
以上是在 VB 中生成随机数的几种方法。你可以根据具体需求选择合适的方法。对于 VBA（Visual Basic for Applications），主要使用 `Rnd` 函数；对于 VB.NET，则可以使用 `Random` 类。