Private Sub Form_Load()

	Dim Vmin() As Integer

	Dim Vmax() As Integer

	Dim i As Integer

	Dim NumGiorni As Integer

	Dim Stringa As String

	Dim Messaggio As String

	Dim Somma As Integer

	Dim MediaMin As Double

	Dim MediaMax As Double

   

	Rem Acquisizione valori

	i = 0

	Stringa = ""

	Do

			i = i + 1

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

			Stringa = InputBox(Messaggio)

			Stringa = UCase(Stringa)

			Stringa = Trim(Stringa)

			If Stringa = "FINE" Then

      				Exit Do

			Else

				ReDim Preserve Vmin(i)

				ReDim Preserve Vmax(i)

				Vmin(i) = Int(Val(Stringa))

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

				Stringa = InputBox(Messaggio)

				Stringa = UCase(Stringa)

				Stringa = Trim(Stringa)

				Vmax(i) = Int(Val(Stringa))

			End If

  Loop

  NumGiorni = UBound(Vmin)



  Rem Calcolo della media delle

  '   temperature minime

  Somma = 0

  For i = 1 To NumGiorni

    Somma = Somma + Vmin(i)

  Next i

  MediaMin = Somma / NumGiorni

  

  Rem Calcolo della media delle

  '   temperature massime

  Somma = 0

  For i = 1 To NumGiorni

    Somma = Somma + Vmax(i)

  Next i

  MediaMax = Somma / NumGiorni

  

		Rem Generazione elenco giorni con

		Rem temperature al di sotto della media

		lblRisultato.Caption = ""

		For i = 1 To NumGiorni

		If (Vmin(i) < MediaMin) Or (Vmax(i) < MediaMax) 				Then

      lblRisultato.Caption = lblRisultato.Caption & i 

& Chr$(10)

    End If

  Next i

End Sub





Listato 5
La procedura modificata per gestire le temperature minima e massima