Private Sub Form_Load()

  Dim V(1 To 31) As Integer

  Dim i As Integer

  Dim NumGiorni As Integer

  Dim Stringa As String

  Dim Messaggio As String

  Dim Somma As Integer

  Dim Media As Double  

  

  Rem Acquisizione valori

  Stringa = InputBox("Numero dei giorni")

  NumGiorni = Val(Stringa)

  For i = 1 To NumGiorni

    Messaggio = "Temperatura giorno" & Str$(i)

    Stringa = InputBox(Messaggio)

    V(i) = Int(Val(Stringa))

  Next i

  

  Rem Calcolo della media

  Somma = 0

  For i = 1 To NumGiorni

    Somma = Somma + V(i)

  Next i

  Media = Somma / NumGiorni

  

  Rem Generazione elenco valori

  '   al di sotto della media

  lblRisultato.Caption = ""

  For i = 1 To NumGiorni

    If V(i) < Media Then

      lblRisultato.Caption = lblRisultato.Caption & i 

& Chr$(10)

    End If

  Next i

End Sub





Listato 2
Una prima versione della procedura che calcola la media fra le temperature di pił giorni