你的意思应该是：字符间隔以像素为单位。
可以每个字符为一个对象处理，如用Label或TextBox。
或者用API绘制，如用VFP的GDI+ API。

就是这样text1输入任意数值，都会在text2中显示成这样。

?strconv(chrtran(a,".","  "),1) ，这么着了，不行？
这样只是把小数点换成空格了,其他数字间距无法拉开.

就是3楼吹的.

?TRANSFORM(6866.66*100, "9 9 9 9 9 9")

如果小数位数不定,要先将数据进行处理.
如:tran(chrtran(str(6866.66),".",""),"9 9 9 9 9 9 9 9 9 ")

[ 本帖最后由 muyubo 于 2015-4-25 07:36 编辑 ]

去掉小数点再赋给text2可以吧? 但TextBox字符间隔不能任意调整。

应该好办，还是上面的函数，将“9 9 9 9”做一个可调的变量不就行了吗

将数字拉开距离,距离可调.

y="9"+SPACE(thisform.text3.value)
x=REPLICATE(y,9)+"9"
thisform.text2.value=TRANSFORM(VAL(CHRTRAN(thisform.text1.value,".","")),"&x")

输入上￥后不行.

那个你不要输，修改一下第三句代码，把这个字符加在前面就行

第三句修改为
thisform.text2.value=TRANSFORM(VAL(CHRTRAN(thisform.text1.value,".","")),"￥ # # # # # #")
这个后只能显示为
　￥　　　2　2　2　2
或￥　2　2　2　2　2
这种样式，若输入22.22就是　￥　　　2　2　2　2
　　　　　若输入222.22就是￥　2　2　2　2　2
￥后面有空格，除非输入的正好是6位数，与"￥ # # # # # #"这个有关系，应该怎么写才不会在￥后出现空格，正好是在输入的数字前面？

　

之前已经有答案了，重复一下：
thisform.text2.value=TRANSFORM(CHRTRAN(thisform.text1.value,".",""),"@R ￥ # # # # # # # # # # # # # # #")