If x>0
Y=x*x
Endif
If x=0
Y=100
If x<0
Y=x*10
Messagebox("Y="+Transform(Y),0+64,"輸出")
將這段代碼粘貼到prg文件中就可執行出妳要的結果了,呵呵~