| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 1373 人关注过本帖
标题:编排简单考场,请帮助修改
只看楼主 加入收藏
取消关键字高亮
chychychy
Rank: 2
等 级:论坛游民
帖 子:293
专家分:98
注 册:2015-4-18
结帖率:100%
收藏
已结贴  问题点数:18 回复次数:21 
编排简单考场,请帮助修改
zwh=1
kch=1
Scan
   if xcxm='A'
      Replace 座号 With zwh      
      Replace 场次 With 'A'+Padl(kch,3,[0])   
      zwh=zwh+1
        If zwh>10
          zwh=1
          kch=kch+1
          Endif
     ELSE xcxm='B'  
      Replace 座号 With zwh      
      Replace 场次 With 'A'+Padl(kch,3,[0])   
      zwh=zwh+1
        If zwh>10
          zwh=1
          kch=kch+1
          Endif
   ENDIF
Endscan
图片附件: 游客没有浏览图片的权限,请 登录注册
2015-05-25 17:39
tlliqi
Rank: 19Rank: 19Rank: 19Rank: 19Rank: 19Rank: 19
等 级:贵宾
威 望:204
帖 子:15453
专家分:65956
注 册:2006-4-27
收藏
得分:0 
很不错啊
2015-05-25 17:42
chychychy
Rank: 2
等 级:论坛游民
帖 子:293
专家分:98
注 册:2015-4-18
收藏
得分:0 
我想根据xcxm 一栏随机生成场次和座号,10人为一组(座号1-10),场次中的字母和xcxm中的一致。可是我的代码执行完如上图,不正确,请帮助修改。
2015-05-25 17:42
chychychy
Rank: 2
等 级:论坛游民
帖 子:293
专家分:98
注 册:2015-4-18
收藏
得分:0 
我现在的代码执行结果没有去判断xcxm为A B C 等情况分别执行,肯定是循环不对,请指教

[ 本帖最后由 chychychy 于 2015-5-25 18:05 编辑 ]
2015-05-25 17:53
xs591222
Rank: 9Rank: 9Rank: 9
等 级:贵宾
威 望:28
帖 子:682
专家分:1299
注 册:2009-3-1
收藏
得分:0 
你用了IF做分支,就只有A或B了
2015-05-25 19:46
吹水佬
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:版主
威 望:451
帖 子:10608
专家分:43186
注 册:2014-5-20
收藏
得分:0 
以下是引用chychychy在2015-5-25 17:42:46的发言:

我想根据xcxm 一栏随机生成场次和座号,10人为一组(座号1-10),场次中的字母和xcxm中的一致。可是我的代码执行完如上图,不正确,请帮助修改。

可按人数生成好一个“场次”和“座号”数据表(类似上面的代码过程),经过乱序处理(打乱顺序),按这个乱序的“场次”和“座号”数据表随便入座。

[ 本帖最后由 吹水佬 于 2015-5-25 21:49 编辑 ]
2015-05-25 21:47
muyubo
Rank: 9Rank: 9Rank: 9
来 自:山东莱芜
等 级:蜘蛛侠
威 望:3
帖 子:471
专家分:1017
注 册:2011-3-6
收藏
得分:0 
程序代码:
zwh=1
kch=1
Scan
   *if xcxm='A'
      Replace 座号 With zwh      
      Replace 场次 With allt(xcxm)+Padl(kch,3,[0])   
      zwh=zwh+1
        If zwh>10
          zwh=1
          kch=kch+1
          Endif
    *ELSE xcxm='B'  
     * Replace 座号 With zwh      
     * Replace 场次 With 'A'+Padl(kch,3,[0])   
      *zwh=zwh+1
       * If zwh>10
        *  zwh=1
         * kch=kch+1
          *Endif
   *ENDIF
Endscan

这只是按照顺序编排,不叫随机.

[ 本帖最后由 muyubo 于 2015-5-26 07:09 编辑 ]
2015-05-26 07:06
吹水佬
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:版主
威 望:451
帖 子:10608
专家分:43186
注 册:2014-5-20
收藏
得分:0 
给个考生数据表好测试
2015-05-26 07:44
wangzhiyi
Rank: 7Rank: 7Rank: 7
等 级:贵宾
威 望:34
帖 子:366
专家分:684
注 册:2014-4-9
收藏
得分:0 
以下是引用chychychy在2015-5-25 17:39:46的发言:

zwh=1
kch=1
Scan
   if xcxm='A'
      Replace 座号 With zwh      
      Replace 场次 With 'A'+Padl(kch,3,[0])   
      zwh=zwh+1
        If zwh>10
          zwh=1
          kch=kch+1
          Endif
     ELSE xcxm='B'  
      Replace 座号 With zwh      
      Replace 场次 With 'A'+Padl(kch,3,[0])   
      zwh=zwh+1
        If zwh>10
          zwh=1
          kch=kch+1
          Endif
   ENDIF
Endscan

给数据表增加一个字段存放随机数,使用命令REPL ALL RAND1 WITH RAND()*9999
然后把记录按随机数排序,程序其他命令不用修改。
2015-05-26 08:00
chychychy
Rank: 2
等 级:论坛游民
帖 子:293
专家分:98
注 册:2015-4-18
收藏
得分:0 
回复 8楼 吹水佬
中学.rar (9.27 KB)
2015-05-26 21:27
快速回复:编排简单考场,请帮助修改
数据加载中...
 
   



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

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