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

በደፈናው [ቁጥር]

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