函数VBA：Rnd

描述

VBA Rnd 函数返回一个小于 1 且大于或等于 0 的随机数。

语法 Rnd

Rnd

示例 VBA Rnd

Rnd函数返回值的一些示例：

Sub RndExample1()
    
    Randomize
    
    MsgBox Rnd '返回，例如：0.1790262
    MsgBox Rnd '返回，例如：0.734448
    MsgBox Rnd '返回，例如：0.4870669
    MsgBox Rnd '返回，例如：0.9100572
    MsgBox Rnd '返回，例如：0.7860449
    MsgBox Rnd '返回，例如：0.1607063
    
End Sub

在使用 Rnd 函数之前，始终将 Randomize 语句添加到您的过程或函数中，以便随机数不会重复。

让我们使用 Rnd 函数生成一个从 1 到 10 的随机整数：

Function RandomNumber()
    
    Randomize
    
    RandomNumber = Int(Rnd * 10 + 1)
    
End Function

Sub RndExample2()
    
    MsgBox RandomNumber '返回，例如：6
    MsgBox RandomNumber '返回，例如：2
    MsgBox RandomNumber '返回，例如：10
    MsgBox RandomNumber '返回，例如：7
    MsgBox RandomNumber '返回，例如：9
    MsgBox RandomNumber '返回，例如：1
    MsgBox RandomNumber '返回，例如：8
    
End Sub