标题:请教随机取8个数的问题
只看楼主
fdxxhjc
Rank: 1
等 级:新手上路
帖 子:305
专家分:0
注 册:2014-4-10
结帖率:73.44%
已结贴  问题点数:20 回复次数:4 
请教随机取8个数的问题
请教先生,我现在有这样一个问题:从有300行1列的“表.dbf”中随机取8个数,当这随机取到的8个数的和能被5除尽(或者称这个和能被5整除),则将这8个随机数及他们的和记录到“搜索记录.dbf”中,若这个和不能被5除尽,则进入下一次的随机取8个数继续按上述过程执行,直至随机8数之和能被5除尽的记录数为100退出程序,谢谢先生

请教.rar (1.12 KB)
搜索更多相关主题的帖子: 之和 随机 记录 个数 dbf 
2020-03-31 20:33
吹水佬
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:版主
威 望:432
帖 子:10064
专家分:41463
注 册:2014-5-20
得分:20 

USE 搜索记录 IN 0 ALIAS ta
ZAP
USE 表 IN 0 ALIAS tb
SELECT tb
nCount = 0
DO WHILE nCount < 100
    SELECT TOP 8 RAND() r, 变量 FROM tb ORDER BY r INTO CURSOR tmp
    SELECT SUM(变量) FROM tmp INTO ARRAY aSum
    IF aSum % 5 == 0
        SELECT 变量 FROM tmp INTO ARRAY av
        DIMENSION av[9]
        av[9] = aSum
        INSERT INTO ta FROM ARRAY av
        nCount = nCount + 1
        ?? " " +TRANSFORM(nCount)+0h0D
    ENDIF
ENDDO
SELECT * FROM ta
2020-03-31 22:11
mywisdom88
Rank: 16Rank: 16Rank: 16Rank: 16
等 级:版主
威 望:190
帖 子:3125
专家分:8340
注 册:2015-3-25
得分:0 
从有300行1列的“表.dbf”中随机取8个数
楼主的表好像是只有1个字段,分别从1个字段中随机取8条记录,不是1条记录的8个字段。
2020-04-01 08:37
fdxxhjc
Rank: 1
等 级:新手上路
帖 子:305
专家分:0
注 册:2014-4-10
得分:0 
回复 3楼 mywisdom88
是从"表.dbf"中取随机取8个记录(或8行数据)
2020-04-01 13:14
fdxxhjc
Rank: 1
等 级:新手上路
帖 子:305
专家分:0
注 册:2014-4-10
得分:0 
回复 2楼 吹水佬
先生真神,可行了,谢谢!
2020-04-01 13:15



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




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

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