章节错误,点此举报(免注册),举报后维护人员会在两分钟内校正章节内容,请耐心等待,并刷新页面。
电路图计算
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】