VFP数据如果输出为EXECL中打印，我现在一个小程序如那位高手帮我逐条逐函数的解释？

VFP数据如果输出为EXECL中打印，我现在一个小程序如那位高手帮我逐条逐函数的解释？
小程序如下：SET DEFAULT TO d:\myvfp\kwsjk
Clear
oleApp = CREATEOBJECT(〃Excel.Application〃)
oleApp.Visible=.T. ＆＆ 显示 Excel。
oleApp.Workbooks.Add
＊＊ 设置单元格的值（报表标题）：
oleApp.Cells(1,1).Value=〃贵州大学计算机软件与理论研究所〃
oleApp.Cells(2,1).Value=〃学生成绩表〃
＊＊
oleApp.Cells(4,1).Value=〃姓名〃
oleApp.Cells(4,2).Value=〃数学〃
oleApp.Cells(4,3).Value=〃网络〃
oleApp.Cells(4,4).Value=〃数据库〃
oleApp.Cells(4,5).Value=〃英语〃
oleApp.Cells(4,6).Value=〃人工智能〃
oleApp.Cells(4,7).Value=〃总分〃
＊＊ 打开数据表，取得该表的记录数
use table1.dbf
jl=RECCOUNT()－1
＊＊ 将数据表中的记录数据放入Excel工作簿的单元格中
FOR i=0 TO jl
go i＋1 ＆＆ 第i＋1条记录
oleApp.Cells(5＋i,1).Value=table1.姓名
oleApp.Cells(5＋i,2).Value=table1.数学
oleApp.Cells(5＋i,3).Value=table1.网络
oleApp.Cells(5＋i,4).Value=table1.数据库
oleApp.Cells(5＋i,5).Value=table1.英语
oleApp.Cells(5＋i,6).Value=table1.人工智能
＊＊ 计算总分：
oleApp.Cells(

其实你提供的程序已经注释得相当明白了，我再补充一些：

** 设置VFP程序运行的默认路径
SET DEFAULT TO d:\myvfp\kwsjk
** 清屏
Clear
** 创建一个名称为oleApp的Excel应用程序对象
oleApp = CREATEOBJECT(〃Excel.Application〃)
oleApp.Visible=.T. && 显示 Excel。
** 添加Excel的工作区
oleApp.Workbooks.Add
** 设置单元格的值（报表标题）：
oleApp.Cells(1,1).Value=〃贵州大学计算机软件与理论研究所〃
oleApp.Cells(2,1).Value=〃学生成绩表〃
……
oleApp.Cells(4,1).Value=〃姓名〃
oleApp.Cells(4,2).Value=〃数学〃
oleApp.Cells(4,3).Value=〃网络〃
oleApp.Cells(4,4).Value=〃数据库〃
oleApp.Cells(4,5).Value=〃英语〃
oleApp.Cells(4,6).Value=〃人工智能〃
oleApp.Cells(4,7).Value=〃总分〃
** 打开数据表，取得该表的记录数
use table1.dbf
jl=RecCOUNT()－1
** 将数据表中的记录数据放入Excel工作簿的单元格中
FOR i=0 TO jl
go i＋1 && 第i＋1条记录
oleApp.Cells(5＋i,1).Value=table1.姓名
oleApp.Cells(5＋i,2).Value=table1.数学
oleApp.Cells(5＋i,3).Value=table1.网络
oleApp.Cells(5＋i,4).Value=table1.数据库
oleApp.Cells(5＋i,5).Value=table1.英语