数据是先前口袋的数组正在被删除

Question

Dim n As Integers
Public AAA() As Integer
Public QQQ() As String

Sub Initialise()
n = 0
End Sub

Sub WrongAnswer(oShape As Shape)
A = oShape.TextEffect.Text
SendWrongAnswer
End Sub

Sub SendWrongAnswer()
ReDim QQQ(500)
QQQ(n) = Q

ReDim AAA(500)
AAA(n) = A

n = (n) + 1
End Sub

[当我制作数组AAA()和QQQ()并将数据存储在存储区中时，先前存储区中的数据将变为“ 0”或“”。

如果是AAA(1) = 50，然后当宏存储了AAA(2) = 34，则AAA(1)变为0。

Answer 1

将ReDim语句移至Sub Initialise方法，它将起作用。

Sub Initialise()
n = 0
ReDim AAA(500)
ReDim QQQ(500)
End Sub