Isi

# Pernyataan Randomize

Menginisialisasi generator angka acak yang digunakan oleh fungsi Rnd.

## Sintaksis:

    Randomize [Angka]

## Parameter:

Nomor: Nilai integer apa saja. Digunakan sebagai benih untuk menginisialisasi generator nomor acak. Biji yang sama menghasilkan urutan nomor acak yang sama dengan fungsi Rnd. Jika parameter dihilangkan, pernyataan Acak akan diabaikan.

Kecuali diinginkan urutan angka yang dapat diprediksi, tidak perlu menggunakan Acak pernyataan, sebagai generator nomor-acak akan diinisialisasi secara otomatis pada penggunaan pertama - itu akan menjadi unggulan menggunakan sistem yang disediakan nomor acak generator yang menghasilkan seragam-terdistribusi, angka acak non-deterministik. Jika tidak ada generator yang tersedia pada sistem, waktu sistem akan digunakan sebagai benih.

Pernyataan Acak hanya mempengaruhi fungsi BASIC's Rnd. Generator angka-acak lainnya (misalnya fungsi Calc's RAND (), dll.) tidak terpengaruh olehnya.

### Kode kesalahan:

5 Tidak sah dalam pemanggilan prosedur

## Contoh:

    Sub ExampleRandomize
    Dim iCount As Integer, iVar As Integer, sText As String
    Dim iSpectral(10) As Integer
        Randomize 2^14-1
        For iCount = 1 To 1000
        iVar = Int((10 * Rnd) ) REM Rentang dari 0 ke 9
            iSpectral(iVar) = iSpectral(iVar) +1
        Next iCount
        sText = " | "
        For iCount = 0 To 9
            sText = sText & iSpectral(iCount) & " | "
        Next iCount
        MsgBox sText,0,"Distribusi Spektral"
    End Sub

Topik Terkait

Fungsi Rnd

Mohon dukung kami!