Imports System

Public Module Module1

    Dim rate, distance, fare, dis, disfare as integer

    Dim reg, senior, pwd, student as decimal

    Dim type as string

    Public Sub Main()

        reg = .0D

        senior = .20D

        pwd = .15D

        student = .10D

        Console.Write("Enter rate: ")

        rate = console.ReadLine

        Console.Write("Enter distance: ")

        distance = console.ReadLine

        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("--------------------------------")

        fare = rate * distance

        Select Case (type)

        Case 1

            type = "You are a Regular passenger"

            dis = fare * reg

        Case 2

            type = "You are a Senior Citizen passenger"

            dis = fare * senior

        Case 3

            type = "You are a PWD passenger"

            dis = fare * pwd

        Case 4

            type = "You are a Student Passenger"

            dis = fare * student

        End Select

        console.Writeline(type)

        disfare = fare - dis

        Console.Writeline("Regular Fare: "& fare)

        Console.Writeline("Discount is: "& dis)

        Console.Writeline("Discounted Fare is: "& disfare)

​

    End Sub

End Module