在Visual Basic（VB）中，生成随机数可以通过使用`Rnd`函数来实现。以下是一些基本的示例代码，展示了如何在VB中编写随机数生成程序：
生成指定范围内的随机整数
```vb
Private Sub Command_Click（）
Dim MyValue As Integer
Randomize ' 初始化随机数生成器
MyValue = Int（（100 * Rnd） + 1） ' 生成1到100之间的随机整数
Print MyValue ' 打印随机数
End Sub
```
生成指定范围内的随机小数
```vb
Private Sub Command_Click（）
Dim MyValue As Double
Randomize ' 初始化随机数生成器
MyValue = Rnd ' 生成0到1之间的随机小数
Print MyValue ' 打印随机小数
End Sub
```
生成多个随机数并比较
```vb
Private Sub Command_Click（）
Dim arr（2） As Integer
Dim i, a, b As Integer
Randomize ' 初始化随机数生成器
For i = 1 To 1000
a = Int（Rnd * 2）
b = Int（Rnd * 2）
arr（a + b） = arr（a + b） + 1 ' 记录组合出现的次数
Next i
MsgBox "全正： " & arr（2） & vbNewLine & "全反： " & arr（0） & vbNewLine & "正反： " & arr（1） ' 显示结果
End Sub
```
自定义随机数生成函数
```vb
Public Function Get_RandNum（fromNum As Integer, toNum As Integer） As Integer
If fromNum > toNum Then
MsgBox "起始值必须小于结束值"
Exit Function
End If
Dim RunTime As Integer
Randomize
RunTime = Int（（toNum - fromNum + 1） * Rnd + fromNum）
Get_RandNum = RunTime
End Function
```
使用数组模拟掷骰子
```vb
Private Sub Command1_Click（）
Dim arr（5, 5） As Integer
Dim i, x, y, z As Integer
Randomize
For i = 1 To 5
For y = 1 To 5
x = Get_RandNum（1, 6） ' 生成1到6之间的随机数
arr（i, y） = x
Next y
Next i
' 打印数组内容
For i = 1 To 5
For y = 1 To 5
Print arr（i, y）；
Next y
Next i
End Sub
```
以上代码展示了如何在VB中生成不同类型的随机数，并提供了几个示例程序，您可以根据需要修改和扩展这些代码。需要注意的是，在调用`Rnd`函数之前，应该先调用`Randomize`语句来初始化随机数生成器