Private Sub Command1_Click() Dim a(2) As String a(0) = 1 a(1) = 2 a(2) = 3 Dim b() As String b = aEnd Sub结构体数组同样有效
