4.\x05编写一个求面积的程序,其中求各种面积（三角形（（底*高）/2）、梯形（（上底+下底）*高/2）、圆（3.14*半径^2）、正方形(边长*边长)、矩形面积（长*宽））的过程用过程文件保存,通

4.\x05编写一个求面积的程序,其中求各种面积（三角形（（底*高）/2）、梯形（（上底+下底）*高/2）、圆（3.14*半径^2）、正方形(边长*边长)、矩形面积（长*宽））的过程用过程文件保存,通
4.\x05编写一个求面积的程序,其中求各种面积（三角形（（底*高）/2）、梯形（（上底+下底）*高/2）、圆（3.14*半径^2）、正方形(边长*边长)、矩形面积（长*宽））的过程用过程文件保存,通过主程序调用这些过程文件中的过程实现面积的求解；
首先建立过程文件110．prg
proc s
input"请输入三角形的高度:" to sd
input"请输入三角形的底长:" to sc
s=sd*sc
"三角形的面积="
return
endproc
proc t
input"请输入梯形的上底:" to ts
input"请输入梯形的下底:" to tx
input"请输入梯形的高度:" to tg
s=(ts+tx)*tg/2
"梯形的面积="
return
endproc
proc y
input"请输入圆的半径:" to bj
s=3.14*bj**2
"圆的面积="
return
endproc
proc z
input"请输入正方形的边长:" to zc
s=zc*zc
"正方形的面积:"
return
endfor
建立主程序
set proc to　110．Prg
do while .t.
clear
" 0--退出"
" 1--求三角形的面积"
" 2--求梯形的面积"
" 3--求圆的面积"
" 4--求正方形的面积"
input "请输入你的选择："to x
do case
case x=0
exit
case x=1
do s
case x=2
do t
case x=3
do y
case x=4
do z
endcase
wait"按任意键选择菜单……"
enddo
close proc
return
运行时出现语法错误,请问下是什么原因?

4.\x05编写一个求面积的程序,其中求各种面积（三角形（（底*高）/2）、梯形（（上底+下底）*高/2）、圆（3.14*半径^2）、正方形(边长*边长)、矩形面积（长*宽））的过程用过程文件保存,通
将set proc to　110．Prg替换为
set proc to 110
最好重新输入,原来的110前面空格好像太大了