VB从数列中取非零的数值.例如有text1(0-5)数组,数组text的数值分别为：0、6、2、0、4、0,还有text2、text3、text4、text5、text6、text7.text1(0-5)数组的数值与text2-7的数值存在这样的关系（比如text1(0)=0

Question

VB 从数列中取非零的数值.
例如有text1(0-5)数组,数组text的数值分别为：0、6、2、0、4、0,还有text2、text3、text4、text5、text6、text7.
text1(0-5)数组的数值与text2-7的数值存在这样的关系（比如text1(0)=0的话,text2=0；text1(1)=0的话,text3=0……；text1(0)0的话,text20；但数值不会相等.）
现在想点击实现,取text1数组中的非零数除以相对应的TEXT的数值,比如上述text1(0)=0的话不取,取text1(1)=6除以相对的text3,然后得数显示在label1数组上.求高手帮忙啊啊,求代码,谢谢谢谢!

Answer 1

For i = 0 To 5 If Val(Text1(i).Text) 0 Then Label1(i).Caption = Val(Text1(i).Text) / Val(Me.Controls("Text" & i + 2).Text)Next建议你把Text2 - Text7也设为控件数组,比如Text2(0-5),这样才标准,而且方便...