Question

几道程序设计题，请教各位大虾 是（VFP）的

1.在考生目录下，给定程序PROG.PRG的命令文件，编程实现如下功能：
请编写程序：根据表progin.dbf中的“成绩”字段的值，把其中的“等级”字段填写完整。规则是：如果成绩在90分（含90分）以上则为”优“，如果成绩在80（含80）则为”良“，如果成绩在70-79（含70）则为”中“，如果成绩在60-69（含60）则为及格，如果成绩在60分以下（不含60）则为”不及格“，并运行调试。
注意：请在给定程序文件中****8begin******.....*****end******范围内填写代码。否则影响考试成绩。

2.在考生目录下，给定程序PROG.PRG的命令文件，编程实现输出如下图形：
9
898
78987
6789876
567898765
要求：歪循环用FOR实现，循环变量用i；内循环用FOR实现，循环变量用j，并运行调试。
注意：请在给定程序文件中****8begin******.....*****end******范围内填写代码。否则影响考试成绩。（题库2）

3.在考生目录下，给定程序PROG.PRG的命令文件，编程实现如下功能：
计算S=1-1/2+1/3-1/4+.....-1/100的值。
要求：用FOR循环实现，循环变量用i，并把结果存放在变量S中，并运行调试。（题库5）

4.在考生文件夹下完成如下操作
编制一个表单文件form1，界面设计如design.jpg所示，运行后完成下面的功能：单击命令按钮组中的命令按钮，表单的背景色做相应改变。要求界面与题目给的一致。
注意：按照要求的文件名保存在考生文件夹下。（题库7）

5.在考生目录下，给定程序PROG.PRG的命令文件，编程实现如下功能：
从键盘输入N个数（N=10,10个数分别为：2，-3，0，4，-1.5，0.8，3.95，-5.26，1，1.9）编程求最大数与最小数之积。要求：歪循环用FOR实现，循环变量用i；内循环用FOR实现，循环变量用j，并运行调试。（题库11）

Answer 1

1.
use progin
replace 等级 with "优" for 成绩>=90
replace 等级 with "良" for 成绩<90 and 成绩>=80
replace 等级 with "中" for 成绩<80 and 成绩>=70
replace 等级 with "及格" for 成绩<70 and 成绩>=60
replace 等级 with "不及格" for 成绩<60

5.
CLEAR
nmax=0
nmin=0
input "请问要输入多少个数：" to m
dimension a(m),b(m)
for i=1 to m
input "请输入第"+alltrim(str(i))+"个数：" to a(i)
b(i)=a(i)
endfor

for j=1 to m-1
if a(j)>a(j+1)
nmax=a(j)
a(j)=a(j+1)
a(j+1)=nmax
ENDIF
IF b(j)<b(j+1)
nmin=b(j)
b(j)=b(j+1)
b(j+1)=nmin
endif
endfor
?"max:",nmax
?"min:",nmin

Answer 2

1、update progin set 等级="优" where 成绩>=90;
update progin set 等级="良" where 成绩>=80 and成绩<90;
update progin set 等级="中" where 成绩>=70 and 成绩<80
update progin set 等级="及格" where 成绩>=60 and 成绩<70
update progin set 等级="不及格" where 成绩<60

Answer 3

where