Вставить элемент со значением К до и после всех элементов, заканчивающихся на цифру К - VB

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

Вставить элемент со значением К до и после всех элементов, заканчивающихся на цифру К.

                    Листинг программы
                
 
                        
                          
                    
Private Sub Command3_Click()
    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)
s = 0
For i = n To 1  '
If (A(i) Mod 10 = k) Then
      For j = n + s To i + 1
      A(j + 1) = A(j)
      Next j
   A(j + 1) = k
   s = s + 1
   End If
Next i
For j = 1 To n
Picture4.Print A(j);
Next
End Sub

Помогите найти ошибку

Решение задачи: «Вставить элемент со значением К до и после всех элементов, заканчивающихся на цифру К»

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

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Похожие ответы