One Solution … II
Sub calcLattePrice(p As Single, sh As Integer,
sz As String)
Dim basePrice, extraCharge As Single
If sz = "short" Then
basePrice = 1.1
ElseIf sz = "tall" Then
basePrice = 1.5
ElseIf sz = "grande" Then
basePrice = 1.9
End If
extraCharge = 0
If sh > 1 Then
extraCharge = (sh - 1) * 0.65
End If
p = basePrice + extraCharge
End Sub
Every program makes a specific set of choices
Previous slide
Next slide
Back to first slide
View graphic version