vfp题目！！！

clear
input "请输入半径:"to r

?"半径为"+allt(str(r))+"的圆的周长为:",zhch(r)

function zhch(r)
return pi()*2*r

如果是单个程序，在命令窗口输入:
modi comm zhch
文件内容：
para bj
return bj*2*3.1415926

如果是过程函数，在程序定义：
func zhch
para bj
return bj*2*3.1415926

调用方式：
zhch(半径)
比如：
aa=zhch(4)
那么aa=25.1327408