Fungsi Rnd

Menghasilkan angka acak antara 0 dan 1.

Sintaksis:


Rnd [(Ekspresi)]

Nilai hasil:

Double

Parameter:

Ekspresi: Tidak berpengaruh, diabaikan jika disediakan.

Fungsi Rnd mengembalikan pecahan desimal mulai dari 0 (termasuk) hingga 1 (dikecualikan) menurut distribusi yang seragam. Ini menggunakan generator nomor acak Mersenne Twister 19937. Untuk menghasilkan bilangan bulat acak dalam rentang yang diberikan, gunakan rumus seperti pada contoh di bawah ini. Pernyataan Acak dengan nilai seed yang ditentukan dapat digunakan sebelumnya, jika urutan angka yang dapat diprediksi diinginkan.

Kode kesalahan:

5 Tidak sah dalam pemanggilan prosedur

Contoh:


Sub ExampleRandomSelect
Dim iVar As Integer
    iVar = Int((15 * Rnd) -2)
    Select Case iVar
        Case 1 To 5
            Print "Angka dari 1 sampai 5"
        Case 6, 7, 8
            Print "Angka dari 6 sampai 8"
        Case Is > 8 And iVar < 11
            Print "Lebih besar dari 8"
        Case Else
            Print "Di luar rentang 1 sampai 10"
    End Select
End Sub

Pernyataan Randomize