我总感觉我的程序，有问题，哪位大佬帮我优化一下，很多地方我觉得是可以简写的
在下只有这个水平，没有系统的学习过，感谢！

我觉得程序太长了，有些地方可以简写，例如：质合形态，我觉得应该几句就可以搞定，但是我不对函数不熟悉，不知道用什么函数
例如下面的代码：
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编辑过]

我确定0为合数

能不能拜你为师哦，有偿，有偿，有偿！重要的事说三遍

别谦虚嘛！我留下我的邮箱：degidt@
你发个邮件给我，我们交换一下联系方式，我不想把地球号留在这里。