在VB（Visual Basic）中生成随机数有多种方法，以下是一些常用的方法：
使用内置函数 `Rnd`
`Rnd` 函数返回一个大于等于 0 且小于 1 的单精度浮点数。
若要生成指定范围内的随机整数，可以使用 `Int` 函数进行转换。
示例代码：
```vb
Dim num As Integer
num = Int（Rnd（） * 100） + 1 ' 生成1到100之间的随机整数
```
使用 `Randomize` 语句
`Randomize` 语句用于初始化随机数生成器，如果不使用，每次生成的随机数序列都是相同的。
示例代码：
```vb
Randomize
Dim num As Integer
num = Int（Rnd（） * 100） + 1 ' 生成1到100之间的随机整数
```
使用 `Random` 类
`Random` 类是VB.NET中的一个类，提供了更多生成随机数的方法。
示例代码：
```vb
Dim random As New Random（）
Dim randomNumber As Integer = random.Next（1, 101） ' 生成1到100之间的随机整数
Console.WriteLine（randomNumber）
```
生成随机字符串
除了生成随机数，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（Int（Rnd（） * chars.Length） + 1）
Next
Randomize
Return str
End Function
```
生成不重复的随机数
可以通过数组和循环来实现生成不重复的随机数。
示例代码：
```vb
Private Sub Command1_Click（）
Dim arr（34） As Integer
Dim i As Integer
Randomize
For i = 0 To 34
arr（i） = Int（Rnd（） * 35） + 1
Next
For i = 0 To 34
Dim k As Integer = Int（Rnd（） * 35） + 1
While k = arr（i）
k = Int（Rnd（） * 35） + 1
End While
arr（i）, arr（k） = arr（k）, arr（i）
Next
For i = 0 To 34
Text1.Text = Text1.Text & arr（i）.ToString（） & " "
Next
End Sub
```
根据具体需求选择合适的方法即可。如果需要生成特定范围内的随机数，建议使用 `Random` 类，因为它提供了更多的方法和更高的灵活性。如果需要生成随机字符串，可以使用 `RandomString` 函数。对于需要不重复随机数的情况，可以通过数组和循环来实现。