生成随机数VBA

Question

我正在尝试生成一个随机数并使用标签显示它。这是我的代码：

    Dim Random As Integer
Random = Int((3 * Rnd) + 1)
Label108.Caption = Random

为什么我的标签不会更改为介于1和1之间的随机数。 3

根据评论中的相关问题更新

Private Sub Form_Load()
    Dim Random As Integer
Random = Int((3 * Rnd) + 1)
Label108.Caption = Random

Label8.Caption = Format(Date, "dddd dd mmmm yyyy")
Label14.Caption = Environ("username")

Answer 1

Random的值在1到3之间变化，你可以通过运行它来看到，

Dim Random As Integer Random = Int((3 * Rnd) + 1) MsgBox Random

这个问题与Label108.Caption = Random有关，我不确定这条线在做什么？