VB求N个并联电阻阻值

问题描述:

VB求N个并联电阻阻值
切记是N个!(不确定有几个)

Private Sub Command1_Click()
a = InputBox("输入电阻的个数")
For i = 1 To a
c = InputBox("输入第" & i & "电阻的阻值")
b = b + 1 / c
Next
MsgBox "你输入的电阻并联后阻值为: " & b
End Sub
就这个看看吧 可以满足你的要求!