Выбор разных элементов из массива - VB
Формулировка задачи:
здравствуйте, столкнулся с такой проблемой при написании программки, суть программы заключается в расчете формулы a/b*c/d=((zf-z)*40)/zf, "a,b,c,d" - неизвестные, их нужно выбрать из массива чисел, программу вроде бы написал, но не понимаю как сделать так чтобы числа которые выбираются из массива не совпадали тоесть а не было равно b, и так далее помогите пожалуйста ниже привожу код программы:
Решение задачи: «Выбор разных элементов из массива»
textual
Листинг программы
For i1 = 0 To UBound(a) For i2 = 0 To UBound(a) If i2 = i1 Then GoTo 1 For i3 = 0 To UBound(a) If i3 = i2 Then GoTo 2 For i4 = 0 To UBound(a) If i4 = i3 Then GoTo 3 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); Print Exit Sub End If Next i4 3 Next i3 2 Next i2 1 Next i1
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д