ficha de trabalho numero 17 exercicio 1

Private Sub Command1_Click()
Dim x As Integer, preço As Single

x = Val(Text3.Text)

If x > 0 Then

If Combo1.Text = "América do Sul" Then
preço = (43 * x) / 200
End If

If Combo1.Text = "América do Norte" Then
preço = (48 * x) / 200
End If

If Combo1.Text = "Europa" Then
preço = (50 * x) / 200
End If

If Combo1.Text = "África" Then
preço = (47 * x) / 200
End If

If Combo1.Text = "Ásia" Then
preço = (52 * x) / 200
End If

If Combo1.Text = "Resto do Mundo" Then
preço = (51 * x) / 200
End If

End If

Label1.Caption = preço

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