楼主的老师不是在教他们VFP，是在教算法。

再给你一个方法

基本的、常用的算法是要会，但沉迷于算法就过了。算法，在未来工作的时候有大半辈子的时间去钻研（与专业相关的算法），用不着在求学阶段舍弃更基本的知识去玩头脑风暴。我见过太多的人算法一道一道，却连很多基本的编程常识都不知道，尽走弯路。

[ 本帖最后由 TonyDeng 于 2014-6-10 11:12 编辑 ]

分工细的缘故吧

好吧

谢谢

歪打正着。从楼主的代码中得到如下知识：VFP 会忽略 do case 与 case 之间的语句行。如下：

i = 10
do case
messagebox('编程论坛！')
case i > 10
    ? 'i>10'
case i < 10
    ? 'i<10'
otherwise
    ? 'i=10'
endcase

运行上述代码，系统并没有弹出消息对话框。

***思路1：因为所求的数是7的倍数，故有如下的算法
i=7
Do While .T.
  If mod(i,2)=1 and mod(i,3)=2 and mod(i,5)=4 and mod(i,6)=5
    ?i
    Exit
  EndIf
  i=i+7
EndDo

***思路2：还因为被2,3,4,5,6除都差1，故该数必为2,3,4,5,6的最小公倍数(60)的倍数减1,故有如下算法
i=1
Do While .T.
  If Mod(60*i-1,7)=0
    ?60*i-1
    Exit
  EndIf
  i=i+1
EndDo

***特别说明：这样的数有无数多个，所求为最小值

step 7 7的倍数