Module module1
    Sub Main()
        Dim x, y, a, b, c, d As Integer
        Console.WriteLine("SHAZMEEN SHAIKH 19430")
        x = InputBox("enter the value of x")
        y = InputBox("enter the value of y")
        a = x + y
        b = x - y
        c = x * y
        d = x / y

        MsgBox("addition=" & a)
        MsgBox("substraction=" & b)
        MsgBox("multiplication=" & c)
        MsgBox("division=" & d)
    End Sub

End Module