在VB（Visual Basic）中，可以使用以下几种方法来生成随机数：
使用 `Rnd` 函数
`Rnd` 函数用于生成一个大于等于 0 且小于 1 的单精度浮点数。
语法：`Rnd（[number]）`，其中 `number` 是可选参数，用于初始化随机数生成器的种子值。如果不提供该参数，则使用系统时间作为种子值。
示例代码：
```vb
Dim randomNum As Single
randomNum = Rnd()
MsgBox randomNum
```
使用 `Randomize` 函数
`Randomize` 函数用于初始化随机数生成器的种子值。
语法：`Randomize（[number]）`，其中 `number` 是可选参数，用于提供一个种子值。如果不提供该参数，则使用系统时间作为种子值。
示例代码：
```vb
Randomize
Dim randomNum As Integer
randomNum = Int(Rnd() * 100) + 1
MsgBox randomNum
```
使用 `Random` 类
可以创建一个 `Random` 对象，并使用其 `Next` 方法生成指定范围内的随机整数。
示例代码：
```vb
Dim rand As New Random()
Dim num As Integer = rand.Next(1, 101)
```
生成随机字符串
VB 还提供了生成随机字符串的方法。
示例代码：
```vb
Function RandomString(length As Integer) As String
Dim i As Integer
Dim str As String
Dim chars As String = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789"
For i = 1 To length
str = str & chars(CInt(Rnd() * chars.Length) + 1)
Next
Randomize
Return str
End Function
```
生成随机数组
可以使用循环和 `Rnd` 函数来生成随机数组。
示例代码：
```vb
Dim arr(10) As Integer
Randomize
For i = 0 To 10
arr(i) = Int(Rnd() * 100) + 1
Next i
```
使用 `CryptographicServiceProvider` 类
可以使用 `CryptographicServiceProvider` 类来生成更安全的随机整数。
示例代码：
```vb
Dim crypto As New CryptographicServiceProvider()
Dim randomNum As Integer = crypto.NextInt(minValue, maxValue)
```
这些方法可以满足不同场景下生成随机数的需求。根据具体需求选择合适的方法即可。
