textbox 问题

Question

dim x as integer 
  for x=0 to 35
     if text1(x)=0 then 
          text2(1)=text1(x).index 
     end if  
  next x '到这里后就能实现，当text1(x)=0时，自动在text2(1)里面显示text1(x).index 
然后继续查找，比如  text1(4)=0的时候，自动在text2(2)里面显示text1(4).index
 当text1(15)=0时，自动在text2(3)里面显示text1(15).index，这个如何实现呢？谢谢大家！

Answer 1

dim x as integer 
dim i as long
i=1
  for x=0 to 35
     if text1(x)=0 then 
          text2(i)=text1(x).index 
          i=i+1
     end if  
  next x

Answer 2

Private Sub Text1_Change(Index As Integer)
    If Index > 35 Then Exit Sub
    If Val(Text1(Index).Text) <> 0 Then Exit Sub
    Text2(Index) = Text1(Index).Index
End Sub

Answer 3

dim x as integer 
dim Count as integer
  for x=0 to 35
     if text1(x).text=0 then 
          text2(Count )=x
          count =count +1
     end if  
  next x