回 帖 发 新 帖 刷新版面

主题:VB与Fortran混合编程

Fortran程序如下:
SUBROUTINE ARRAYTEST(arr)
   !MS$ATTRIBUTES DLLEXPORT :: ARRAYTEST
   REAL(4)  arr(3, 7)
   INTEGER i, j
   DO i = 1, 3
      DO j = 1, 7
         arr (i, j) = 11.0 * i + j
      END DO
   END DO
END SUBROUTINE
已建立的动态链接库地址为:C:\xinjian\exam\Debug\exam.dll
VB模块里为:Public Declare Sub ARRAYTEST Lib "C:\xinjian\exam\Debug\EXAM.dll" Alias " _ARRAYTEST@8" (X As Long, Y As Single)
一个Commod 和两个Text
Private Sub Command1_Click()
  Dim a As Long
Dim ab(1 To 3, 1 To 3) As Single
a = 10
Call ARRAYTEST(a, ab(1, 1))
Text1.Text = Str(a)
Text2.Text = Str(ab(3, 3))
End Sub运行显示:找不到Dll入口点
应该怎么解决呀?麻烦高手大师们不吝赐教!!

回复列表 (共1个回复)

沙发

知道了,数组越界和参数传递有误!

我来回复

您尚未登录,请登录后再回复。点此登录或注册