下面划线的部分是需要填写的，我已经填了一部分，但无奈基础不好，很多不知道该怎么做，有哪位大哥能帮忙吗，谢谢了。

6.完成下面的FOX程序，程序接收学生的学号，如果发现该学号已存在，则要求重复输入，直到确定学号唯一后，输入数据并写入一条DBF文件记录。输入动作反复进行直到输入一个’0000’学号为止。
Set talk off
Use student.dbf
Index on stno to stu
Do while_____.T._________
  Clear
  No=“    ” 
  @3,10 say “输入学号（0为退出）” get no
  _read_______________
  If no=“0000”
  ————————
  Endif
  ___locate____________for stno=no
If .not. found()
  _____________
  Else
   @4,15 say“学号重复，再输入”
   Wait
  _________________
 Endif
 Do while.t.
  @8,10 say “学号” get stno
  @9,10 say “姓名” get stname
  Read 
  Yes=’Y’
 @15,10 say “请核对(Y/N)” get yes
 Read
 If upper(yes)=“Y”
__________
___________
________
_________
_______
  SET TALK ON
  return