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,这个如何实现呢?谢谢大家!
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,这个如何实现呢?谢谢大家!
解决方案 »
- 获取程序外控件唯一标示
- 请问各位大侠,如何将excel单元格中的内容(一段数字编码,如72224147608)对应到相应的图片上,并可以打开该图片?急!!!
- 关于窗体调用,大侠们赶紧来阿
- 最后100分拉!!!便宜让你拣那!!!!!!!!!!!大放血!!!!!!!
- vb rezq为vb5/6的反编译软件
- 请教制作安装程序的问题
- VB读取和修改注册表会不会被杀毒软件当作木马程序而报毒?
- vb中如何查询数据库里某段时间间隔中数据库里的数据
- 请问MSFlexGrid能否在运行时编辑单元格的内容?
- 关于中文输入法的切换问题
- 请教各位高手关于下标越界的问题
- vb6.olb这个文件,发布程序是需要将它打包吗?
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
If Index > 35 Then Exit Sub
If Val(Text1(Index).Text) <> 0 Then Exit Sub
Text2(Index) = Text1(Index).Index
End Sub
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