Private Sub Form_Click() Dim a(), i%Redim a(9)'在这里加上这一句 for i=0 to 9 a(i)=i next i ReDim Preserve a(10) a(10) = 10 For i = 0 To 10 Print a(i); Next i End SUB
