|
#2
吹水佬2023-04-16 22:10
|
在下只有这个水平，没有系统的学习过，感谢！
只有本站会员才能查看附件，请 登录
8 回复
|
#3
hytizj0232023-04-17 08:42
以下是引用吹水佬在2023-4-16 22:10:24的发言： 有问题，有什么问题？ 我觉得程序太长了，有些地方可以简写，例如：质合形态，我觉得应该几句就可以搞定，但是我不对函数不熟悉，不知道用什么函数 例如下面的代码： 12357为质数，04689为合数，例如：开奖号为：129，那么质合形态就应该是：质质合，质合比为：2:1  程序代码：IF VAL(baiwei)=2 ddd1="质" ENDIF IF VAL(baiwei)=3 ddd1="质" ENDIF IF VAL(baiwei)=5 ddd1="质" ENDIF IF VAL(baiwei)=7 ddd1="质" ENDIF IF VAL(baiwei)=0 ddd1="合" ENDIF IF VAL(baiwei)=1 ddd1="质" ENDIF IF VAL(baiwei)=4 ddd1="合" ENDIF IF VAL(baiwei)=6 ddd1="合" ENDIF IF VAL(baiwei)=8 ddd1="合" ENDIF IF VAL(baiwei)=9 ddd1="合" ENDIF ********************************************* IF VAL(shiwei)=2 ddd2="质" ENDIF IF VAL(shiwei)=3 ddd2="质" ENDIF IF VAL(shiwei)=5 ddd2="质" ENDIF IF VAL(shiwei)=7 ddd2="质" ENDIF IF VAL(shiwei)=0 ddd2="合" ENDIF IF VAL(shiwei)=1 ddd2="质" ENDIF IF VAL(shiwei)=4 ddd2="合" ENDIF IF VAL(shiwei)=6 ddd2="合" ENDIF IF VAL(shiwei)=8 ddd2="合" ENDIF IF VAL(shiwei)=9 dd2="合" ENDIF ********************************************* IF VAL(gewei)=2 ddd3="质" ENDIF IF VAL(gewei)=3 ddd3="质" ENDIF IF VAL(gewei)=5 ddd3="质" ENDIF IF VAL(gewei)=7 ddd3="质" ENDIF IF VAL(gewei)=0 ddd3="合" ENDIF IF VAL(gewei)=1 ddd3="质" ENDIF IF VAL(gewei)=4 ddd3="合" ENDIF IF VAL(gewei)=6 ddd3="合" ENDIF IF VAL(gewei)=8 ddd3="合" ENDIF IF VAL(gewei)=9 ddd3="合" ENDIF ********************************************** zhihexingtai=ddd1+ddd2+ddd3 sqlexec(nHandle,"update 基础数据 set 质合形态=?zhihexingtai where 期号=?qihao") [此贴子已经被作者于2023-4-17 08:50编辑过] |
|
|
#4
csyx2023-04-17 08:53
ddd1 = Iif(InList(VAL(baiwei), 1,2,3,5,7), '质','合')
其他类似 不过，你确定 0 是合数？  [此贴子已经被作者于2023-4-17 09:02编辑过] |
|
|
#5
hytizj0232023-04-17 09:22
以下是引用csyx在2023-4-17 08:53:26的发言： ddd1 = Iif(InList(VAL(baiwei), 1,2,3,5,7), '质','合') 其他类似 不过，你确定 0 是合数？ 我确定0为合数  |
|
|
#6
csyx2023-04-17 09:30
以下是引用hytizj023在2023-4-17 09:22:40的发言： 我确定0为合数 好吧，也行，按合数定义，去掉数值范围限制也对  |
|
|
#7
hytizj0232023-04-17 09:32
以下是引用csyx在2023-4-17 08:53:26的发言： ddd1 = Iif(InList(VAL(baiwei), 1,2,3,5,7), '质','合') 其他类似 不过，你确定 0 是合数？ 能不能拜你为师哦，有偿，有偿，有偿！重要的事说三遍 |
|
|
#8
csyx2023-04-17 09:49
 不敢，没有个十几二十年的修炼，哪敢收徒，我老师得揍扁我 |
|
|
#9
hytizj0232023-04-17 09:58
以下是引用csyx在2023-4-17 09:49:06的发言： 不敢，没有个十几二十年的修炼，哪敢收徒，我老师得揍扁我 别谦虚嘛！我留下我的邮箱：degidt@ 你发个邮件给我，我们交换一下联系方式，我不想把地球号留在这里。 |
1