请在以下程序的划线处填入适当内容，完善程序，并将程序输入保存到软盘根目录下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