例7-19.prg

来自「几个VFP程序实例」· PRG 代码 · 共 17 行

* 传递整个数组示例
dimension s(10)
for i=1 to 10    && 给数组各元素赋值
    s(i)=i
endfor
do p5 with s
? s(1),s(2),s(3),s(4),s(5)    && 输出数组各元素值
? s(6),s(7),s(8),s(9),s(10)
return
procedure p5
parameters x     && 接收整个数组
for i=1 to 5     && 将数组中的的值到个次序存放
    t=x(i)
    x(i)=x(11-i)
    x(11-i)=t
endfor
return