五、应用题(每小题10分，共20分)
1.现有某厂当日产品数据库文件PRODUCT.DBF，内容如下：
产品代码 产品名 产品等级 出厂价格 成本 产量
211024 Mp3机 1 760 300 1200
213131 CD机 2 230 100 2000
312053 MO机 1 1400 600 1500
553145 DVD机 1 340 180 6000
211024 MP3机 2 500 300 30000
设计一个程序段用于实现计算当日总的毛利率。