首页┊男生┊玄幻-仙侠-都市-历史-网游-科幻-灵异┊女生┊总裁-穿越-古代-魔幻-港台┊校园┊青春-校园┊同人-其他
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