set talk off
dime a(7) &&定义一个一维数组,此数组有7行数据组成
use xsda
s=0
for i=3 to 5 &&这里只够明白是三次循环,似乎I没有什么意义
scatter to a &&从当前记录中复制数据到一个数组,因为此行命令了省略 了FIELDS FieldNameList ,所以将从所有字段中复制值,即将当前记录的值依次赋给a(1),a(2),……,a(7).
s=s+a(7) &&进行累加,但此a(7)指的是数组a的第7行数据,由上行命令中赋值,其值由表XSDA的第7个字段的值
skip
endfor
"s="+str(s)
return