第 162 章

    162. 电路图计算

    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