| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 1538 人关注过本帖
标题:求助:如何改善这个程序?原来的太长了,小女子我怕啊。
只看楼主 加入收藏
xuevfp89
Rank: 1
等 级:新手上路
帖 子:93
专家分:0
注 册:2014-1-22
收藏
得分:0 
没有人帮,自己又不懂简化,难啊。
2014-02-17 10:15
sdta
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
来 自:江苏省连云港市
等 级:版主
威 望:335
帖 子:9841
专家分:27213
注 册:2012-2-5
收藏
得分:0 
没弄明白楼主的思路,无法帮忙

坚守VFP最后的阵地
2014-02-17 11:25
llww425
Rank: 1
等 级:新手上路
帖 子:43
专家分:3
注 册:2014-1-24
收藏
得分:0 
从科学角度来说,每期每个号码概率都是一样的,怎么能从之前的走势来判断以后的概率?这是独立事件啊
2014-02-18 09:07
xuevfp89
Rank: 1
等 级:新手上路
帖 子:93
专家分:0
注 册:2014-1-22
收藏
得分:0 
看来没人明白我的心,
2014-02-19 20:41
ktliaobo
Rank: 2
等 级:论坛游民
帖 子:27
专家分:17
注 册:2014-1-12
收藏
得分:0 
Select 1
Use 01
Go Top
Do While Eof() = .F.
    For i = 1 To 10
        a = Field(i)
        If &a > 0
            For h = 11 To 131
                IF i = 10
                   c = 0
                ELSE
                   c = i
                ENDIF
                If Alltrim(Str(c))$Field(h)
                    b = Field(h)
                    Replace &b With &a
                Endif
            Endfor
        Endif
    Endfor
    Skip
Enddo
k = 11
Do While k <= 130
    a = Field(k)
    Go Top
    c = 0
    Do While Eof() = .f.
        IF &a > 0
            c = c+1
        Endif
        If c > 0 AND &a > 0
           Replace &a With c
        Endif
        Skip
    ENDDO
    k = k+1
Enddo
今天早上给你弄出来 没想到你就结帖了  楼主的设计思路有待改进,不然整的程序很复杂
2014-02-20 16:09
ktliaobo
Rank: 2
等 级:论坛游民
帖 子:27
专家分:17
注 册:2014-1-12
收藏
得分:0 
Select 1
Use 01
Go Top
Do While Eof() = .F.
    For i = 1 To 10
        a = Field(i)
        If &a > 0
            For h = 11 To 131
                IF i = 10
                   c = 0
                ELSE
                   c = i
                ENDIF
                If Alltrim(Str(c))$Field(h)
                    b = Field(h)
                    Replace &b With &a
                Endif
            Endfor
        Endif
    Endfor
    Skip
Enddo
k = 11
Do While k <= 130
    a = Field(k)
    Go Top
    c = 0
    Do While Eof() = .f.
        IF &a > 0
            c = c+1
        Endif
        If c > 0 AND &a > 0
           Replace &a With c
        Endif
        Skip
    ENDDO
    k = k+1
Enddo
 我把表名字改成了01.dbf 今天早上给你弄出来 没想到你就结帖了  楼主的设计思路有待改进,不然整的程序很复杂

[ 本帖最后由 ktliaobo 于 2014-2-20 16:11 编辑 ]
收到的鲜花
  • tlliqi2014-03-01 11:53 送鲜花  20朵   附言:加分
2014-02-20 16:09
xuevfp89
Rank: 1
等 级:新手上路
帖 子:93
专家分:0
注 册:2014-1-22
收藏
得分:0 
非常感谢ktliaobo,我今天才看到您给我的回帖,谢谢您对我的帮助。
2014-02-27 08:30
xuevfp89
Rank: 1
等 级:新手上路
帖 子:93
专家分:0
注 册:2014-1-22
收藏
得分:0 
回复 16楼 ktliaobo
啊,有不完善的地方:从第11列到130列,符合条件的每一列最后一个数值递增应是在该列倒数第二行的基础上递增,而不是该列的所有累积递增。比如说:最后一行的“一”>0;第11列“出123”的倒数第二行是1,那么第11列“出123”的最后第一行应是2;如果第11列“出123”的倒数第二行是6,那么第11列“出123”的最后第一行应是7;第11列“出123”的倒数第二行是空白,那么第11列“出123”的最后第一行应是1。

我只会提问题,却解决不了问题,我是不是很笨?麻烦您再帮帮我。
2014-02-27 12:30
nylmq
Rank: 1
等 级:新手上路
帖 子:32
专家分:0
注 册:2008-10-19
收藏
得分:0 
做了一个福彩30选七的程序,有兴趣的话,给你。联系QQ254339012.
2014-03-01 10:44
ktliaobo
Rank: 2
等 级:论坛游民
帖 子:27
专家分:17
注 册:2014-1-12
收藏
得分:0 
我再试试看  调试下
2014-03-05 19:08
快速回复:求助:如何改善这个程序?原来的太长了,小女子我怕啊。
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.016696 second(s), 8 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved