[سيف سالم]

المشاركة الأصلية كتبت بواسطة رزق درديري

أستاذنا الفاضل كل التحية لسيادتكم
لو سمحت ممكن الكود ؟

dim a as single
x=me.textbox1.text
if x=0 then
me.textbox1.text=""
elseif x>0 then
msgbox("موجب")
else
msgbox("سالب")
end if