在Visual Basic（VB）中生成20到50之间的随机数，可以使用以下方法：
方法一：使用 `Rnd` 函数和类型转换
```vb
Dim num As Integer
Randomize
num = Int（（50 - 20 + 1） * Rnd + 20）
Debug.Print num
```
方法二：使用 `Randomize` 和循环
```vb
Dim num As Integer
Randomize
Do
num = Int（Rnd * 31） + 20
Loop Until num > 50
Debug.Print num
```
方法三：使用自定义函数
```vb
Function GetRandom（under As Integer, over As Integer） As Integer
If under < over Then
Dim temp As Integer
temp = under
under = over
over = temp
End If
GetRandom = Int（（under - over + 1） * Rnd + over）
End Function
Dim num As Integer
Randomize
num = GetRandom（20, 50）
Debug.Print num
```
方法四：使用 `Random` 类（适用于VB.NET）
如果你使用的是VB.NET，可以使用 `Random` 类来生成随机数：
```vb
Imports System.Random
Dim random As New Random（）
Dim randomNumber As Integer = random.Next（20, 51） ' 生成20到50之间的随机数
Console.WriteLine（randomNumber）
```
建议
方法一和 方法二是VB中常用的生成指定范围内随机数的方法，简单且高效。
方法三提供了一个自定义函数，使得生成随机数更加灵活和可重用。
方法四适用于VB.NET环境，如果你使用的是VB.NET，建议使用这种方法。
选择适合你需求的方法即可。