给数组赋值，赋值好后就退出，能人帮我看下吧

Question

给数组赋值，赋值好后就退出，能人帮我看下吧
Dim a(12) As Longa(0)=Grid1.Column(0).Width+Grid1.Column(1).Width
a(1)=a(0)+Grid1.Column(2).Width
a(2)=a(1)+Grid1.Column(3).Width
a(3)=a(2)+Grid1.Column(4).Width
......
a(11)=a(10)+Grid1.Column(12).Width就是加上表格列宽值
当a(0),a(1)....a(11)都有值时候，就退出给他们赋值的操作

Answer 1

标准答案来了Private Sub Command1_Click()
Dim a(12) As Long
Dim i As Long, j As Long
With Grid1
a(0) = Grid1.Column(0).Width + Grid1.Column(1).Width
Me.Caption = Me.Caption & ",a(0)=" & a(0)
For i = 1 To 11
    a(i) = a(i - 1) + .Column(i + 1).Width
    Me.Caption = Me.Caption & ",a(" & i & ")=" & a(i)
Next
End With
End Sub

Answer 2

退出可以用goto ，我已经试验过了 OK