Imports System, Microsoft.VisualBasic

'Darsh Dalia

'11/29/21

'Fast Food Program

Public Module Module1

    Public Sub Main()

        Dim totalPrice As Single

        Dim mealType As Char

        Dim drinkSize As Char

        Console.WriteLine("Enter meal type: (C) for combo OR (R) for regular: ")

        mealType = Console.ReadLine()

        Console.WriteLine("Enter drink size: (S) for small, (M) for medium, and (L) for large: ")

        drinkSize = Console.ReadLine()

        If mealType = "C" Or mealType = "c" Then

            If drinkSize = "S" Then

                totalPrice = 8

            ElseIf drinkSize = "M" Then

                totalPrice = 8.50

            ElseIf drinkSize = "L" Then 

                totalPrice = 9

            End If

        ElseIf mealType = "R" Or mealType = "r" Then

            If drinkSize = "S" Then

                totalPrice = 6

            ElseIF drinkSize = "M" Then

                totalPrice = 6.50

            ElseIf drinkSize = "L" Then 

                totalPrice = 7

            End If

        End If

        Console.WriteLine("The total price is " & FormatCurrency(totalPrice))

    End Sub

End Module