Ficha 8-3

Private Sub cmd1_Click()

Dim temp As Integer, soma As Integer, cont As Integer, tempmaior As Integer, tempmenor As Integer, media As Single

media = 0
tempmaior = 0
tempmenor = 100
temp = 0
soma = 0
cont = 0

Do
temp = Val(InputBox("Introduza a " & cont + 1 & "ª temperatura!"))
If temp > -20 Then
soma = soma + temp
cont = cont + 1

If temp > tempmaior Then
tempmaior = temp

End If
If temp < tempmenor Then
tempmenor = temp
End If

End If
Loop While cont < 12
media = Round(soma / cont, 1)
resultado.Print "A média das temperaturas no Porto é de:"; media
resultado.Print "A temperatura mais alta no Porto é"; tempmaior
resultado.Print "A temperatura mais baixa no Porto é"; tempmenor
End Sub

Private Sub cmd2_Click()
End
End Sub