Ficha 7-3

Private Sub cmd1_Click()

Dim media As Single, inf14 As Integer, inf18 As Integer
Dim igual18 As Integer, iddmaior As Integer, dados As Integer
Dim id As Integer, soma As Integer, cont As Integer
media = 0
inf14 = 0
inf18 = 0
igual18 = 0
iddmaior = 0
dados = 0
id = 0
soma = 0
cont = 0


Do
id = Val(InputBox("Introduza o valor"))
If id > 0 Then
soma = soma + id
cont = cont + 1
If id < 14 Then
inf14 = inf14 + 1
ElseIf id >= 14 And id < 18 Then
inf18 = inf18 + 1
Else
igual18 = igual18 + 1
End If

If id > iddmaior Then
iddmaior = id
End If
End If
Loop While id <> 0
media = Round(soma / cont, 1)
lblmedia.Caption = media
lblinf14.Caption = inf14
lblinf18.Caption = inf18
lbligual18.Caption = igual18
lbliddmaior.Caption = iddmaior
lbldados.Caption = cont



End Sub

Private Sub cmd2_Click()
End
End Sub

Private Sub Timer1_Timer()
hora = Time
End Sub