Массив после циклического сдвига выдает не все данные - VB

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

У меня такая противная задачка. Ну не знаю, каким же способом её ещё можно решить. Задача: Дан массив из N целых чисел. Циклически сдвигая его элементы вправо, поместить первый из максимальных на последнее место. Решение:

  Dim a%()
  Dim i As Integer
  Dim n As Integer
  Dim k As Integer
  Dim Max As Integer
  Dim j As Integer
  Private Sub Command1_Click()
     n = InputBox("Введите размерность:")
     For j = k To n
        d = a(n)
        For i = n To 2 Step -1
           a(i) = a(i - 1)
        Next i
        a(1) = d
     Next j
     Text2.Text = Text2.Text & Str(a(i))
  End Sub

Мне нужно, чтоб массив выдавал, а он, жадина, только одно числои выдаёт!

Решение задачи: «Массив после циклического сдвига выдает не все данные»

textual
                            Листинг программы 
                        

                            Private Sub Command2_Click()
  For i = 1 To n
    If a(i) > Max Then
      Max = a(i): k = i
    End If
    txtMax.Text = Str(Max)
  Next i
  For j = k + 1 To n
    d = a(n)
    For i = n To 2 Step -1
      a(i) = a(i - 1)
    Next i
    a(1) = d
  Next j
  For i = 1 To n
    Text2.Text = Text2.Text & Str(a(i))
  Next i
End Sub
                        

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

8 голосов , оценка 3.875 из 5

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