Question

vfp中“Command1”按钮的Click事件代码

“Command1”按钮的Click事件代码：K=.T.
Y=10
X=""
DO WHILE K
Y=Y+1
IF Y/5=INT(Y/5)
X=X+STR(Y,3)
ELSE
LOOP
ENDIF
IF Y>30
K=.F.
ENDIF
ENDDO
Thisform.Label1.Caption=X
x表示为

Answer 1

K=.T.
Y=10
X=""

DO WHILE K
Y=Y+1

IF Y/5=INT(Y/5)
X=X+STR(Y,3)
ELSE
LOOP
ENDIF

IF Y>30
K=.F.
ENDIF

ENDDO

Thisform.Label1.Caption=X

点击command1后将在Label1内显示" 15 20 25 30"。因该没错（VF好久没碰过了，没法帮你验证）

需要理解清楚DO while语句里的意思：
K为do语句的循环“开关”，当K为true时一直循环；K为false时跳出循环

在do循环主要分为三部分：Y=Y+1 ，第一个if语句（增加字符串X的值） ，第二个if语句（判断Y的大小，跳出循环）
在第一个if语句中，条件为当Y值能被5整除，则在X字符串后增加y的值（str(y,3)将y值转变成长度为3的字符串，不足添加空格）

还有不懂的地方自己去下个VFP帮助文件自己看看吧