программированию обучался лет 20 назад все было проще .может чтото не так .-но факт остается фактом не работает -виснет после загрузки переменных. подскажите заранее благодарен
Private Sub Form_Activate()
Dim m As Single
Dim E As Single
Dim F As Single
Dim I As Single
I = 1
m = InputBox("VVOD m")
F = InputBox("VVOD F")
E = InputBox("VVOD E")
RF = 1 / 7.995 * Sin(F * 3.1415 / 180) / m
'вычисление'
For A = 30 To 70 Step 1
For B = 30 To 70 Step 1
For C = 30 To 70 Step 1
For D = 30 To 70 Step 1
F = A(I) / B(J) * C(K) / D(L)
If Abs(F - RF) < E Then
If I < 4 Then
Y = Y + 1
End If
Print " набор диффренциала"
Print "A="""
Print "B="
Print "C="
Print "D="
End If
Next D
Next C
Next B
Next A
End Sub
нных.