程序代码：

for a=1 to 10000 step -1  &&貌似step -1 这个不行
    scan 
        thisform.text1.value=姓名
        thisform.refresh
         IF <退出循环条件>   &&这个就是退出的条件，但是我不知道怎么设置
             EXIT
         endif
    endscan
endfor

程序代码：

b=0
for a=1 to 100000 step 1  
    scan 
        thisform.text1.value=姓名
        thisform.refresh
         IF a=INT(RAND() *10000+1)  
             b=1
             EXIT
         endif
    ENDSCAN
    IF b=1
    EXIT
    ENDIF
ENDFOR