问题标题：
VB求N个并联电阻阻值切记是N个!（不确定有几个）
问题描述：
VB求N个并联电阻阻值
切记是N个!（不确定有几个）
和田回答：
PrivateSubCommand1_Click()
a=InputBox("输入电阻的个数")
Fori=1Toa
c=InputBox("输入第"&i&"电阻的阻值")
b=b+1/c
Next
MsgBox"你输入的电阻并联后阻值为："&b
EndSub
就这个看看吧可以满足你的要求!
点击显示
数学推荐
热门数学推荐