Rnd

　　這個函數是用來取得0與1之間的隨機數字，例子如下：

Print Rnd

利用Rnd，我們可以製作一些不同的遊戲，例如猜拳的小遊戲：

Private Sub Command1_Click()
Randomize Timer '使亂數不重覆
'1 = 石頭
'2 = 剪刀
'3 = 布
    a = Int(Rnd * 3 + 1) '取得1到3的亂數
    If Option1.Value Then '對方出石頭
        Select Case a
            Case 1
                Label1.Caption = "和:電腦出石頭"
            Case 2
                Label1.Caption = "勝:電腦出剪刀"
            Case 3
                Label1.Caption = "敗:電腦出布"
        End Select
    ElseIf Option2.Value Then '對方出剪刀
        Select Case a
            Case 1
                Label1.Caption = "敗:電腦出石頭"
            Case 2
                Label1.Caption = "和:電腦出剪刀"
            Case 3
                Label1.Caption = "勝:電腦出布"
        End Select
    Else '對方出布
        Select Case a
            Case 1
                Label1.Caption = "勝:電腦出石頭"
            Case 2
                Label1.Caption = "敗:電腦出剪刀"
            Case 3
                Label1.Caption = "和:電腦出布"
        End Select
    End If
End Sub

　　由於電腦會依照內裡的函數表列出亂數，因此不加上Randomize的話亂數就會重覆，詳情請看函數介紹Randomize的單元。

　　a = Int(Rnd * 3 + 1)這一行用來尋找1與3之間的亂數，但這是如何運作的呢？首先a是變動，用來拿取亂數的值，Rnd只會傳回0與一之間的亂數，因此要把它倍大再加一，利用Int函數除去小數位就得到一至三的亂數整數了！