У меня такая противная задачка . Ну не знаю, каким же способом её ещё можно решить.

           Задача:    Дан массив из 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("Введите размерность массива")

ReDim a(1 To n)

For i = 1 To n

a(i) = Int(101 * Rnd())

Text1.Text = Text1.Text + Str(a(i)) + ""

Next i

End Sub

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 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

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

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