計算n個電阻並聯後的阻值(其中n的值由文本框輸入,n個不同的阻值通過循環控制輸入。電腦編程 vb 代碼

For i = 1 To Val(Text1)

Sum = Sum + 1 / Val(InputBox("請輸入阻值"))

Next

MsgBox "並聯後的阻值" & 1 / Val(Sum)

End Sub