电路图计算
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】