Private Sub Form_Load()

  Dim V() 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)

  ReDim V(NumGiorni)

  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 3
La procedura che calcola la media fra le temperature di pił giorni modificata per l'uso di array dinamici