Выбор разных элементов из массива - VB

Формулировка задачи:

здравствуйте, столкнулся с такой проблемой при написании программки, суть программы заключается в расчете формулы a/b*c/d=((zf-z)*40)/zf, "a,b,c,d" - неизвестные, их нужно выбрать из массива чисел, программу вроде бы написал, но не понимаю как сделать так чтобы числа которые выбираются из массива не совпадали тоесть а не было равно b, и так далее помогите пожалуйста ниже привожу код программы:

                    Листинг программы
                
 
                        
                          
                    
Private Sub Command1_Click()
zf = Val(Text1)
z = Val(Text2)
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

Решение задачи: «Выбор разных элементов из массива»

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

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Похожие ответы