求解我这个运行出错 - VFP论坛

编程论坛 → 数据库技术 → 『 VFP论坛』 → 求解我这个运行出错

标题：求解我这个运行出错

只看楼主

taifu945

等　级：贵宾
威　望：80
帖　子：1545
专家分：3298
注　册：2012-7-6

第 11 楼

得分:3

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

2014-06-10 10:06

sdta

来　自：江苏省连云港市
等　级：版主
威　望：323
帖　子：9621
专家分：26174
注　册：2012-2-5

第 12 楼

得分:0

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

再给你一个方法

坚守VFP最后的阵地

2014-06-10 10:35

TonyDeng

等　级：贵宾
威　望：304
帖　子：25859
专家分：48889
注　册：2011-6-22

第 13 楼

得分:3

以下是引用taifu945在2014-6-10 10:06:56的发言：

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

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

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

授人以渔，不授人以鱼。

2014-06-10 11:08

wengjl

等　级：贵宾
威　望：108
帖　子：2175
专家分：3785
注　册：2007-4-27

第 14 楼

得分:3

分工细的缘故吧

只求每天有一丁点儿的进步就可以了

2014-06-10 11:28

护城河部队

等　级：新手上路
帖　子：8
专家分：0
注　册：2014-6-9

第 15 楼

得分:0

回复 9 楼 wp231957

好吧

2014-06-10 13:04

护城河部队

等　级：新手上路
帖　子：8
专家分：0
注　册：2014-6-9

第 16 楼

得分:0

回复 12 楼 sdta

谢谢

2014-06-10 13:05

liuxingang28

来　自：山东济南
等　级：贵宾
威　望：47
帖　子：649
专家分：2156
注　册：2014-2-7

第 17 楼

得分:3

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

程序代码：

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

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

泉城飞狐

2014-06-11 13:27

Tiger5392

等　级：贵宾
威　望：88
帖　子：2775
专家分：2237
注　册：2006-5-17

第 18 楼

得分:3

***思路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

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

感言：学以致用。博客：http://www./blog/user14/65009/index.shtml email：Tiger5392@

2014-06-11 22:35

liumqx

等　级：新手上路
帖　子：23
专家分：0
注　册：2005-8-24

第 19 楼

得分:0

step 7 7的倍数

2014-06-23 12:57

参与讨论请移步原网站贴子：https://bbs.bccn.net/thread-432697-1-1.html