Ficha 15-3

Private Sub cmd1_Click()

Dim n(1 To 5) As Single, i As Integer, aumento As Single

For i = 1 To 5
n(i) = Val(InputBox("Introduza o preço do " & i & "º artigo", "Artigos"))
If n(i) = 0 Then
n(i) = MsgBox("Introduza um valor de um artigo que não seja ''0''", vbOKOnly + vbInformation, "Artigos")
i = 5
Picture1.Cls
Picture2.Cls
cmd1.Enabled = True
Else
Picture1.Print "Preço normal -> " & n(i) & " €"
aumento = n(i) + (n(i) * 5 / 100)
Picture2.Print "Preço com aumento de 5% -> " & aumento & " €"
cmd1.Enabled = False
End If

Next i

End Sub

Private Sub cmd2_Click()
End
End Sub


Private Sub cmd3_Click()
Picture1.Cls
Picture2.Cls
cmd1.Enabled = True
End Sub