GAD
ASSIGNMENT NO.3
PROGRAM:-
Module Module2
Sub main()
Dim a As Integer
Dim b As Integer
Dim c As Integer
Dim d As Integer
Console.WriteLine("ARITHMATIC OPERATIONS")
Console.WriteLine("ENTER FIRST NUMBER")
a = Console.ReadLine()
Console.WriteLine("ENTER SECOND NUMBER")
b = Console.ReadLine()
c = a + b
Console.WriteLine("ADDITION ={0}", c)
c = a - b
Console.WriteLine("SUBSTRACTION ={0}", c)
c = a * b
Console.WriteLine("MULTIPLICATION ={0}", c)
c = a / b
Console.WriteLine("DIVISION ={0}", c)
Console.WriteLine("ENTER NUMBER TO ASSIGN")
d = Console.ReadLine()
Console.WriteLine("ASSINGMENT ={0}", d)
c = d Mod 3
Console.WriteLine("MODULUS ={0}", c)
c = d ^ 2
Console.WriteLine("POWER ={0}", c)
Console.ReadLine()
End Sub
End Module
OUTPUT:-