Заменить первый отрицательный элемент массива на первый положительный - VB

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

Заменить первый отрицательный элемент массива на первый положительный. Никак не могу разобраться. Вот, что получилось:

                    Листинг программы
                
 
                        
                          
                    
Dim A(100) As Integer
Dim C(100) As Integer
Private Sub Command1_Click()
n = Val(Text1)
 
Picture1.Cls
Picture2.Cls
Picture3.Cls
Picture4.Cls
 
Randomize
If n > 0 Then
k = 1
s = 0
For i = 0 To n - 1
A(i) = Int(20 * Rnd - 10)
Picture4.Print A(i)
Next
 
For i = 0 To n
If A(n) > 0 Then
i = pol
End If
Next
 
For i = 0 To n
If A(n) < 0 Then
A(i) = A(pol)
End If
Picture1.Print A(i)
Next 
End If
End Sub

Пожалуйста, помогите!

Решение задачи: «Заменить первый отрицательный элемент массива на первый положительный»

textual
                            Листинг программы 
                        
 
                        
                          
                    
Sub chng(A() as integer)
      i_pos%=-1
      i_neg%=-1
      for i%=1 to to Ubound(A,1)
          if A(i%)>0 And i_pos%=-1 then i_pos%=i%
          if A(i%)<0 And i_neg%=-1 then i_neg%=i%
          if i_pos% > 0 And i_neg% > 0 then Exit for
      next i%
 
      If i_pos% > 0 And i_neg% > 0 then
         A(i_neg%)=A(i_pos%)
      elseIf i_pos% > 0 And i_neg% =-1 then
         Debug.Print "Нет отрицательных"
      elseIf i_pos% = -1 And i_neg% > 0 then
         Debug.Print "Нет положительных"
      else
          Debug.Print "Одни нули..."
      end if
End Sub

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

13 голосов , оценка 3.692 из 5

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

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

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