在Visual Basic（VB）中生成随机数，可以使用以下方法：
使用Rnd函数
`Rnd`函数可以生成0到1之间的随机数。
若要生成指定范围内的随机数，可以将`Rnd`函数生成的随机数乘以范围的上限，然后加上范围的下限，最后使用`Int`函数取整。
示例代码：
```vb
Dim num As Integer
num = Int（Rnd（） * 100） + 1 ' 生成1到100之间的随机整数
```
使用Randomize语句
`Randomize`语句用于初始化随机数生成器，如果不使用`Randomize`语句，每次生成的随机数都是一样的。
示例代码：
```vb
Randomize
Dim num As Integer
num = Int（Rnd（） * 100） + 1 ' 生成1到100之间的随机整数
```
生成随机字符串
可以使用循环和字符数组来生成指定长度的随机字符串。
示例代码：
```vb
Function RandomString（length As Integer） As String
Dim i As Integer
Dim str As String
Dim chars As String
chars = "0123456789abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ"
For i = 1 To length
str = str & Mid（chars, Rnd（） * chars.Length + 1, 1）
Next i
RandomString = str
End Function
```
使用Random类（VB.NET）
如果使用VB.NET，可以使用`System.Random`类来生成随机数。
示例代码：
```vb
Dim random As New Random（）
Dim randomNumber As Integer = random.Next（1, 101） ' 生成1到100之间的随机数
Console.WriteLine（randomNumber）
```
生成不重复的随机数
可以使用`List（Of Integer）`来存储已生成的随机数，并在生成新随机数时检查是否已存在，直到生成不重复的随机数为止。
示例代码：
```vb
Dim random As New Random（）
Dim generatedNumbers As New List（Of Integer）（）
Do While generatedNumbers.Count < 10
Dim randomNumber As Integer = random.Next（1, 101） ' 生成1到100之间的随机数
If Not generatedNumbers.Contains（randomNumber） Then
generatedNumbers.Add（randomNumber）
End If
Loop
For Each number As Integer In generatedNumbers
Console.WriteLine（number）
Next
```
建议
在VB中，推荐使用`Randomize`语句和`Rnd`函数来生成随机数，因为它们简单且有效。
如果需要生成不重复的随机数，可以考虑使用`List（Of Integer）`和`Random`类来实现。
对于VB.NET，`System.Random`类提供了更强大的随机数生成功能。