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 &&获得标签1的字符
key=0 &&定义数值变量
DO WHILE KEY !=32 &&开始循环，若变量值=32（即空格键）则结束循环
al=substr(a,1,2) &&分离出字符变量a中的前两个字符
a=Alltrim(substr(a,3))tal &&此行最后面的t应该是个+号，与上行的共同作用是将字符变量a中的前两个字符移到最后
ThisForm.labell.caption=a &&将移动后的字符变量重新赋值给标签1
key=inkey(0.5,'H') &&接收键盘输入，0.5表示等待0.5秒，H表示隐藏光标
ThisForm.Refresh &&刷新表单显示
ENDDO
ThisForm.release &&清除表单

运行这个表单时，标签1的内容将不断地变化，每次改变时前2个字符（正好是一个汉字）自动跳到最后，直到按下空格键为止。

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

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

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

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

自己慢慢研究,体会更深

我觉得好奇怪，既然是你们自己写的代码，却又不知道它的意思！

应该不是楼主写的

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

那就把代码放在load事件上呗。
我想，写代码的人一定知道。

[此贴子已经被作者于2007-7-4 22:42:41编辑过]