Dim Price As Currency
Dim X As Integer
Dim Cities(1 To 4) As String
Dim people As Integer
Private Sub Command1_Click()
Price = 0
If Combo1.Text = "London" And Combo2.Text = "Paris" Then
Price = 70 * Combo3
ElseIf Combo1.Text = "London" And Combo2.Text = "New York" Then
Price = 80 * Combo3
ElseIf Combo1.Text = "London" And Combo2.Text = "Sydney" Then
Price = 90 * Combo3
ElseIf Combo1.Text = "New York" And Combo2.Text = "London" Then
Price = 100 * Combo3
ElseIf Combo1.Text = "New York" And Combo2.Text = "Paris" Then
Price = 110 * Combo3
ElseIf Combo1.Text = "New York" And Combo2.Text = "Sydney" Then
Price = 120 * Combo3
ElseIf Combo1.Text = "Paris" And Combo2.Text = "London" Then
Price = 130 * Combo3
ElseIf Combo1.Text = "Paris" And Combo2.Text = "New York" Then
Price = 140 * Combo3
ElseIf Combo1.Text = "Paris" And Combo2.Text = "Sydney" Then
Price = 150 * Combo3
ElseIf Combo1.Text = "Sydney" And Combo2.Text = "London" Then
Price = 160 * Combo3
ElseIf Combo1.Text = "Sydney" And Combo2.Text = "Paris" Then
Price = 170 * Combo3
ElseIf Combo1.Text = "Sydney" And Combo2.Text = "New York" Then
Price = 180 * Combo3
Else
MsgBox ("aggh")
End If
Print MsgBox("That costs £" & Price)
Price = Price + (Price * 0.175)
Print MsgBox("With VAT, that will cost £" & Price)
End Sub
Private Sub Form_Load()
Cities(1) = "London"
Cities(2) = "Paris"
Cities(3) = "New York"
Cities(4) = "Sydney"
For X = 1 To 4
Combo1.AddItem Cities(X)
Next X
For X = 1 To 4
Combo2.AddItem Cities(X)
Next X
For X = 1 To 8
Combo3.AddItem X
Next X
End Sub