Question

这是我的第一篇文章。请原谅我提出一个基本问题，因为我是编程新手。

我有以下代码，它只是没有编译

 Module Module1

     Public Sub Test

         dim a as New TestClass() 
         dim b as string
         b = a.ReturnString()

     End Sub

 End Module

Public Class TestClass

     Public Function ReturnString() as string
         Return "Hello World"
     End Function
End Class

编辑：问题解决了

课程：在使用之前需要实例化课程，非常感谢Gens和大家！

Answer 1

您有2个End Class语句，请删除一个。

Answer 2

您似乎需要将Test方法放在Module内才能进行编译

Module Module1
    Public Sub Test
        dim a as TestClass() 
        dim b as string
        b = a.ReturnString()
    End Sub
End Module

Public Class TestClass

    Public Function ReturnString() as string
        Return "Hello World"
    End Function
End Class

编辑

正如Blindy所指出的，你有两个End Class陈述

Answer 3

尝试这样的事情

vbc <filename>.vb

带

Public Class Main

        Shared Sub Main
        Dim main as New Main
        main.Test()
    End Sub

    Public Sub Test
        dim a as New TestClass
        dim b as string
        b = a.ReturnString()
    End Sub

    Public Class TestClass

        Public Function ReturnString() as string
            Return "Hello World"
        End Function
    End Class
End Class

Answer 4

您的TestClass需要在使用前进行实例化。要实例化类，请在类名

之前使用 new 关键字

将a暗淡为新 TestClass（）

dim b as string

b = a.ReturnString（）

我的vb 2003代码无法编译

4 个答案: