Fungsi Rnd

Menghasilkan angka acak antara 0 dan 1.

Sintaksis:

Rnd [(Ekspresi)]

Nilai hasil:

Ganda

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 jangkauan 1 sampai 10"

    End Select

End Sub