Не до конца работает программа - 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д