新建From1（窗体），新建Command1（按钮CommandButton），代码：

Private Sub Command1_Click()
    Dim intN As Integer
    Randomize    ' 对随机数生成器做初始化的动作，
    intN = Int(6 * Rnd + 1)    ' 生成 1 到 6 之间(包括6）的随机整数。
    MsgBox intN
End Sub

公式如下：

Int((upperbound - lowerbound + 1) * Rnd + lowerbound)

这里，upperbound 是随机数范围的上限，而 lowerbound 则是随机数范围的下限。