meimei1699的博客

dimension a1(5),a2(10,5) locate for 学号="003" scatter to a1 scan for 籍贯="福州" scatter to a2 endscan copy stru to abc2 use abc2 append from array a2 list 2.set talk off clear use 表 store 0 to a1,a2,a3,a4 do while .not. eof() do case case 成绩>=90 a1=a1+1 break case 成绩>=75 .and. 成绩<90 a2=a2+1 break case 成绩>=60 .and. 成句<75 a3=a3＋1 a3=a3+a1+a2 break otherwise a4=a+1 break endcase enddo ? "优的有："＋str(a1,2)+"r人" ？"良的有："＋str(a2,2)+"人" ？"及格的有"+str(a3,2)+"人" ? "不及各的有"+str(a4,2)+"人" 3.select 2 use abc alias a index on 职工号 tag 职工号 select 1 use abc1 set relation to 职工号 into a replace all 工作年龄 with 2000-year(a->工作日期) do while .not. eof() do case case 工作年龄>=30 replace ??工资 with 基本工资*1.25. replace 工龄金 whit 工作年龄*10 下略 endcase enddo replace ?发工资 with 基本工资＋奖金＋工龄金＋。。 .............