本帖最后由 bcrun 于 2010-10-29 09:51:10 编辑

解决方案 »

  1.   

    不是缺少,是多了一个End Sub
      

  2.   

    Sub usefortstr()应该新建对象调用
      

  3.   

    Private Declare Sub fortstr Lib "fortstr.dll" (ByVal str1 As String, ByVal str2 As String)Private Sub Command1_Click()
        usefortstr
    End SubSub usefortstr()
        Dim str1 As String * 40, str2 As String * 40
        Call fortstr(str1, str2)
        Debug.Print str1, str2
    End Sub
      

  4.   

    用三楼的办法,但是出现了错误是: 
      实时错误‘453’
    找不到dll文件的入口fortstr in fortstr.dll
    请问这是为什么?谢谢
      

  5.   

    是 fortstr,fortstr.dll是用Fortran程序生成的动态链接库文件名,不知道是哪里的问,
    是不是字符串传递出现了问题?好像不是,怎么找不到入口是什么意思?帮帮忙
      

  6.   

    ”是否已经注册dll“,dll这个还需要注册码?不太明白,能不能具体点?谢谢!