私有子可以将新创建​​的变量传递给 main() 吗？

Question

私有子程序是否可以在从主程序接收到值后与主程序在同一模块中，创建新变量并将其传递回主程序？

这是我想要做的，但我遇到了一些困难。 例如，在下面的 testSUB 中，我更改了字符串。我可以将 extraSTRING 和 newSTRING 传回 main 吗？任何示例都会有所帮助。

Module module1
    Sub main()
        Dim l As String
        Dim I As Long = 1
        Dim A As String
        testsub(l, A, I)
    End Sub

    Private Sub testSub(l As String, A As String, I As Long)
        Dim extraSTRING As String = "extraTEXT"
        Dim newSTRING As String = l & extraSTRING
    End Sub
End Module

Answer 1

要返回一个值，您可以将 Sub 转换为 Function：

Private Function testFunction (ByVal arg1 As String) As String

    Return arg1 & " and some more text"

End Function

要调用上述Function 并分配返回的值，请使用以下代码：

Dim a As String = testFunction("some text")

'Output:
'a = "some text and some more text"

下面是带有输出的代码截图：

您也可以使用ByRef:

指定以这样一种方式传递参数，即被调用的过程可以更改调用代码中参数基础的变量的值。

ByRef 与 ByVal 略有不同：

指定以这样一种方式传递参数，即被调用的过程或属性不能更改调用代码中参数基础的变量的值。

以下是一些示例代码，向您展示了操作上的差异：

Module Module1

    Sub Main()
        Dim a As Integer = 0
        Dim b As Integer = 0
        Dim c As Integer = 0

        testSub(a, b, c)

        'Output:
        'a = 0
        'b = 0
        'c = 3

    End Sub

    Private Sub testSub(arg1 As Integer, ByVal arg2 As Integer, ByRef arg3 As Integer)
        arg1 = 1
        arg2 = 2
        arg3 = 3
    End Sub

End Module

通过在VB.NET 中不指定modifier（如上面的arg1 所示），默认情况下编译器将使用ByVal。

这里需要注意的是，虽然VB.NET 在未指定的情况下默认使用ByVal，但VBA 不使用，而是默认使用ByRef。如果您将代码从一个端口移植到另一个端口，请注意这一点。

下面是带有输出的代码截图：

以您的代码为例：

Sub main()
    Dim l As String
    Dim A As String
    Dim I As Long = 1
    testSub(l, A, I)
End Sub

要传递变量 l、A 和 I 并更改它们的值，您需要更改方法以使用修饰符 ByRef。

Private Sub testSub(ByRef l As String, ByRef A As String, ByRef I As Long)
    l = "TEXT"
    A = "extra" & l
    I = 100
End Sub

下面是带有输出的代码截图：