为啥getmask(mask)中显示：变量“mask”在赋值前被使用。可能会在运行时导致空引用异常

怎样修改谢谢！

Option Explicit On

Sub getmask(ByVal mk() As Long)
        Dim i As Long
        ReDim mk(0 To 30)
        mk(1) = 1
        For i = 2 To 30
            mk(i) = mk(i - 1) * 2
        Next

    End Sub

 Private Sub Button12_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button12.Click
        Dim mask() As Long
        Dim add As Long
        add = 300
        getmask(mask)
        Dim sjStr(add - 1)
        Dim sj(1, add - 1)

[此贴子已经被作者于2023-3-4 21:35编辑过]

要保留函数中对形参的更改需要用byref
Sub getmask(ByRef mk() As Long)

Dim mask() As Long 这个只是声明了数组，并没有初始化大小。根据你你的代码可以写成 Dim mask(0) As Long

收到的鲜花

• vbcaonia 于 2023-04-07 14:47 送鲜花  3朵  

问题完美解决，谢谢版主！