Name
Rnd Function
Syntax
Rnd[(seed
)]
-
seed
Use: Optional
Data Subtype: Single
Any valid numeric expression.
Return Value
A random number of variant subtype Single.
Description
Returns a random number.
Rules at a Glance
The behavior of the
Rnd
function is determined byseed
, as described in this table:
Number |
|
---|---|
< 0 |
The same number each time, using |
> 0 |
The next random number in the current sequence |
0 |
The most recently generated number |
Not supplied |
The next random number in the current sequence |
The
Rnd
function always returns a value between and 1.If number isn’t supplied, the
Rnd
function uses the last number generated as the seed for the next generated number. This means that given an initial seed (seed
), the same sequence is generated if number isn’t supplied on subsequent calls.
Example
The following example uses the Randomize
statement
along with the Rnd
function to fill 100 cells of
an Excel worksheet with random numbers:
Public Sub GenerateRandomNumbers( ) Dim objExcel, objBook, objSheet Dim intRow, intCol ' Start Excel Set objExcel = CreateObject("Excel.Application") ' Get or create active worksheet If objExcel.ActiveSheet Is Nothing Then Set objBook = objExcel.Workbooks.Add End If Set objSheet = objExcel.ActiveWorkbook.ActiveSheet Randomize ' make Excel visible objExcel.Visible = True ' Set the color of the input text to blue objSheet.Cells.Font.ColorIndex = 5 ' Loop through first 10 rows & columns, ' filling them with random numbers For ...
Get VBScript in a Nutshell now with the O’Reilly learning platform.
O’Reilly members experience books, live events, courses curated by job role, and more from O’Reilly and nearly 200 top publishers.