我想用vb编一个计算公式Id(2)= U2e /2√(（R1+R2）/k2＋R3 ＋Rb)2+(（X1+X2+XX）/k

来源：学生作业帮编辑：作业帮分类：综合作业时间：2024/06/05 05:21:45

我想用vb编一个计算公式Id(2)= U2e /2√(（R1+R2）/k2＋R3 ＋Rb)2+(（X1+X2+XX）/k2＋X3＋Xb＋XX1)2
其中R3和X3是变量,其他都是定植,
补充下：R3=L*R0,X3=L*X0
L是变量（长度0-1500）.不编程序计算量太大了!
定值：U2e=1200v；（R1+R2）/k2=0.0108；Rb=0.00523Ω；（X1+X2+XX）/k2=0.0174；Xb＋XX1 =0.053
用VB编如下计算公式
Id(2)= 1200 /2√(0.0108＋0.23L＋0.00523)2+(0.0174＋0.075L＋0.053)2
,感激不尽!

直接算就行了.
再问：楼上的大哥小弟VB没学好。。恳请能编个程序给小弟！！！ L是0-1500每10米一个数据，直接算计算量太大了。。。。
再答：用EXCEL就行，不用VB。 VB你直接用 dim l as single,a as single A= 1200 /2*sqrt((0.0108＋0.23*L＋0.00523)*2+(0.0174＋0.075*L＋0.053)*2 ) 就算出来了。输入可以用文本框text1，输出text2 dim l as single,a as single i=text1 A= 1200 /2*sqrt((0.0108＋0.23*L＋0.00523)*2+(0.0174＋0.075*L＋0.053)*2 ) text2=a
再问：谢谢我只想到VB ，把EXCEL给忘记了。。。。

输入电压4V,并联R1（1K）到地,R2（2K）的电路中串联了一个电阻R3（1K）到地,求R2,R3的电压?怎么算? 已知X1 X2是方程X2－2（K－2）X＋（K2＋3K＋5）＝0（K为实数）的两实根求（X1）2＋（X2）2的最小值已知关于x的方程x2-2（k-1）x+k2=0有两个实数根x1,x2. 如果x1,x2是关于x的方程x2-（2k+1）x+k2+1=0的两个实数根,且x1,x2都大于1 已知X1 X2是方程X2－2（K－2）X＋（K2＋3X＋5）＝0（K为实数）的两实根求（X1）2＋（X2）2的最小值设a ,b,r1,r2,r3都是4维列向量,A=（a,r1,r2,r3）,B=（b,r1,2r2,3r3）,如果已知|A X2-2（K+1）X+k2+5是一个完全平方式,则k=. 已知关于x的一元二次方程x2+（2k+1）x+k2-2=0的两根为x1和x2，且（x1-2）（x1-x2）=0，则k的值（2013•孝感）已知关于x的一元二次方程x2-（2k+1）x+k2+2k=0有两个实数根x1,x2．已知x1、x2是方程x2-（k-2）x+（k2+3k+5）=0的两个实根，则x12+x22的最大值是（　　）已知关于x的一元二次方程x2-（2k+1）x+k2+2k=0有两个实数根x1，x2．已知x1、x2是方程x2-（k-2）x+k2+3k+5=0的两个实数根，则x12+x22的最大值是（　　）