VB.NET新手，子程序中的动态数组值无法返回，问题在哪儿？

prcstone

Sub main()
        Dim a() As Integer
        Dim b As Integer = 0

        Call testmod(a)

         b = a(4)
End Sub

Sub testmod(a)
        For i = 0 To 5
            ReDim a(i)
            a(i) = i
        Next i
End Sub

VB.NET新手，子程序中的动态数组值无法返回，问题在哪儿？请教一下，谢谢了。

shenjianrong163

ReDim Preserve a(i)，Preserve保留原来的值。

prcstone

shenjianrong163 发表于 2023-1-27 19:10
ReDim Preserve a(i)，Preserve保留原来的值。

一样的，返回主程序后，数组的值就丢了。

同样的，如果是定长数组，返回主程序后，数组的值不会丢。

子程序执行到End Sub语句，数组a有值。

子程序执行到End Sub语句，数组a有值。

返回主程序，数组a为Nothingb。

返回主程序，数组a为Nothing。

shenjianrong163

prcstone 发表于 2023-1-27 22:16
一样的，返回主程序后，数组的值就丢了。

同样的，如果是定长数组，返回主程序后，数组的值不会丢。

在函数外面定义数组

prcstone

shenjianrong163 发表于 2023-1-28 12:53
在函数外面定义数组

能不能说详细一点？

prcstone

他山之石 14:25:53
    Private Sub main()

        Dim a(6) As Integer

        Dim b As Integer = 0
        Call testmod(a)
        b = a(4)
    End Sub
    Sub testmod(a)
        For i = 0 To 5

            a(i) = i
        Next i

    End Sub


静态数组没问题

shenjianrong163

prcstone 发表于 2023-1-28 14:13
能不能说详细一点？

1. Dim a() As Integer
   
2. 
   
3. Sub main()
   
4.     Dim b As Integer
   
5.     Call testmod(a)
   
6.     b = a(4)
   
7. End Sub
   
8. 
   
9. Sub testmod(a)
   
10.     For i = 0 To 5
    
11.         ReDim Preserve a(i)
    
12.         a(i) = i
    
13.     Next i
    
14. End Sub

复制代码

prcstone

shenjianrong163 发表于 2023-1-29 21:40

也不行啊

wodewan

prcstone 发表于 2023-1-30 17:54
也不行啊

不怎么懂VB.NET，但都属于.NET系的语言，应该和C#差不多，2种方案：
1.  既然申明了a的类型，传递引用的同时指明数据类型即可编译运行


2.  要么像VBA一样，啥也别指定，默认object类型，如下，也能运行

总之，要么写全，要么什么也别写。

prcstone

wodewan 发表于 2023-1-30 21:17
不怎么懂VB.NET，但都属于.NET系的语言，应该和C#差不多，2种方案：
1.  既然申明了a的类型，传递引用的 ...

非常感谢！