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
就这个 看看吧 可以满足你的要求!