clear
dime a(10)
for i=1 to 10
    a(i)=int(rand()*100+1)
endfor
for i=1 to 10
    ??a(i)
endfor
c=findmax(@a)
?c
set talk on
cancel

function findmax (g)
    k=0
    max0=g(1)&&报错。找不到g.prg，明明是数组，咋报错程序文件呢？
    for i=2 to 10
        if max0<g(i)
            max0=g(i)
            k=i
        endif
    endfor
    return k
endfunc

Visual FoxPro 9.0
如何按引用方式传递数据给参数
请参阅
 
你可以通过一个程序或在特定位置按引用方式传递参数。

若要通过一个程序按引用方式传递参数
在需要按引用方式将数据传递给参数的代码前面，使用下列代码行：

  复制代码
SET UDFPARMS TO REFERENCE
 

更多的信息，请参见 SET UDFPARMS 命令。


若要在特定位置按引用方式传递参数
在变量或数组名前用一个(@)前缀，显示如下示例中：

  复制代码
myFunc(@var1, var2)
 


请参阅

以下是引用wp231957在2013-3-13 15:42:23的发言：

function findmax
    para g
上面的能编译

而下面的则不能编译 why？？？
function findmax
    para g（10）

以下是引用kiff在2013-3-13 16:06:43的发言：

引用方式的 数组参数，在编译是会报错的，说找不到变量，可以点  “忽略” 跳过。

以下是引用hu9jj在2013-3-13 16:50:50的发言：

单纯就这个事例，可以不考虑传递参数到函数，直接在函数中引用外部定义的数组，问题就可以轻松解决，只不过是不规范而已。