Вставить элемент со значением К до и после всех элементов, заканчивающихся на цифру К - VB
Формулировка задачи:
Вставить элемент со значением К до и после всех элементов, заканчивающихся на цифру К.
Помогите найти ошибку
Решение задачи: «Вставить элемент со значением К до и после всех элементов, заканчивающихся на цифру К»
textual
Листинг программы
Private Sub Command3_Click() Dim A() As Integer, n As Integer, k As Integer Dim i As Integer, j As Integer, s As Integer Picture1.Cls n = Val(Text1) ReDim A(1 To n) For i = 1 To n A(i) = Int(71 * Rnd - 10) Picture1.Print A(i); Next i Picture4.Cls k = Val(Text2) For i = UBound(A) To 1 Step -1 ' If (Abs(A(i) Mod 10) = k) Then s = A(i) ReDim Preserve A(1 To UBound(A) + 2) For j = UBound(A) - 2 To i Step -1 A(j + 2) = A(j) Next j A(i) = k A(i + 1) = s A(i + 2) = k End If Next i For j = 1 To UBound(A) Picture4.Print A(j); Next End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д