i=1 to reccount( ) if xb=“男” 男 m=m+1 else w=w+1 endif skip endfor ? m, w use
方法2: 方法 : use js store 0 to m, w i=1 ! eof( ) do while i<= reccount( ) if xb=“男” 男 m=m+1 else w=w+1 endif skip i=i+1 enddo ? m, w
示 例
利用一张厚为0.25毫米的纸对折,多少次后 毫米
的纸对折, 利用一张厚为 毫米的纸对折 可达珠穆朗玛峰高度(8848米)? 可达珠穆朗玛峰高度 米 ncount=0 height=0.25 Do while height<8848000 height=height*2 ncount=ncount+1 Enddo ?‘对折次数为:’+str(ncount) 对折次数为: 对折次数为
三、循环结构-- SCAN…ENDSCAN 循环结构-语法格式 SCAN [范围 范围][FOR<条件 条件>][ WHILE<条件 条件>] 范围 条件 条件 <语句组 语句组> 语句组 ENDSCAN 说明 – 该语句用于对表中记录进行类似处理 – SCAN语句自动控制记录指针移到 语句自动 语句自动控制记录指针移到 下一条记录 记录, 下一条记录,并执行循环体
示 例
显示教师表中记录号为双号教师的工号和 use js scan If recno( )%2=0 ? js.gh , js.xm endif endscan use
循环结构中的LOOP和EXI