在VB（Visual Basic）中，如果你想要在单击按钮时随机显示一位数，你可以使用以下代码：
```vb
Private Sub Command1_Click（）
' 初始化随机数生成器
Randomize
' 生成一个1到9之间的随机数
Dim n As Integer = Int（Rnd（） * 9） + 1
' 将随机数显示在Text1控件上
Text1.Text = n.ToString（）
End Sub
```
这段代码的工作原理如下：
1. `Randomize` 语句用于初始化随机数生成器，这样每次运行程序时生成的随机数序列都会不同。
2. `Rnd（）` 函数生成一个大于等于0且小于1的随机数。
3. `Int（Rnd（） * 9） + 1` 将随机数乘以9（因为一位数的范围是0到9），然后取整并加1，以确保结果是一个1到9之间的整数。
4. 最后，使用 `ToString（）` 方法将随机数转换为字符串，并将其显示在 `Text1` 控件上。
你可以将这段代码放在VB的窗体事件处理程序中，例如在按钮的 `Click` 事件中。这样，每当用户单击该按钮时，就会显示一个随机的一位数。