Practical No.6 Aim: WAP to get input from keyboard and Find Sum,Subtraction,Multiplicationand division of numbers.
1. SUM Module Module1 Sub Main()
Dim a, b, c As Integer [Link]("Enter 1st number:") a = Convert.ToInt32([Link]()) [Link]("Enter 2nd number:") b = Convert.ToInt32([Link]()) c = a + b [Link]("Sum:" & c)
[Link]()
End Sub End Module
2. Subtraction
. Module Module1 Sub Main()
Dim a, b, c As Integer [Link]("Enter 1st number:") a = Convert.ToInt32([Link]())
[Link]("Enter 2nd number:") b = Convert.ToInt32([Link]()) c = a - b [Link]("Sub:" & c)
[Link]()
End Sub End Module
3. Multiplication Module Module1 Sub Main()
Dim a, b, c As Integer [Link]("Enter 1st number:") a = Convert.ToInt32([Link]())
[Link]("Enter 2nd number:") b = Convert.ToInt32([Link]()) c = a * b [Link]("Multiplication:" & c)
[Link]()
End Sub End Module
4. Division
Module Module1 Sub Main()
Dim a, b, c As Integer [Link]("Enter 1st number:") a = Convert.ToInt32([Link]())
[Link]("Enter 2nd number:") b = Convert.ToInt32([Link]()) c = a / b [Link]("Division :" & c)
[Link]()
End Sub End Module