在某範圍內取得亂數：

如何在某範圍內取得亂數？這是大部份網友會問的問題：

Private Sub  Form_Load()
　Text1 = "請輸入下限"
　Text2 = "請輸入上限"
End Sub

Private Function GetRandomNumber(Min As Integer, Max As Integer) As Integer
　If Int(Max) <= Int(Min) Then Err.Raise 32767, , "下限值大於上限值"
　If Min < 0 Then Err.Raise 32767, , "下限小於零"
　Randomize Timer
　GetRandomNumber = Int(Rnd * (Max - Min + 1) + Min)
End Function

Private Sub Command1_Click()
　'用法範例
　Print GetRandomNumber(Text1, Text2)
End Sub

上一頁