a=ThisForm.label1.Caption
key=0
DO WHILE KEY !=32
al=substr(a,1,2)
a=Alltrim(substr(a,3))tal
ThisForm.labell.caption=a
key=inkey(0.5,'H')
ThisForm.Refresh
ENDDO
ThisForm.release

上面是我们VFP里做的一个表单的“开始”按钮对应的代码，我没学过这个语言。
求高手解释下，先谢了~

谢谢楼上两位朋友的指教！

a=ThisForm.label1.Caption
key=0
DO WHILE KEY !=32
a1=substr(a,1,2)
a=Alltrim(substr(a,3))+a1
ThisForm.label1.caption=a
key=inkey(0.5,'H')
ThisForm.Refresh
ENDDO
ThisForm.release

这个才是没语法错误的，不过出现的问题是运行之后死机了。

后来发现是按空格退出~
没问题~

是的，这个不是我写的。
我现在觉得这个代码不行。
谁能将这个代码改成，自动移动字符，而不是点击后字符才移动。

不会~