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
[Link]("ARITHMATIC OPERATIONS")
[Link]("ENTER FIRST NUMBER")
a = [Link]()
[Link]("ENTER SECOND NUMBER")
b = [Link]()
c = a + b
[Link]("ADDITION ={0}", c)
c = a - b
[Link]("SUBSTRACTION ={0}", c)
c = a * b
[Link]("MULTIPLICATION ={0}", c)
c = a / b
[Link]("DIVISION ={0}", c)
[Link]("ENTER NUMBER TO ASSIGN")
d = [Link]()
[Link]("ASSINGMENT ={0}", d)
c = d Mod 3
[Link]("MODULUS ={0}", c)
c = d ^ 2
[Link]("POWER ={0}", c)
[Link]()
End Sub
End Module
OUTPUT:-