早教吧作业答案频道 -->其他-->
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
题目详情
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数组上.求高手帮忙啊啊,求代码,谢谢谢谢!
例如有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数组上.求高手帮忙啊啊,求代码,谢谢谢谢!
▼优质解答
答案和解析
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),这样才标准,而且方便...
看了VB从数列中取非零的数值.例如...的网友还看了以下：
42的因数有（）,在这写因数中,偶数有（）,奇数有（）,素数有（）,合数有（）.呼呼,还有几题!2 2020-04-08 …
在等差数列{an}中,若s,t∈N※,有(as-at)/(s-t)=常数若s.t,r∈N※,且s, 2020-05-14 …
想问一道数学题（高中,向量）,拜托了!已知点O为原点,点A,B的坐标分别是（a,0）,（0,a）, 2020-05-16 …
一道高中导数已知a属于R,f(x) =√(x+1) - √(2x) .g(x)=alnx1,当a= 2020-05-17 …
设函数u(x,y)=q(x+y)+q(x-y)+定积分(x-y)到(x+y)p(t)dt,其中函数 2020-06-04 …
下表是3名同学的投篮情况李小明：投篮总次数10,投中次数7,投中的占总次数的7/10钱海：投篮总次 2020-06-14 …
6、一件T恤,现价比原价便宜12%,现价是44元,现价比原价便宜（）元.7、一批玉米的吨数比它本身 2020-06-20 …
若数列{An}满足An+T=An,其中T为非零正整数,则称数列{An}为周期数列,T为数列{An} 2020-07-09 …
设数列{an}的前n项和为Sn，且（t-1）Sn=2tan-t-1（其中t为常数，t＞0，且t≠1 2020-07-22 …
2、给定程序MODI1.C中函数fun的功能是：从低位开始取出长整型变量s中奇数位上的数,依次构成 2020-07-23 …