Выбор разных элементов из массива - 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

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

6   голосов , оценка 4 из 5
Похожие ответы