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 |