Rnd-functie
Geeft een willekeurig getal tussen 0 en 1 terug.
Syntaxis:
Rnd [(Expressie)]
Teruggegeven waarde:
Dubbel
Parameters:
Uitdrukking: Heeft geen effect, wordt genegeerd wanneer voorzien.
De functie Rnd geeft een decimale fractie terug tussen 0 (inbegrepen) en 1 (niet inbegrepen) overeenkomstig een willekeurige verdeling. De functie maakt gebruik van de Mesenne Twister 19937 willekeurige-getalgenerator. Gebruik voor het genereren van willekeurige gehele getallen een formule volgens onderstaand voorbeeld. Als een voorspelbare reeks van getallen vereist is, kan ervoor een instructie Randomize met een gedefinieerd startwaarde worden gebruikt.
Voorbeeld:
Sub ExampleRandomSelect
Dim iVar As Integer
iVar = Int((15 * Rnd) -2)
Select Case iVar
Case 1 To 5
Print "Getal van 1 tot 5"
Case 6, 7, 8
Print "Getal van 6 tot 8"
Case Is > 8 And iVar < 11
Print "Groter dan 8"
Case Else
Print "Buiten bereik van 1 tot 10"
End Select
End Sub