በደፈናው አረፍተ ነገር

ማስጀመሪያ በደፈናው-ቁጥር አመንጪ የ ተጠቀሙት በ ማጠጋጊያ ተግባር

አገባብ:

በደፈናው [ቁጥር]

ደንቦች:

ቁጥር: ማንኛውም የ ኢንቲጀር ዋጋ: የ ተጠቀሙት እንደ ዘር ለማስጀመር በ ደፈናው-ቁጥር አመንጪ: እኩል ነው ከ ዘር ውጤት ጋር በ አኩል በ ደፈናው-ቁጥር ቅደም ተከተል በ ማጠጋጊያ ተግባር ውስጥ: ደንቡ ከ ተዋጠ: የ በደፈናው አረፍተ ነገር ይተዋል

የ ማስታወሻ ምልክት

የ ቁጥር ሂደቶችን መገመት ካላስፈለገ በስተቀር ይህን መጠቀም አያስፈልግም የ በደፈናው አረፍተ ነገር: እንደ በደፈናው-ቁጥር አመንጪ ራሱ በራሱ ይነሳል በ መጀመሪያ ጊዜ ሲጠቀሙ: – እና ከዛ ይቀመጣል በ ስርአቱ-አቅራቢ በደፈናው- ቁጥር አመንጪ ውስጥ በሚፈጥር ተመሳሳይ-ስርጭት: ምንም-የማይወሰኑ ቁጥሮች: እንዲህ አይነት አመንጪ ከሌለ በ ስርአቱ ውስጥ የ ስርአቱን ጊዜ ለማመንጨት ይጠቀማል


በደፈናው አረፍተ ነገር ተፅእኖ ይፈጥራል በ BASIC's በደፈናው ተግባሮች ውስጥ ብቻ: ሌሎች በደፈናው-ቁጥሮች ያመነጫል (ለምሳሌ የ ሰንጠረዥ በደፈናው() ተግባር: ወዘተ) ተፅእኖ አይፈጥርም

የ ስህተት ኮዶች:

5 ዋጋ የሌለው የ አሰራር ጥሪ

ለምሳሌ:

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 from 0 to 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