(721274) - DUE 13 June 2025 ;100% trusted,
comprehensive and complete reliable solution with
clear explanation
QUESTION 1
E-Mail from Rassie Bavuma (CFO of SkyHigh Airlines)
1. Function: CalculateRevenue
vba
Function CalculateRevenue(destination As String,
passengerType As String) As Double
' Declare constants
Const ADULT_CT As Double = 1800
Const CHILD_CT As Double = 1350
Const ADULT_DB As Double = 1500
Const CHILD_DB As Double = 1125
Const ADULT_WH As Double = 3500
Const CHILD_WH As Double = 2625
' Declare variable
Dim revenue As Double
' Convert inputs to uppercase to avoid case sensitivity issues
destination = UCase(destination)