dim a,b,c,d,e,f as integer
a=inputbox("1.sayıyı gir=")
b=inputbox("2.sayıyı gir=")
val(c)=val(a]val(b)
msgbox("toplam",& c)
val(d)=val(a)-val(b)
msgbox("cıkarma",& c)
val(e)=val(a)*val(b)
msgbox("carpma",& c)
val(f)=val(a)/val(b)
msgbox("bolme",& c)

acıklama:Klavyeden girilen 2 sayıyı birbirine toplayan,cıkaran,bolen ve carpan bir programdır.
not(Kucuk hatalar varsa ozur dilerim..)
__________________