Вставить элемент со значением К до и после всех элементов, заканчивающихся на цифру К - 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

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


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

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

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