Question

关于visual foxpro的一个问题

将一个任意5位数自然数赋值给内存变量n，求n的百位数
要相应命令及运行结果

Answer 1

n=82649
?SUBSTR(ALLTRIM(STR(n)),len(ALLTRIM(STR(n)))-2,1)
显示6
详细解释是这样的：
n=82649 &&随意赋值一个自然数给n
a1=allt(str(n)) &&将n转换为字符型
a2=len(ALLTRIM(STR(n))) &&返回字符型n的字符长度
a3=subs(a1,a2-2,1) &&a2-2表示百位
这时的a3是字符型的，如需要数值型的可用val(a3)转换。
还可以扩展想：
如果a3为空值，则表示n自然数不够百位，可加条件语句判断
if empt(a3)
a4=0
else
a4=val(a3)
endi