楼主的老师不是在教他们VFP,是在教算法。
For lnI=1 To 999 Step 2
If Mod(lnI,2)=1 And Mod(lnI,3)=2 And Mod(lnI,5)=4 And Mod(lnI,6)=5 And Mod(lnI,7)=0
MessAgeBox("共有 "+Transform(lnI)+" 阶梯")
Exit
Endif
Endfor
If Mod(lnI,2)=1 And Mod(lnI,3)=2 And Mod(lnI,5)=4 And Mod(lnI,6)=5 And Mod(lnI,7)=0
MessAgeBox("共有 "+Transform(lnI)+" 阶梯")
Exit
Endif
Endfor
再给你一个方法