VB6.0 Цикл в цикле
Что не так?
Private Sub Command1_Click()
Dim U As Single, U0 As Single, Uk As Single, dU As Single, I As Single
Dim R As Single, R0 As Single, Rk As Single, dR As Single
U0 = InputBox("введи начальное напряжение")
Uk = InputBox("введи конечное напряжения")
dU = InputBox("введи шаг напряжение")
R0 = InputBox("введи начальное сопротивление")
Rk = InputBox("введи конечное сопротивление")
dR = InputBox("введи шаг сопротивления")
List1.AddItem "I U R"
For U = Uo To Uk Step dU
For R = R0 To Rk Step dR
I = U / R
List1.AddItem Format(R, "0.00") & Format(I, "0.000")
Next U
Next R
End Sub

  • Циклы перекрываются
    так правильно

    For R = R0 To Rk Step dR
    For U = Uo To Uk Step dU

    I = U / R
    List1.AddItem Format(R, "0.00") & Format(I, "0.000")
    Next U
    Next R

    Источник: http:// bnbars.moy.su/

Вас заинтересует