请在以下程序的划线处填入适当内容，完善程序，并将程序输入保存到软盘根目录下TEST21.PRG文件中。（为了简化程序，本题不需要判断N是否大于等于5）
set talk off
input ’计算1+2+3+……+N,请输入N (N>=5 )’ to n
?’1+2+3+……’+str(n,2)+’=’+str(y,10)
set talk on
procedure fact
para n,y
x=1
do while x<=n
x=x+1
enddo
return
请在以下程序的划线处填入适当内容，完善程序，并将程序输入保存到软盘根目录下TEST22.PRG文件中。
set talk off
open database sjk
use LX2
____ ______
do while upper(ans)=’Y’
accept ’请输入要删除的职工编号:’ to number
locate for bh=number
if found( )
display
delete
wait ’确实要删除该职工记录(Y/N)?’ to ok
pack
else
recall
else
?’无此人!’
endif
wait ’继续做删除工作吗(Y/N)?’ to ans
enddo
use
close all
set talk on
请在以下程序的划线处填入适当内容，完善程序，并将程序输入保存到软盘根目录下TEST11.PRG文件中。
set talk off
input ’请输入边长r(r<=0或>999时结束):’ to r
do while r>0 .and. r<=999
?’正方形的面积为:’,area(r)
wait ’继续计算正方形的面积吗(Y/N)?’ to ans
exit
endif
input ’请输入边长r(r<=0或>999时结束):’ to r
enddo
return
function area
s=r*r
请在以下程序的划线处填入适当内容，完善程序，并将程序输入保存到软盘根目录下TEST12.PRG文件中。（本题假设无同名学生）
set talk off
open database sjk
use LX1
accept ’请输入要查询的学生姓名:’ to name
if found ( )
display
else
?’无此人!’
endif
wait ’继续做查询工作吗(Y/N)?’ to ans
exit
endif
enddo
use
close all
set talk on
