奇偶数判定代码
请高手帮忙,以下代码我想用来判定奇偶数,但得到全是偶数,我怎么查都找不到原因count for 年级=a(1) to bs1
count for 年级=a(2) to bs2
alter table kach add 考号 n(6)
n=reccount()
for i=1 to bs1
if int(n/2)!=n/2
bm= int(rand()*bs1)*2+1
replace 考号 WITH bm for 年级=a(1)
endif
endfor
FOR j=1 TO bs2
if int(n/2)=n/2
bm1= int(rand()*bs2)*2
replace 考号 with bm1 for 年级=a(2)
ENDIF
endfor