6、写命令：

（1）显示出第n条记录：

（2）显示出入校总分在570分以上的女生的姓名

（3）显示出表cs1的表结构

7、模糊查询用户指定表文件中指定字段（字符型）的指定内容，如果用户指定的表文件不存在，给予提示信息。

settalkoff

clear

accept”请输入表文件名（带扩展名）：”tofilename

accept”请输入要查询的字段名（字符型）：”tofieldname

accept”请输入要查询的内容（字符串）：”tochar1

fn=”f:\2007年工作\任课\vfp\上机\”+filename

if

brop;lt;=2

j=1

dop;lt;=3

a(i,j)=i+j

??a(i,j)

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

endfunc