Не до конца работает программа - VB

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

Переставить первые три и последние три элемента местами, сохраняя порядок их следования. Переставляет только последние

                    Листинг программы
                
 
                        
                          
                    
Private Sub Command1_Click()
Picture1.Cls
Picture2.Cls
Picture3.Cls
Picture4.Cls
a = Val(Text1)
b = Val(Text2)
n = Val(Text3)
k = Val(Text4)
k1 = Val(Text5)
o = 0
 
ReDim D(1 To n)
For i = 1 To n
D(i) = Int((b - a + 1) * Rnd + a)
Picture1.Print D(i)
Next i
 
For z = 1 To 7
x = D(1)
For i = 1 To n - 1
D(i) = D(i + 1)
Next i
D(n) = x
Next z
For i = 1 To n
Picture4.Print D(i)
Next i
 
End Sub

Решение задачи: «Не до конца работает программа»

textual
                            Листинг программы 
                        
 
                        
                          
                    
Private Sub Form_Click()
 
Dim i As Integer, n As Integer
Cls
Randomize 'для случайных чисел
n = 20 'Можно вводить из текстового поля
ReDim D(1 To n)
For i = 1 To n
    D(i) = Int(100 * Rnd) 'упрощенно
    Print D(i);
Next i
 
Dim x As Integer, k As Integer
k = 3  'Можно вводить из текстового поля
For i = 1 To k
    x = D(i)
    D(i) = D(n - k + i)
    D(n - k + i) = x
Next i
Print 'перенос строки
 
For i = 1 To n
    Print D(i);
Next i
 
End Sub