Rnd Function

แžแŸ’แžšแžกแž”แŸ‹โ€‹แž…แŸ†แž“แžฝแž“โ€‹แž…แŸƒแžŠแž“แŸ’แž™โ€‹แž˜แžฝแž™โ€‹แžšแžœแžถแž„ โ€‹0 โ€‹แž“แžทแž„โ€‹ 1ย แŸ”

แžœแžถแž€แŸ’แž™โ€‹แžŸแž˜แŸ’แž–แž“แŸ’แž’ แŸ–


Rnd [(Expression)]

แžแž˜แŸ’แž›แŸƒโ€‹แžแŸ’แžšแžกแž”แŸ‹ แŸ–

แž‘แŸ’แžœแŸ

แž”แŸ‰แžถแžšแŸ‰แžถแž˜แŸ‰แŸ‚แžแŸ’แžš แŸ–

Expression: Has no effect, is ignored if provided.

The Rnd function returns decimal fractions ranging from 0 (included) to 1 (excluded) according to a uniform distribution. It uses the Mersenne Twister 19937 random-number generator. To generate random integers in a given range, use a formula like in the example below. A Randomize statement with a defined seed value can be used beforehand, if a predictable sequence of numbers is desired.

Error codes:

5 แž€แžถแžšโ€‹แž แŸ…โ€‹แž”แŸ‚แž”แž”แž‘โ€‹แž˜แžทแž“โ€‹แžแŸ’แžšแžนแž˜แžแŸ’แžšแžผแžœ

แžงแž‘แžถแž แžšแžŽแŸ แŸ–


Sub ExampleRandomSelect
Dim iVar As Integer
    iVar = Int((15 * Rnd) -2)
    Select Case iVar
        Case 1 To 5
            Print "Number from 1 to 5"
        Case 6, 7, 8
            Print "Number from 6 to 8"
        Case Is > 8 And iVar < 11
            Print "Greater than 8"
        Case Else
            Print "Outside range 1 to 10"
    End Select
End Sub