Ficha 9-1

Private Sub cmd1_Click()

Dim pesos As Integer, soma As Integer, cont As Integer

pesos = 0
soma = 0
cont = 0

Do
pesos = Val(InputBox("Introduza o " & cont + 1 & "º Peso"))
If pesos >= 0 Then
soma = soma + pesos
If pesos = 0 Then
Exit Do
End If

cont = cont + 1

If cont = 6 Or soma >= 450 Then
Exit Do
End If

End If

Loop While cont < 6
resultado.Caption = cont
resultadopeso.Caption = soma

If soma >= 450 Then
resultado.Caption = cont
resultadopeso.Caption = "Peso Excessivo"
End If

End Sub

Private Sub cmd2_Click()
End
End Sub