vb调用fortran(字符串传递)

2010-10-28 10:42:21 288 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

VB等语言与C++DLL的通讯 VB等语言调用C++DLL DLL(dynamic-link library)是一个包含一个或多个被编译、链接的函数/模块的文件, 并和调用它的进程分开存储。当使用者进程启动或运行时，操作系统负责把DLL映射到调用者进程的内存地址空间里。采用DLL技术，可以提高软件模块的重用性（DLL调用者可以不太关心该DLL是用何种语言写的）并起到保护源代码的目的，同时又能减少最终阅读详情

如题，我想用vb调用Fortran动态链接库，字符串传递老出错。
下面是fortran 子程序

subroutine fortstr(str1,str2)

! ms$attributes stdcall, reference, dllexport::fortstr

  character(40)::str1,str2

  str1="你好"

  str2="爸爸"

end subroutine

vb子程序是用一个按钮显示：

Private Declare Sub fortstr Lib "fortstr.dll" (ByVal str1 As String, ByVal str2 As String)



Private Sub Command1_Click()

  Sub usefortstr()



    Dim str1 As String * 40, str2 As String * 40

     Call fortstr(str1, str2)

     Debug.Print str1, str2

  End Sub

End Sub

但是执行老出现错误缺少:end sub;
不知道为什么？请高手指点，或帮忙把这个程序调通。谢谢

...全文