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

Fungsi Rnd