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

	i = 0

	Stringa = ""

	Do

			i = i + 1

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

			Stringa = InputBox(Messaggio)

			Stringa = UCase(Stringa)

			Stringa = Trim(Stringa)

			If Stringa = "FINE" Then

				Exit Do

			Else

				ReDim Preserve V(i)

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

			End If

	Loop

	NumGiorni = UBound(V)

  

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