'This goes in general declarations
Dim a as Integer,b as Integer,Ans as Integer
'Make four command buttons with captions:(+)(-)(*)(/) respectively
Commandbutton1_click() ' Button with caption (+)
a=textbox1.text
b=textbox2.text
ans=a+b
txtans.text=ans
End Sub
Commandbutton2_click() ' Button with caption (-)
a=textbox1.text
b=textbox2.text
ans=a-b
txtans.text=ans
End Sub
Commandbutton3_click() ' Button with caption (*)
a=textbox1.text
b=textbox2.text
ans=a*b
txtans.text=ans
End Sub
Commandbutton4_click() ' Button with caption (/)
a=textbox1.text
b=textbox2.text
ans=a/b
txtans.text=ans
End Sub