在VB（Visual Basic）中显示随机产生的数据，你可以使用`Rnd`函数来生成随机数，并使用循环和条件语句来处理和显示这些数。以下是一些示例代码，展示了如何在VB中生成和显示随机数：
生成随机整数并显示
生成1到10之间的随机整数
```vb
Dim 随机数 As Integer
随机数 = Int（（10 * Rnd） + 1）
MsgBox 随机数 ' 弹出对话框显示生成的随机数
```
生成1到100之间的随机整数
```vb
Dim MyValue As Integer
MyValue = Int（（100 * Rnd） + 1）
Print MyValue ' 打印出这个随机数
```
生成100个1到1000之间的随机整数并在Text中显示
```vb
Private Sub Form_Load（）
Dim a（100） As Integer
Randomize
For k = 1 To 100
a（k） = Int（Rnd（） * 1000）
Text1.Text = Text1 & Str（a（k）） & vbCrLf ' 将随机数添加到Text1控件中，每个数占一行
Next k
End Sub
```
生成随机小数并显示
生成0到1之间的随机小数
```vb
Dim 随机数 As Single
随机数 = Rnd
MsgBox 随机数 ' 弹出对话框显示生成的随机数
```
生成指定范围的小数，比如1.5到2.5之间
```vb
Dim 随机数 As Single
随机数 = Rnd * 1.5 + 1.5 ' 生成1.5到2.5之间的随机小数
MsgBox 随机数 ' 弹出对话框显示生成的随机数
```
显示随机数据到文本框
将随机数显示在Label控件中
```vb
Private Sub Command1_Click（）
Dim i As Integer
For i = 1 To 10
num（i） = Int（Rnd * 100 + 99） ' 生成0到99之间的随机数
Next i
Label1.Text = "" ' 清空Label1的文本
For i = 1 To 10
Label1.Text = Label1.Text & num（i）.ToString & " " ' 将随机数添加到Label1中
Next i
End Sub
```
将随机数显示在TextBox控件中
```vb
Private Sub Form_Load（）
Dim a（100） As Integer
Randomize
For k = 1 To 100
a（k） = Int（Rnd（） * 1000）
Text1.Text = Text1 & a（k）.ToString & vbCrLf ' 将随机数添加到Text1控件中，每个数占一行
Next k
End Sub
```
这些示例代码展示了如何在VB中生成和显示随机整数和小数。你可以根据需要修改这些代码，以适应你的具体需求。