Question

VFP编程题。。。这两个怎么编？？

• 你的回答被采纳后将获得：
• 系统奖励15（财富值+成长值）+难题奖励10（财富值+成长值）+提问者悬赏20（财富值+成长值）

Answer 1

1,
方法1:用docase分支语句
select score
scan
do case
case 分数>=90
replace 等级 with '优秀'
case 分数>=80 and 分数<90
replace 等级 with '良好'
case 分数>=60 and 分数<80
replace 等级 with '及格'
case 分数<60
replace 等级 with '不及格'
endcase
endscan

方法二,虽然简单,但好像不符合题目要求:
select score
replace all 等级 with icase(分数>=90,'优秀',分数>=80 and 分数<90,'良好', ;
分数>=60 and 分数<80,'及格',分数<60,'不及格')

2,
dimension arr(20)
store 1 to arr(1),arr(2)
?arr(1)
?arr(2)
for i=3 to 20
arr(i)=arr(i-1)+arr(i-2)
?arr(i)
endfor