Isi

# 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

Topik Terkait

Pernyataan Randomize