<%@ Language=VBScript%>
<%Option Explicit

`#########################################
`#Funzione per generare numeri casuali
`#compresi tra 1 e iValoreMax
`#########################################

Function NumeroCasuale(iValoreMax)

  Randomize        `inizializzo il generatore di numeri casuali
    
  NumeroCasuale = Int(iValoreMax * Rnd + 1)  
                `la funzione RND restituisce un valore
                `minore di 1 e maggiore o uguale a 0;
                `quindi per ottenere interi casuali
                `compresi in un determinato intervallo č 
                `necessario utilizzare la seguente formula:
                `Int((limitesup - limiteinf + 1) * Rnd + limiteinf)
                `nel nostro caso il limiteinf č sempre 1
                `quindi si semplifica cosė:
                `Int(limitesup * Rnd + 1)

End Function

`#########################################
`#Codice per riempire un array di 10 
`#elementi (0-9) con numeri casuali 
`#compresi tra 1 e 100
`#########################################

Dim iContatore, iMax, iElementiArray `dichiaro due variabili di comodo

iElementiArray = 9                `dichiaro il numero di elementi
                                  `dell`array

ReDim arrNumeri(iElementiArray)   `dimensiono l`array dinamico

iMax = 100                        `imposto il range in cui estrarre
                                  `i numeri casuali (1-100)

                                  `utilizziamo un ciclo FOR per 
                                  `riempire il nostro array (LBound
                                  `indica l`indice inferiore dell`array,
                                  `UBound l`indice superiore)
For iContatore = LBound(arrNumeri) To UBound(arrNumeri)
    arrNumeri(iContatore) = NumeroCasuale(iMax)
Next

                                  `visualizziamo il contenuto
                                  `dell`array
For iContatore = LBound(arrNumeri) To UBound(arrNumeri)
  Response.Write "arrNumeri(" & iContatore & ") = " & _
                 arrNumeri(iContatore) & "<br>"
Next
%>