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

Узнай цену своей работы

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

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

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

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

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

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

9   голосов , оценка 4.111 из 5
Похожие ответы