Module Module1
Sub Main()
Dim number1, number2, Sum, subtraction, multi As Integer
Dim divide As Single
Dim choice As String
Do
Console.WriteLine("-------------------------------------------------------------------------------")
Console.WriteLine()
Console.WriteLine(" 1 For Sum ")
Console.WriteLine(" 2 For subtraction ")
Console.WriteLine(" 3 for multiplication")
Console.WriteLine(" 4 for divide")
Console.WriteLine(" 0 for close")
Console.WriteLine("-------------------------------------------------------------------------------")
Console.WriteLine()
Console.WriteLine("Enter Your choice ")
choice = Console.ReadLine()
Select Case choice
Case "1"
Console.WriteLine("Enter Number One")
number1 = Console.ReadLine()
' Console.WriteLine(number1)
Console.WriteLine("Enter number Two ")
number2 = Console.ReadLine()
' Console.WriteLine(number2)
Sum = number1 + number2
Console.Write("Sum of two integers is = ")
Console.WriteLine(Sum)
Case "2"
Console.WriteLine("Enter Number One")
number1 = Console.ReadLine()
' Console.WriteLine(number1)
Console.WriteLine("Enter number Two ")
number2 = Console.ReadLine()
' Console.WriteLine(number2)
subtraction = number1 - number2
Console.Write("Sum of two integers is = ")
Console.WriteLine(subtraction)
Case "3"
Console.WriteLine("Enter Number One")
number1 = Console.ReadLine()
' Console.WriteLine(number1)
Console.WriteLine("Enter number Two ")
number2 = Console.ReadLine()
' Console.WriteLine(number2)
multi = number1 * number2
Console.Write("Sum of two integers is = ")
Console.WriteLine(multi)
Case "4"
Console.WriteLine("Enter Number One")
number1 = Console.ReadLine()
' Console.WriteLine(number1)
Console.WriteLine("Enter number Two ")
number2 = Console.ReadLine()
' Console.WriteLine(number2)
divide = number1 / number2
Console.Write("Sum of two integers is = ")
Console.WriteLine(divide)
End Select
If choice = "0" Then
Exit Do
End If
Loop
Console.Read()
End Sub
End Module
Sub Main()
Dim number1, number2, Sum, subtraction, multi As Integer
Dim divide As Single
Dim choice As String
Do
Console.WriteLine("-------------------------------------------------------------------------------")
Console.WriteLine()
Console.WriteLine(" 1 For Sum ")
Console.WriteLine(" 2 For subtraction ")
Console.WriteLine(" 3 for multiplication")
Console.WriteLine(" 4 for divide")
Console.WriteLine(" 0 for close")
Console.WriteLine("-------------------------------------------------------------------------------")
Console.WriteLine()
Console.WriteLine("Enter Your choice ")
choice = Console.ReadLine()
Select Case choice
Case "1"
Console.WriteLine("Enter Number One")
number1 = Console.ReadLine()
' Console.WriteLine(number1)
Console.WriteLine("Enter number Two ")
number2 = Console.ReadLine()
' Console.WriteLine(number2)
Sum = number1 + number2
Console.Write("Sum of two integers is = ")
Console.WriteLine(Sum)
Case "2"
Console.WriteLine("Enter Number One")
number1 = Console.ReadLine()
' Console.WriteLine(number1)
Console.WriteLine("Enter number Two ")
number2 = Console.ReadLine()
' Console.WriteLine(number2)
subtraction = number1 - number2
Console.Write("Sum of two integers is = ")
Console.WriteLine(subtraction)
Case "3"
Console.WriteLine("Enter Number One")
number1 = Console.ReadLine()
' Console.WriteLine(number1)
Console.WriteLine("Enter number Two ")
number2 = Console.ReadLine()
' Console.WriteLine(number2)
multi = number1 * number2
Console.Write("Sum of two integers is = ")
Console.WriteLine(multi)
Case "4"
Console.WriteLine("Enter Number One")
number1 = Console.ReadLine()
' Console.WriteLine(number1)
Console.WriteLine("Enter number Two ")
number2 = Console.ReadLine()
' Console.WriteLine(number2)
divide = number1 / number2
Console.Write("Sum of two integers is = ")
Console.WriteLine(divide)
End Select
If choice = "0" Then
Exit Do
End If
Loop
Console.Read()
End Sub
End Module