Rnd Function
Egy 0 és 1 közötti véletlen számot ad eredményül.
Szintaxis:
Rnd [(Kifejezés)]
Visszatérési érték:
Double
Paraméterek:
KifejezĂ©s: Nincs hatása, megadása esetĂ©n figyelmen kĂvĂĽl marad.
Az Rnd fĂĽggvĂ©ny decimális törteket ad vissza 0 (beleĂ©rtve) Ă©s 1 (nem beleĂ©rtve) között egyenletes eloszlásnak megfelelĹ‘en, a Mersenne Twister 19937 vĂ©letlenszám-generátor használatával. Adott tartománybeli vĂ©letlen egĂ©sz számok előállĂtásához használjon a lenti pĂ©ldához hasonlĂł fĂĽggvĂ©nyt. ElĹ‘tte használhatĂł egy Randomize utasĂtás adott kezdőértĂ©kkel, ha számok elĹ‘re jelezhetĹ‘ sorozatára van szĂĽksĂ©g.
Példa:
Sub ExampleRandomSelect
Dim iVar As Integer
iVar = Int((15 * Rnd) -2)
Select Case iVar
Case 1 To 5
Print "1 és 5 közötti szám"
Case 6, 7, 8
Print "6 és 8 közötti szám"
Case Is > 8 And iVar < 11
Print "Nagyobb mint 8"
Case Else
Print "1-10 tartományon kĂvĂĽl esĹ‘"
End Select
End Sub