Private Sub Form_Load() Dim V(1 To 31) 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) 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 2 Una prima versione della procedura che calcola la media fra le temperature di pił giorni |