三、

　　把下面的文件存入一個文件p1.prg中

　　SET TALK OFF

　　SET SAFETY OFF

　　CLOSE ALL

　　SELECT * FROM BOOKS WHERE "計算機"$書名 INTO TABLE BOOKS_BAK

　　UPDATE BOOKS_BAK SET 價格=價格*(1-0.05)

　　SELECT 出版單位,AVG(價格) 均價 FROM BOOKS_BAK GROUP BY 出版單位 INTO CURSOR

　　TEMP1

　　SELECT * FROM TEMP1 WHERE 均價>=25 ORDER BY 均價 INTO CURSOR TEMP2

　　GO TOP

　　?出版單位,均價

　　SCATTER TO arr1

　　COPY STRU TO new_table4

　　INSERT INTO new_table4 FROM ARRAY arr1

　　SET TALK ON

　　SET SAFETY ON

　　CLOSE ALL

　　執行程序: do p1.prg

　　2011年計算機等級考試二級VFP復習指導匯總

　　2011年計算機等級考試二級VFP基礎教程匯總