有人熟悉fortranVB混合的没？我遇到奇怪问题了。

vswr

非常简单，使用VB调用fortran的dll。 各种书都说，只要把vb数组的第一个元素地址传给fortran就好了。我使用vb。net测试了下面的程序，它工作的很好。可是用vb .60时，就有问题了。传入fortran的数组第一个元素是对的，后面的元素都丢了。 因此，fortran再返回来的数都是错的了。 即下面程序中，mya 传入 fortran后 mya(1)  (也就是vb中的 mya(0))是正确的，mya(2)就是诸如2.234234e-43这样的怪东西了。奇怪的是，这样的代码在vb.net中正常的很。 有人有办法解决或者遇到类似问题没？ 我试过 cvf 和 ivf11 结果都一样。 希望高手解答！
the code as:
in vb:

[Visual Basic] 纯文本查看 复制代码

Private Declare Sub Dll2 Lib "d:\Dll2.dll" (ByRef a As Single, ByRef b As Single, ByRef n As Long)

Private Sub Command1_Click()
Dim mya(1) As Single
Dim myb(1) As Single
Dim n As Long
mya(0) = 1.01
mya(1) = 1.1
myb(0) = 3.1
myb(1) = 4.1
n = 2
Call Dll2(mya(0), myb(0), n)
aa = myb(1)
End Sub

in fortran:

[Fortran] 纯文本查看 复制代码

module testdll
IMPLICIT NONE
contains
subroutine Dll2(a,b,n)
  ! Expose subroutine Dll2 to users of this DLL
  !DEC$ ATTRIBUTES   :: Dll2
  !DEC$ ATTRIBUTES DLLEXPORT,ALIAS: "Dll2":: Dll2
integer n
real   a(n)
real b(n)
b(1)=a(1)
b(2)=a(2)
end subroutine Dll2
end module

vvt

我这里没有 VB6.0 ，只有VS，试了一下VB.NET 没有问题。

下载了一个 VB6 精简版，也没问题。

vswr

感谢！ 我发现问题了！ 其实我测试时写成了 Dim mya(1)，myb(1) As Single

那样的话，导致在.net中正常，而vb6.0中就不对了。

vvt

OK ，发现了就好。

葫芦055

楼主好，我跟你遇到了同样的问题，并且复制的代码也是运行不了

葫芦055

葫芦055 发表于 2015-12-15 00:07
楼主好，我跟你遇到了同样的问题，并且复制的代码也是运行不了

复制了你的代码

葫芦055

葫芦055 发表于 2015-12-15 00:07
复制了你的代码

vb.net也不行

晒sunstar

葫芦055 发表于 2015-12-15 00:10
vb.net也不行

你试一下我这个例子。
Fortran的dll：

[Fortran] 纯文本查看 复制代码

    subroutine suba(a,b,c)
    !DEC$ ATTRIBUTES stdcall,DLLEXPORT ::suba
    !DEC$ ATTRIBUTES ALIAS:"suba"::suba
    !DEC$ ATTRIBUTES reference :: a,b,c
        implicit none
        real::a
        real::b
        real::c
        c=a+b
    end subroutine

vb6.0的代码：

[Visual Basic] 纯文本查看 复制代码

Private Declare Sub suba Lib "D:\try_for\try_vb\c_dll\Dll1\Dll1\Debug\Dll1.dll" (ByRef a As Single, ByRef b As Single, ByRef c As Single)
Private Sub Command1_Click()
        Dim a As Single
        Dim b As Single
        Dim c As Single
        a = 1#
        b = 2#
        Call suba(a, b, c)
        Text1.Text = c
End Sub

运行结果如下图：