电路图计算

2014-10-24 作者： 暗夜冰焰

电路图计算

Private Sub Command1_Click()

'单击"计算"按钮

Dim r1， r2， r3， r As Single

Dim U As Single

Dim I As Single

r1 = 200： r2 = 300： r3 = 600

U = Val(Text1。Text)

r = r1 + r2 * r3 / (r2 + r3)

I = U / r

Text2。Text = I

End Sub

888888888888888888888888888888888888888888888888888888888888888888888888【品文吧 - 为您精选好看的小说 www.pinwenba.com】