一个三位正整数,例如：123,利用VFP语言把个位十位百位 分别分离出来,放在内存变量里,边写程序,

* 如果可以转成字符型,很好办的
* 如果要用数值型直接操作,计算过程麻烦些（要/10求余、*10取整）
*
* 下面是字符型算法：结果存放在mdime()数字里面,mdime(1)个位、(2)十位.
* 换数请修改：x=123
x=123
msval=alltrim(str(x))
mslen=Len(msval)
dimension mdime(mslen)
for aa=mslen to 1 step -1
mdime(aa)=substr(msval,aa,1)
mdime(aa)
endfor
retu