AIN3701 Assignment 2 (COMPLETE ANSWERS) 2025 (721274) - DUE 13 June 2025

AIN3701
ASSIGNMENT 2 SEMESTER 1 2025

UNIQUE NO. 721274
DUE DATE: 13 JUNE 2025

, AIN3701

Assignment 2 2025



Unique Number: 721274
Due Date: 13 June 2025

Automation and data analysis

QUESTION 1

(a) Function Procedure: CalculateRevenue

Save as: YourStudentNumber_Surname_Q1.xlsm
Paste into: VBA module in Excel

Function CalculateRevenue(destination As String, adults As Integer, children As
Integer) As Double
' Ticket pricing 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_WK As Double = 3500
Const CHILD_WK As Double = 2625


' Initialize revenue variable
Dim revenue As Double


' Determine correct pricing based on destination
Select Case UCase(destination)
Case "CAPE TOWN"
revenue = (adults * ADULT_CT) + (children * CHILD_CT)