Ficha 16-1

Private Sub Command1_Click()

Dim total As Single

If gramas = "" Then
MsgBox "Introduza as gramas!", vbOKOnly + vbExclamation, "Campo obrigatório"

ElseIf Combo1.Text = "Destino:" Then
MsgBox "Escolha o Destino!", vbOKOnly + vbExclamation, "Campo obrigatório"

ElseIf Combo1.Text = "América do Sul" Then
total = gramas * 43 / 200
endereco = "Brasil, Argentina"

ElseIf Combo1.Text = "América do Norte" Then
total = gramas * 48 / 200
endereco = "EUA, Canada"

ElseIf Combo1.Text = "Europa" Then
total = gramas * 50 / 200
endereco = "França, Itália"

ElseIf Combo1.Text = "África" Then
total = gramas * 47 / 200
endereco = "Angola, Marrocos"

ElseIf Combo1.Text = "Ásia" Then
total = gramas * 52 / 200
endereco = "China, Índia"

ElseIf Combo1.Text = "Resto do Mundo" Then
total = gramas * 51 / 200
endereco = "Planeta"

End If

If total = 0 Then
preco.Caption = ""
Else
preco.Caption = total & " €"
End If

End Sub

Private Sub Command2_Click()

End

End Sub

Private Sub Form_Load()

Combo1.AddItem "América do Sul"
Combo1.AddItem "América do Norte"
Combo1.AddItem "Europa"
Combo1.AddItem "África"
Combo1.AddItem "Ásia"
Combo1.AddItem "Resto do Mundo"

End Sub