input '请输入圆的半径：' to R
L = 2*3.14*R
S=3.14*R^2
? '半径为：'+ alltrim(str(R))+'圆的周长和面积如下：'
?L,S
    这个程序运行后，如果输入正数，结果是对的，如果输入了负数怎么办？如何修改这个程序，可以确定R的数据类型

楼主知道什么是数据类型吗
不太明白楼主的意思

楼主的本意：应该是输入负数如何处理吧
如果是这个意思：
input '请输入圆的半径：' to R
IF R>0
   L = 2*3.14*R
   S=3.14*R^2
   ? '半径为：'+ alltrim(str(R))+'圆的周长和面积如下：'
   ? L,S
ELSE
   MESSAGEBOX([输入数据必须为正数])
   RETURN
ENDIF

[ 本帖最后由 sdta 于 2013-5-6 17:25 编辑 ]

就是怎么保证输入的事正数，如果输入负数，要提示重新输入

呵呵  如果输入的是字符 咋计算

是的，谢谢

input是不接受字符输入的。顺便说一下，input已是废弃的语句，VFP提供它仅仅是基于兼容。

input是可以输入字符的，但要加定界符  ""
accept是专门输入字符的

如果是负数，加上绝对值