Imports System

Public Module Module1

    Public Sub Main()

        Dim rate, distance, fare, discounted, discount as integer, type as string

        Dim Regular as Double = 0.00D

        Dim Senior as Double = 0.20D

        Dim PWD as Double = 0.15D

        Dim Student as Double = 0.10D

        console.write("Enter Rate: ")

        rate = console.readline

        console.write("Enter Distance: ")

        distance = console.readline

​

        fare = rate * distance

        discounted = fare

        console. writeline("Fare: "& fare)

        console.writeline("----------------------------------")

        console.writeline("Passenger Type: ")

        console.writeline("[1] Regular     [2] Senior Citizen")

        console.writeline("[3] PWD         [4] Student")

        console.writeline("----------------------------------")

        console.write("Enter Passenger Type Here: ")

        type = console.readline

        console.writeline("----------------------------------")

        select case (type)

        case 1

            discount = Fare * Regular

            type = "Regular"

        case 2

            discount = Fare * Senior

            console.writeline("Discount: "  & discount)

            type = "Senior Citizen"

        case 3

            type = "PWD"

        case 3

            type = "Student"

        end select

        discounted = fare - discount

            console.writeline("You are a " & type)

        console.writeline("Regular Fare: " & fare)

        console.writeline(" discounted fare: " & discounted )

    End Sub

End Module