不可抗御的原因，域名改为dsyq.org/感谢收藏^_^
PrivateSubCommand1_Click()
单击"计算"按钮
Dimr1，r2，r3，rAsSingle
DimUAsSingle
DimIAsSingle
r1=200：r2=300：r3=600
U=Val(Text1。Text)
r=r1+r2*r3/(r2+r3)
I=U/r
Text2。Text=I
EndSub