Ficha 4-1

Const Base = 1500

Private Sub cmd1_Click()
End
End Sub

Private Sub cmd2_Click()
preco.Caption = Base * Val(quantidade.Text)

If (quantidade.Text) >= 1000 Then
desconto = 8
ElseIf (quantidade.Text) >= 100 Then
desconto = 5
Else
desconto = 0
End If

If desconto = 8 Then
quociente.Caption = preco.Caption Mod (preco.Caption - (Val(preco) * 8 / 100))
ElseIf desconto = 5 Then
quociente.Caption = preco.Caption Mod (preco.Caption - (Val(preco) * 5 / 100))
Else
quociente.Caption = 0
End If

If desconto = 8 Then
preco.Caption = preco.Caption - (Val(preco) * 8 / 100)
ElseIf desconto = 5 Then
preco.Caption = preco.Caption - (Val(preco) * 5 / 100)
End If

End Sub