Rounding Currency

Many of my friends at University has request me to post the homework code of Vb.net that I have done on my blog. and here the simple Vb.net Console Application that i’m learning at University. So I hope that younger or older brother that learning in IT can see the simple code and correct or implement it together.

-The Code are focus on how to use “ IF Condition” and “ Do Loop” .
Here is the Rounding Currency Code In VB.net Console Application

Module Module1

Sub Main()

Dim ROUND As Double
Dim amount As Double
Dim selected As Integer
Dim modulus As Double
Dim yesno As String

Do
Console.Clear()
Console.WriteLine(“ Rounding Currency Table” )
Console.WriteLine(“ 1.RIEL” )
Console.WriteLine(“ 2.USD” )
Console.WriteLine(“ 3.EURO” )
Console.WriteLine(“ 4.POUND” )
Console.WriteLine(“ Please Select the Currency” )
selected = Console.ReadLine

If (selected = 1) Then
Console.Clear()
Console.WriteLine(“ 1.RIEL” )
Console.WriteLine(“ Input Amount:” )
amount = Console.ReadLine
modulus = amount Mod 100

If (modulus = 50) Then
ROUND = amount
ElseIf (modulus > 50) Then
ROUND = (amount – modulus) + 100
ElseIf (modulus < 50) Then
ROUND = amount – modulus
End If
Console.WriteLine(“ Rounded Amount={0}Riel” , ROUND)
ElseIf (selected = 2) Then
Console.Clear()
Console.WriteLine(“ 2.USD” )
Console.WriteLine(“ Input Amount” )
amount = Console.ReadLine
Console.WriteLine(“ Rounded Amount={0} USD” , amount)
ElseIf (selected = 3) Then
Console.Clear()
Console.WriteLine(“ 3.EURO” )
Console.WriteLine(“ Input Amount” )
amount = Console.ReadLine
Console.WriteLine(“ Rounded Amount={0} EURO” , amount)
ElseIf (selected = 4) Then
Console.Clear()
Console.WriteLine(“ 4.POUND” )
Console.WriteLine(“ Input Amount” )
amount = Console.ReadLine
Console.WriteLine(“ Rounded Amount={0} POUND” , amount)
Else
Console.WriteLine(“ Wrong Selection” )
End If
Console.WriteLine(“ Do you want to continue (Y|N)? “ )
yesno = Console.ReadLine

Loop Until (yesno = “ n” )

End Sub

End Module

If you have any problem of running the program or need to ask inside code, please fill free to ask me. I might be available from my best tried.