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 |