Вычисления по формуле (аргументы выбираются из списка) - VB
Формулировка задачи:
Здравствуйте, неожиданно столкнулся с такой проблемой:
нужно написать программу для вычисления формулы a/b*c/d=((Zf-Z)*40)Zf, проблема заключаеться в следуйшем занечия, Zf и Z нужно вести, тоеть они даны, а вод заначения a,b,c,d нужно выбрать из списка (25,30,40,50,55,60,70,80,90,10) так чтобы равенство соблюдалось.
Никак не могу понять как реализовать данную программу, буду благодарен за любую помощь!
Решение задачи: «Вычисления по формуле (аргументы выбираются из списка)»
textual
Листинг программы
Private Sub Command1_Click()
zf = Val(InputBox("Zf=?"))
z = Val(InputBox("Z=?"))
a = Array(25, 30, 40, 50, 55, 60, 70, 80, 90, 100)
For i1 = 0 To UBound(a)
For i2 = 0 To UBound(a)
For i3 = 0 To UBound(a)
For i4 = 0 To UBound(a)
If (a(i1) / a(i2)) * (a(i3) / a(i4)) = (zf - z) * 40 * zf Then
Print "a = "; a(i1)
Print "b = "; a(i2)
Print "c = "; a(i3)
Print "d = "; a(i4)
Exit Sub
End If
Next i4
Next i3
Next i2
Next i1
Print "не найдено"
End Sub