j=j+1

enddo

?

i=i+1

enddo

settalkon

return

执行此程序，程序的运行结果为

4、假设表xmms一共有10条记录

usexmms

go3

skip4

现在是哪条记录？

skip?2

现在是哪条记录？

gobottom

现在是哪条记录？

skip

现在记录号是几？

skip－100

现在记录号是几？

go3

listnext3

显示哪3条？

显示完成后当前记录是哪条？

5、假设键盘上输入m的值为10，顺序执行下列操作后，屏幕最后显示的结果是：

settalkoff

clea

input”m=”tom

s=0

fori=mto1step－1

ifss(i)

s=s+1

??str(i,5)

endif

endfor

?str(s,5)

settalkon

funcss

parax

forj=2tox－1

ifint(x/j)=x/j

exit

endif

endfor

ifj=x

retu.t.

else

retu.f.

endif
本章已完成！