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数组上.求高手帮忙啊啊,求代码,谢谢谢谢!

▼优质解答

答案和解析

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从数列中取非零的数值.例如...的网友还看了以下：

已知函数f(2x+1)=3x+2,求f(x).令t=2x+1,则x=(t-1)/2∴f（t）=3( 　2020-04-26 …

已知f(x+1)=x^2+2x,求f(x)的解析式换元法：令t=x+1则x=t-1f(t)=(t- 　2020-06-05 …

什么是极大无关组?怎么判别?例题：a1=(5,2,-3,1)^t,a2=(4,1,-2,3)^t, 　2020-07-08 …

F(根号X+1)=x+2根号x求fx设√x+1=tx=(t-1)²f(√x+1)=f(t)=(t- 　2020-07-18 …

matlab能手进~t=[0.250.50.7511.522.533.544.5567891011 　2020-07-23 …

数列an满足递推式(a(n+2))*an-(a(n+1))^2=(t^n)*(t-1),a1=1, 　2020-08-01 …

对数函数问题(已解出一大半了)设x∈[2,8]函数f(x)=1/2loga(ax)·loga(a^ 　2020-08-02 …

帮忙解决一道矩阵的问题!谢谢了.已知三元非齐次线性方程组Ax=b,A的秩r(A)=1.a1,a2, 　2020-08-03 …

已知Ax=0的通解,如何求矩阵A例如A是2*4的矩阵,其基础解系为a1=(1,3,0,2)^T,a2 　2021-02-11 …

y=2x-3+根号4x-13求值域函数y=(2x-3)+根号下（4x-13)y=2x-3+√(4x- 　2021-02-18 …