Randomize na Pahayag

Sinisimulan ang random-number generator na ginagamit ng Rnd function.

Syntax:


I-randomize ang [Number]

Mga Parameter:

Numero: Anumang halaga ng integer. Ginamit bilang seed upang simulan ang random-number generator. Ang pantay na mga buto ay nagreresulta sa pantay na random-number sequences ng Rnd function. Kung ang parameter ay tinanggal, ang I-randomize hindi papansinin ang pahayag.

Maliban kung ang isang predictable sequence ng mga numero ay ninanais, hindi na kailangang gamitin ang I-randomize pahayag, dahil ang generator ng random-number ay awtomatikong masisimulan sa unang paggamit - ito ay ise-seed gamit ang isang random-number generator na ibinibigay ng system na gumagawa ng pare-parehong ibinahagi, non-deterministic na random na mga numero. Kung walang ganoong generator na magagamit sa system, ang oras ng system ay gagamitin bilang binhi.

Ang I-randomize ang pahayag ay nakakaapekto sa BASIC's Rnd function lamang. Ang iba pang random-number generators (halimbawa ang RAND() function ng Calc, atbp.) ay hindi apektado nito.

Mga error code:

5 Di-wastong procedure call

Halimbawa:


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) ' Range mula 0 hanggang 9
        iSpectral(iVar) = iSpectral(iVar) +1
    Next iCount
    sText = " | "
    For iCount = 0 To 9
        sText = sText & iSpectral(iCount) & " | "
    Next iCount
    MsgBox sText,0,"Spectral Distribution"
End Sub

Rnd Function