用子程序调用的方法求解圆的周长和面积，主程序满足能多次调用子程序求解，这个用vf怎么做啊求大神

用子程序调用的方法求解圆的周长和面积，主程序满足能多次调用子程序求解，这个用vf怎么做啊？求大神
do while t
clea
"输入圆的半径 r "
input to r
if r=0
loop
endif
"c=",YSC(R,"c")
"S=",YSC(R,"S")
"继续运算吗(Y/N)？"
accept to yn
if "N"$upper(yn)
exit
endif
enddo
return
PROCEDURE ysc
LPARAMETERS r,L
if L="c"
V=2rPI()
else
V=rrpi()
endif
RETURN V
ENDPROC

以上就是关于用子程序调用的方法求解圆的周长和面积，主程序满足能多次调用子程序求解，这个用vf怎么做啊求大神全部的内容，包括:用子程序调用的方法求解圆的周长和面积，主程序满足能多次调用子程序求解，这个用vf怎么做啊求大神、、等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！