在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.net
Dim random As New Random（）
Dim randomNumber As Integer = random.Next（1, 101）
Console.WriteLine（randomNumber）
```
方法三：生成随机数据
你可以创建一个 VBA 模块，并在其中编写代码来生成随机数据。例如，生成一个 10x10 的随机整数矩阵：
```vba
Sub 生成随机数据（）
Dim rng As Range
Dim rows As Long
Dim cols As Long
Dim i As Long, j As Long
Dim 随机数 As Double
' 设置随机数据范围
On Error Resume Next
Set rng = Application.InputBox（"请选择随机数据的填充区域", Type:=8）
On Error GoTo 0
If rng Is Nothing Then Exit Sub
' 获取范围的行数和列数
rows = rng.Rows.Count
cols = rng.Columns.Count
' 填充随机数据
For i = 1 To rows
For j = 1 To cols
随机数 = Rnd（） * 100 ' 生成0-100之间的随机数
rng.Cells（i, j）.Value = Int（随机数）
Next j
Next i
End Sub
```
方法四：自定义随机数函数
你可以创建一个自定义函数，接受下界和上界作为参数，从而生成在这个闭区间内的随机整数。例如：
```vba
Function 生成指定范围随机数（下限 As Integer， 上限 As Integer） As Integer
Dim 随机数 As Integer
随机数 = Int（（上限 - 下限 + 1） * Rnd + 下限）
生成指定范围随机数 = 随机数
End Function
```
总结
以上是在 VB 中生成随机数的几种方法。你可以根据具体需求选择合适的方法。对于 VBA，`Rnd` 函数是最常用的方法；对于 VB.NET，`Random` 类更为推荐；而在 VBA 中生成随机数据，可以通过输入框选择区域并填充随机数来实现。