VB6 初学求助

Question

学习控件数组时自己按教材做例题试验，改了代码想加一个计数显示，可就是没用请高手不耻指点一下，谢谢！代码如下：
Option Explicit
Dim a(1 To 4) As String
Private Sub Form_Load()
Text1.Text = ""
Form1.Caption = "控件数组的使用"
a(1) = "放下屠刀，立地成佛"
a(2) = "不许放屁"
a(3) = "佛曰：不可说，不可说"
a(4) = "还得说"
Label1.Caption = ""
End SubPrivate Sub Command1_Click(Index As Integer)
Dim i As Integer
Dim j As Integer
j = 0
   Select Case Index
          Case 1 To 4
              i = Str(Index)
              j = j + 1
              Text1.Text = Text1.Text & Index & "." & CStr(a(i)) & Chr(13) & Chr(10)
              
   End Select
   Label1.Caption = "第" & j & "次按键"
End SubPrivate Sub Command2_Click()
Unload Me
End SubPrivate Sub Command3_Click()
Text1.Text = ""
End Sub

Answer 1

别介，兄弟，呵呵，给说说哪儿不对，我真没有想明白呢。