能不能有个简便的写法

如图：福彩3D软件

先获取开奖号
如果开奖号是123，就在零到九字段，写入：①②③【字段一：①，字段二：②，字段三：③，其他字段都填充成空 ' '  】
〇①②③④⑤⑥⑦⑧⑨
由于基础有点差，想不出太简便的方法，不知道各位能不能帮帮忙，如果逐一写，程序会太长。

clear
PUBLIC nhandle
nhandle=sqlstringconnect("driver=sql server;server=127.0.0.1;uid=sa;pwd=123456;database=3D")

sqlexec(nHandle,"select * from 基础数据 ","本地数据")
SELECT 本地数据
zjl=RECCOUNT()

FOR i=1 TO zjl

SCATTER TO b
c1=b(1)
c2=b(6)
GO i

a=left(c6,1)&&取左边第一位获取百位
shi=LEFT(c6,2)&&取前两位
b=RIGHT(shi,1)&&取右边第一位获取十位
c=RIGHT(c6,1)&&个位



if a=0
sqlexec(nHandle,"update 基础数据 set 零='〇' where 期号=?c1")
sqlexec(nHandle,"update 基础数据 set 一='' where 期号=?c1")
sqlexec(nHandle,"update 基础数据 set 二='' where 期号=?c1")
sqlexec(nHandle,"update 基础数据 set 三='' where 期号=?c1")
sqlexec(nHandle,"update 基础数据 set 四='' where 期号=?c1")
sqlexec(nHandle,"update 基础数据 set 五='' where 期号=?c1")
sqlexec(nHandle,"update 基础数据 set 六='' where 期号=?c1")
sqlexec(nHandle,"update 基础数据 set 七='' where 期号=?c1")
sqlexec(nHandle,"update 基础数据 set 八='' where 期号=?c1")
sqlexec(nHandle,"update 基础数据 set 九='' where 期号=?c1")
endif

if a=1
sqlexec(nHandle,"update 基础数据 set 零='' where 期号=?c1")
sqlexec(nHandle,"update 基础数据 set 一='①' where 期号=?c1")
sqlexec(nHandle,"update 基础数据 set 二='' where 期号=?c1")
sqlexec(nHandle,"update 基础数据 set 三='' where 期号=?c1")
sqlexec(nHandle,"update 基础数据 set 四='' where 期号=?c1")
sqlexec(nHandle,"update 基础数据 set 五='' where 期号=?c1")
sqlexec(nHandle,"update 基础数据 set 六='' where 期号=?c1")
sqlexec(nHandle,"update 基础数据 set 七='' where 期号=?c1")
sqlexec(nHandle,"update 基础数据 set 八='' where 期号=?c1")
sqlexec(nHandle,"update 基础数据 set 九='' where 期号=?c1")
endif


这样写，是不是太低级了

ENDFOR