ficha de trabalho numero 16 exercicio 2

Private Sub Command1_Click()
Dim x As Integer, cont1 As Integer, cont2 As Integer, soma1 As Integer, media1 As Single, media2 As Single, soma2 As Integer

cont1 = 0
cont2 = 0
soma1 = 0

Do
x = Val(InputBox("Introduza um número (introduza 0 para sair)", "Introdução de números"))

If x > 0 Then
cont1 = cont1 + 1

If x Mod 2 = 0 Then
cont2 = cont2 + 1
soma2 = soma2 + x
End If

soma1 = soma1 + x
End If

Loop Until x = 0

media1 = soma1 / cont1
media2 = soma2 / cont2

Label1.Caption = cont1
Label2.Caption = media2
Label3.Caption = media1


End Sub

Private Sub Command2_Click()
If MsgBox("Quer mesmo sair?", vbQuestion + vbOKCancel, "Sair") = vbOK Then
End
End If
End Sub