textbox 问题
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，这个如何实现呢？
谢谢大家！
[解决办法]
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
[解决办法]
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
[解决办法]
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
