dim a as integer
a=text1.text
if a>0 then print"Mosbat"
if a<0 then print"Manfi"
if a=0 then print"sefr"
| X Close | ||
dim a as integer
a=text1.text
if a>0 then print"Mosbat"
if a<0 then print"Manfi"
if a=0 then print"sefr"

