在VB（Visual Basic）编程中，要显示随机产生的数据，你可以使用`Rnd`函数和`Randomize`语句。以下是一些示例代码，展示了如何在VB中生成随机数并显示它们：
生成单个随机数并显示
```vb
Private Sub Command_Click()
Dim MyValue As Integer
MyValue = Int((100 * Rnd) + 1) ' 生成1到100之间的随机整数
Print MyValue ' 打印出这个随机数
End Sub
```
生成多个随机数并显示
```vb
Private Sub Form_Load()
Dim a(100) As Integer
Randomize ' 初始化随机数生成器
For k = 1 To 100
a(k) = Int(Rnd() * 1000) ' 生成1到1000之间的随机整数
Text1 = Text1 & Str(a(k)) & " " ' 将随机数添加到文本框中
Next k
End Sub
```
使用自定义函数生成随机数
```vb
Public Function GetRandomNumber(min As Integer, max As Integer) As Integer
Dim rand As New Random()
Return rand.Next(min, max + 1) ' 返回指定范围内的随机整数
End Function
Private Sub Command_Click()
Dim randomNumber As Integer
randomNumber = GetRandomNumber(1, 100) ' 生成1到100之间的随机整数
Print randomNumber ' 打印出这个随机数
End Sub
```
在窗体上显示随机数
```vb
Private Sub Form_Click()
Dim x As Integer
x = Int(Rnd * 100 + 1) ' 生成1到100之间的随机整数
Print x ' 打印出这个随机数
End Sub
```
这些示例展示了如何在VB中生成和显示随机数。你可以根据自己的需求选择合适的方法。如果你需要在特定范围内生成随机数，可以使用`Int（（max - min + 1） * Rnd + min）`公式。