*用findmax函数求出数组中 最大元素 在数组中的下标

set talk off
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

function findmax (g)  这里从哪能看出来g是一个数组呢

先声明数组变量

function findmax (g)
    LOCAL G(10)
g和G是一个 还是2个  如果是2个 恐怕和楼主的意图不符  如果是一个的话  能编译通过吗

如果声明G(1)，将发生错误

还是不对  这样能编译通过  但是函数却是永远返回0  参数传不过去

你前面定义的数组是a[10],后面引用的是g[1],VFP系统如何能够知道g()是引用a[10]数组呢。
不要以为函数可以将前面的a数组接收并自动转换成g数组。

调用函数时根本不要用参数，返回数组的下标即可。

7楼 分析到点子上了

试试：
set talk off
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()
?c
set talk on
cancel

function findmax
    k=0
    max0=a(1)
    for i=2 to 10
        if max0<a(i)
            max0=a(i)
            k=i
        endif
    endfor
    return k
endfunc