Imports System

​

Public Module Module1

    Dim currency(4) As String

Dim exchangeRates(4, 4) As Decimal

Dim choice As Integer

​

    Public sub main()

exchangeRates(0, 0) = 0

exchangeRates(0, 1) = 1.34

exchangeRates(0, 2) = 151.56

exchangeRates(0, 3) = 1.13

        exchangeRates (1,0) = 0.75

        exchangeRates (1,1)=0

        exchangeRates (1,2)=113.35

        exchangeRates (1,3)=0.85

        exchangeRates (2,0)= 0.0066

        exchangeRates (2,1) = 0.0089

        exchangeRates (2,2)=0

        exchangeRates (2,3)=0.0075

        exchangeRates (3,0) = 0.88

        exchangeRates (3,1) = 1.18

        exchangeRates (3,2)= 132.95

        exchangeRates  (3,3)= 0

If choice = 2 Then

convertCurrency()

End If

Console.ReadLine()

End Sub

Sub menu()

Console.WriteLine("Currency Converter")

Console.WriteLine("1. Change exchange rates")

Console.WriteLine("2. Convert currency")

Console.WriteLine("3. Exit")

Console.WriteLine()

Console.WriteLine("Enter your choice")

choice = Console.ReadLine

End Sub

Sub editExhangeRate()

Dim changeFrom, changeTo As Integer

Dim newRate As Decimal

Console.WriteLine("Enter which currecy to change from?")

Console.WriteLine("Enter 0 for GBP, 1 for USD, 3 for Yen, 4 for Eur")

changeFrom = Console.ReadLine

Console.WriteLine("Enter which currency to change to")

Console.WriteLine("Enter 0 for GBP, 1 for USD, 3 for Yen, 4 for Eur")

changeTo = Console.ReadLine

Console.WriteLine("Enter the new rate")

newRate = Console.ReadLine

exchangeRates(changeFrom, changeTo) = newRate

End Sub

Sub convertCurrency()

Dim changeFrom, changeTo As Integer

Dim amount As Decimal

Console.WriteLine("Enter which currecy to change from?")

Console.WriteLine("Enter 0 for GBP, 1 for USD, 3 for Yen, 4 for Eur")

changeFrom = Console.ReadLine

Console.WriteLine("Enter which currency to change to")

Console.WriteLine("Enter 0 for GBP, 1 for USD, 3 for Yen, 4 for Eur")

changeTo = Console.ReadLine

Console.WriteLine("Enter amount to exchange")

amount = Console.ReadLine

Console.WriteLine("Your exhanged amount is " & amount * exchangeRates(changeFrom, changeTo))

    End Sub

End Module