1 2025 - DUE 13 June 2025; 100% correct solutions and
explanations.
QUESTION 1
TASK (a): Function Procedure (15 Marks)
You are required to create a VBA Function Procedure that
calculates ticket revenue. The function must:
Use constants for ticket prices.
Take inputs: Destination, PassengerType ("Adult" or
"Child"), and Quantity.
Return the correct total ticket revenue.
📌 Sample VBA Function:
vba
CopyEdit
Function CalculateRevenue(destination As String,
passengerType As String, quantity As Integer) As Currency
Const CT_ADULT As Currency = 1800
Const CT_CHILD As Currency = 1350
Const DBN_ADULT As Currency = 1500
Const DBN_CHILD As Currency = 1125
Const WIND_ADULT As Currency = 3500
Const WIND_CHILD As Currency = 2625
Dim unitPrice As Currency
Select Case UCase(destination)
Case "CAPE TOWN"