Visual FoxPro 请教高手

2、
R<25
25-R
R=R+1
五、下面的都要写入程序中
1、
close all data
set talk off
use stud
input "姓名=" to xm
loca all for xm=allt(姓名)
if eof()
messagebox ("无此人")
else
? 姓名,年龄
if 年龄<=35
?? "青年"
endif
if 年龄>=36 and 年龄<=45
?? "中年"
endif
if 年龄>45
?? "老年"
endif
endif
2、close all date
set talk off
set exac on
use stud
brow all for "男"$性别 姓名，工龄，工资
close all data

3、clea
input "数的个数=" to n
dime sj(n)
maxsj=0
for i=1 to n
input "第"+allt(str(i))+"个数=" to sj(i)
if i=1
maxsj=sj(i)
endif
if sj(i)>maxsj
maxsj=sj(i)
endif
endfor
?"最大数为"
?? maxsj