有人熟悉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] 纯文本查看 复制代码

查看代码

打印?

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

02

03	Private Sub Command1_Click()

04	Dim mya(1) As Single

05	Dim myb(1) As Single

06	Dim n As Long

07	mya(0) = 1.01

08	mya(1) = 1.1

09	myb(0) = 3.1

10	myb(1) = 4.1

11

n = 2

12	Call Dll2(mya(0), myb(0), n)

13	aa = myb(1)

14

End Sub

in fortran:

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

查看代码

打印?

01	module testdll

02	IMPLICIT NONE

03

contains

04	subroutine Dll2(a,b,n)

05	! Expose subroutine Dll2 to users of this DLL

06	!DEC$ ATTRIBUTES   :: Dll2

07	!DEC$ ATTRIBUTES DLLEXPORT,ALIAS: "Dll2":: Dll2

08

integer n

09	real   a(n)

10

real b(n)

11

b(1)=a(1)

12

b(2)=a(2)

13	end subroutine Dll2

14	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] 纯文本查看 复制代码

查看代码

打印?

01	subroutine suba(a,b,c)

02	!DEC$ ATTRIBUTES stdcall,DLLEXPORT ::suba

03	!DEC$ ATTRIBUTES ALIAS:"suba"::suba

04	!DEC$ ATTRIBUTES reference :: a,b,c

05	implicit none

06

real::a

07

real::b

08

real::c

09

c=a+b

10	end subroutine

vb6.0的代码：

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

查看代码

打印?

01	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)

02	Private Sub Command1_Click()

03	Dim a As Single

04	Dim b As Single

05	Dim c As Single

06

a = 1#

07

b = 2#

08	Call suba(a, b, c)

09	Text1.Text = c

10

End Sub

运行结果如下图：