Rnd Fonksiyonu

0 ile 1 arasında bulunan rasgele bir sayı verir.

Sözdizimi:

Rnd [(Expression)]

Dönen değer:

İki satır

Parametreler:

İfade: Etkisi yoktur, değer girerseniz göz ardı edilir.

Rnd işlevi standart bir dağılıma göre, 0 (dahil) ile 1 (dahil değil) arasında değişen ondalık kesirleri döndürür. Mersenne Twister 19937 rastgele sayı oluşturucusunu kullanır. Verilen bir aralıkta rastgele tam sayılar oluşturmak için, aşağıdaki örnekteki gibi bir formül kullanın. Eğer tahmin edilebilir bir sayı dizisi isteniyorsa, Randomize ifadesi önceden tanımlanmış bir ilk değer ile kullanılabilir.

Hata kodları:

5 Geçersiz yordam çağrısı

Örnek:

Sub ExampleRandomSelect

Dim iVar As Integer

    iVar = Int((15 * Rnd) -2)

    Select Case iVar

        Case 1 To 5

            Print "1'den 5'e sayılar"

        Case 6, 7, 8

            Print "6'dan 8'e sayılar"

        Case Is > 8 And iVar < 11

            Print "8'den büyük"

        Case Else

            Print "1-10 aralığının dışında"

    End Select

End Sub