VFP6编程问题求解

Question

恩，传了老师的题，跪求答案！！！！
编程：设S=1*2*3*4*....N，求s不大于10000时的N。

试编程显示如下图形：
1) 1
2) 2 4
3) 3 6 9
4) 4 8 12 16
5) 5 10 15 20 25

编程：求100之内的偶数和，要求使用loop命令。
已知：有自由表gz.dbf，其数据内容为单位发放工资情况表，
试编程将其中基本工资字段按字段工龄5年以下的长30元，
10年以下的长50元，15年以下的长80元，20年以下长120元，20年以上长200元。

已经建立了工资数据库文件GZB.DBF，要修改其中基本工资字段值，请编程。

求矩形面积（要求：用过程文件）

求圆面积（要求：用过程文件）

求任意数的阶乘（要求：过程文件）

任意三个数排序(大、中、小）

求任意数的阶乘（要求：用过程文件）
没发完，囧
已知有数据表xscj.dbf,其结构为:学号(C,8),姓名(C,8),成绩1(N,3),成绩2(N,3),成绩3(N,3),总平均成绩(N,3),其中总平均成绩和名次为空，要求编程将总平均成绩自动填入并将班级前十名显示出来。
要求显示如下乘法表，试编程序。
4*4=16
3*3=9 3*4=12
2*2=4 2*3=6 2*4=8
1*1=1 1*2=2 1*3=3 1*4=4

有自由表xs.dbf，字段为姓名（C，8）成绩1（N，4）成绩2（N，4）成绩3（N，4），
试编程将各门课均在85分以上的显示出来。要求用当型循环。

*读程序，写出运行结果：
* 这是主程序，文件名是ex1.prg
SET TALK OFF
a=4
b=5
do pp with a,2*b
?a,b
set talk on
RETURN

*这是子程序，文件名是pp.prg
PARAMETERS x,y
y=x*y
?"s="+STR(y,3)
RETURN

运行结果为：

*读程序，写出运行结果：
* 这是主程序，文件名是ex1.prg
SET TALK OFF
a=10
b=5
do pp with a,2*b
?a,b
set talk on
RETURN

*这是子程序，文件名是pp.prg
PARAMETERS x,y
y=x*y
?"s="+STR(y,3)
RETURN

运行结果为：
答案发邮箱 [email protected]

Answer 1

所有的程序都已经上机验证过了。
*******************************************************************
1.设S=1*2*3*4*....N，求s不大于10000时的N
CLEAR
S=1
N=0
DO WHILE S<=10000
N=N+1
S=S*N
?S
ENDDO
?"N=",N-1
RETURN
**********************************************************************

试编程显示如下图形：
1) 1
2) 2 4
3) 3 6 9
4) 4 8 12 16
5) 5 10 15 20 25
程序如下：
clear
for i=1 to 5
for j=1 to i
??alltrim(str(i*j))+space(2)
endfor
?
endfor
return
*********************************************************************
编程：求100之内的偶数和，要求使用loop命令。
clear
s=0
i=1
do while i<=100
if i%2<>0
i=i+1
loop
else
s=s+i
i=i+1
endif
enddo
?"100以内的偶数和是：",s
return
endif
endfor
**********************************************************************

已知有数据表xscj.dbf,其结构为:学号(C,8),姓名(C,8),成绩1(N,3),成绩2(N,3),成绩3(N,3),总平均成绩(N,3),其中总平均成绩和名次为空，要求编程将总平均成绩自动填入并将班级前十名显示出来。
clear
use xscj
repl all 总平均成绩 with （成绩1+成绩2+成绩3）/3
index on 总平均成绩 tag 总平均成绩 desc
go top
list next 10
use
return
**********************************************************************
要求显示如下乘法表，试编程序。

4*4=16
3*3=9 3*4=12
2*2=4 2*3=6 2*4=8
1*1=1 1*2=2 1*3=3 1*4=4

clear
for i=4 to 1 step -1
for j=1 to 5-i
??str(i,1)+"*"+str(5-j,1)+"="+alltrim(str(i*j))+space(2)
endfor
?
endfor
return

**********************************************************************

已知：有自由表gz.dbf，其数据内容为单位发放工资情况表，
试编程将其中基本工资字段按字段工龄5年以下的长30元，
10年以下的长50元，15年以下的长80元，20年以下长120元，20年以上长200元。

clear
use gz
scan
do case
case 工龄<5
replace 基本工资 with 基本工资+30
case 工龄<10
replace 基本工资 with 基本工资+50
case 工龄<15
replace 基本工资 with 基本工资+80
case 工龄<20
replace 基本工资 with 基本工资+120
otherwise
replace 基本工资 with 基本工资+200
endcase
endscan
use
return
**********************************************************************

有自由表xs.dbf，字段为姓名（C，8）成绩1（N，4）成绩2（N，4）成绩3（N，4），
试编程将各门课均在85分以上的显示出来。要求用当型循环。

程序如下：
clear
use xs
do while not eof()
if 成绩1>=85 and 成绩2>=85 and 成绩3>=85
disp
endif
skip
enddo
use
return

*********************************************************************
SET TALK OFF
a=4
b=5
do pp with a,2*b
?a,b
set talk on
RETURN

*这是子程序，文件名是pp.prg
PARAMETERS x,y
y=x*y
?"s="+STR(y,3)
RETURN
运行结果为：s=40
4 5
*********************************************************************

Answer 2

期待回答，看看怎么弄

Answer 3

我是来做任务的