有方法改进吗?请大家邦忙

int i,m,j,l,n,o,p,q,r,s,t,u,w
long km
int z1[63]
int z1b[63]
int z1t[63]
int z1w[63]
int z1h[63]
int z1ht[63]
int z1hw[63]
string k
dw_1.setfocus()
m=dw_1.getrow()
j=dw_1.getitemnumber(m,1)
l=dw_1.getitemnumber(m,2)
for i=1 to 63
z1ht[i]=dw_1.getitemnumber(m,i+2)
z1hw[i]=dw_1.getitemnumber(m,i+65)
z1h[i]=dw_1.getitemnumber(m,i+128)
z1b[i]=dw_1.getitemnumber(m,i+191)
z1[i]=dw_1.getitemnumber(m,i+254)
z1t[i]=dw_1.getitemnumber(m,i+317)
z1w[i]=dw_1.getitemnumber(m,i+380)
end for
for n=1 to 63
for o=1 to 63
for p=1 to 63
for q=1 to 63
for r=1 to 63
for s=1 to 63
for t=1 to 63
u=u+z1[n]+z1b[o]+z1t[p]+z1w[q]+z1h[r]+z1ht[s]+z1hw[t]
if mod(u,12)=j then
k="z1["+string(n)+"]"+"+"+"z1b["+string(O)+"]"+"+"+"z1t["+string(p)+"]"+"+"+"z1w["+string(q)+"]"+"+"+"z1h["+string(r)+"]"+"+"+"z1ht["+string(s)+"]"+"+"+"z1hw["+string(t)+"]"
km=km+1

insert into ms values(:km,:l,:k);

end if
u=0
k=""
end for
end for
end for
end for
end for
end for
end for
运行起来比蜗牛还慢啊!!!