vb是不是默认按值传递参数，改成按地址传递试试。

vb是按地址传递的呀

SUBROUTINE arraytest(n,arr,s)
$ATTRIBUTES DLLEXPORT :: arraytest
INTEGER n
REAL arr(n),s
  s=0.
DO i=1,n
     s=s+arr(i)
END DO
END SUBROUTINE 

这样我试过，也不行啊

最好申明变量中的参数是按地址传递，还是按照值传递，附上一个例子函数的头例子：
SUBROUTINE wave (ITYPE,DEPTH,WT,WH,NP,NS,NF,FLAG,PULSE,TRAN,SP1)
!DEC$ ATTRIBUTES DLLEXPORT::wave
!DEC$ ATTRIBUTES STDCALL,ALIAS::'wave'::wave     !标准调用，导出名为wave
!DEC$ ATTRIBUTES VALUE::ITYPE,DEPTH,WT,WH,NP,NS,NF  !规定参数为值传递
!DEC$ ATTRIBUTES REFERENCE::PULSE,TRAN,SP1,FLAG    !规定参数为引用传递
!以下为变量声明
REAL*4 FREQ(NF),SP1(NF),DRIV(NF)
REAL*4 COR(NF),TRAN(NF)   
REAL*4 RAN0(NF),WLEN(NF),WT,WH,DEPTH                      
REAL*4 AR(NP),ARR(NP),AMP,ANGLE 
INTEGER PULSE(NP),FLAG,ITYPE,NP

我这样也不行啊：
Private Declare Sub ARRAYTEST Lib "E:\ss.dll" Alias "_ARRAYTEST@12" (ByRef X As Long, ByRef Y As Double, ByRef z As Double)
Private Sub form_Click()
  Dim n As Long
  Dim ab(100) As Double
  n = 3
  For i = 1 To n
  ab(i) = i
  Print ab(i)
  Next i
  Call ARRAYTEST(n, ab(1), s)
  Print s
End Sub

SUBROUTINE arraytest(n,arr,s)
$ATTRIBUTES DLLEXPORT :: arraytest
!DEC$ ATTRIBUTES REFERENCE::n,arr,s   !规定参数为引用传递
INTEGER,intent(in)::n
REAL*4,intent(in)::arr(n)
real*4,intent(out)::s
  s=0.
DO i=1,n
     s=s+arr(i)
END DO
END SUBROUTINE

Dim ab(100) As Double
REAL*4,intent(in)::arr(n) 
有问题。 
REAL*4,intent(in)::arr(n) -〉REAL*8,intent(in)::arr(n)

我再试试

这样最后结果是6，好人啊，叫你一声大哥