求 关于循环

use 表1
starmoon1=68
YS=3

FOR I5=1 TO YS
ZZjfyf=int(STARMOON1+I5)

QSYF=0
x=0
do case
case ZZJFYF<67
IF BASE04<>0
moon=base04
ELSE QSYF=QSYF+1
endif
CASE 79>ZZJFYF and ZZJFYF>=67
IF base05<>0
moon=BASE05
ELSE QSYF=QSYF+1
endif
case 91>ZZJFYF and ZZJFYF>=79
IF base06<>0
moon=base06
ELSE QSYF=QSYF+1
endif
CASE 103>ZZJFYF and ZZJFYF>=91
IF base07<>0
Moon=BASE07
ELSE QSYF=QSYF+1
endif
CASE 115>ZZJFYF and ZZJFYF >=103
IF and base08<>0
MOON=BASE08
ELSE QSYF=QSYF+1
endif
CASE 127>ZZJFYF and ZZJFYF>=115
IF BASE09<>0
MOON=BASE09
ELSE QSYF=QSYF+1
endif

x=x+MOON
repl ssq4 with x
endcase
endfor
我就想 用FOR进行循环 根据ZZjfyf=int(STARMOON1+I5) 来判断X=BASE04+BASE05....然后赋值 但现在一直X为0
不知道为什么 求指点 谢谢!!!!!

关于循环 关于for循环，while循环 急求关于气血循环机的相关内容！谢谢！ 关于ASP循环的问题求指教！在线等急！ 跪求一条关于for的循环语句 求asp循环脚本 求循环题 求一三重循环. 求循环冗余码 求asp循环语句