在VB中，要实现单击按钮时随机显示一位数的功能，可以使用`Rnd`函数生成随机数，并通过一些条件判断来控制按钮的可见性。以下是一个简单的示例代码：
```vb
Private Sub Command1_Click()
' 初始化随机数生成器
Randomize
' 生成一个0到9之间的随机数
Dim randomNumber As Integer = Int((9 * Rnd) + 1)
' 根据随机数的值显示或隐藏按钮
If randomNumber = 0 Then
Command1.Visible = True
Else
Command1.Visible = False
End If
End Sub
```
在这个示例中，`Randomize`语句用于初始化随机数生成器，确保每次运行程序时生成的随机数序列都是不同的。`Int（（9 * Rnd） + 1）`表达式生成一个0到9之间的随机整数。然后，根据生成的随机数的值来设置按钮`Command1`的可见性。如果随机数为0，按钮可见；否则，按钮隐藏。
你可以将这段代码添加到你的VB项目中，并根据需要进行调整。