Dim arr() As Integer
Dim newarr() As Integer
Dim n As Integer
Dim a As Integer
Dim cout As String
Dim endl As String
Dim b As Integer
Dim count As Integer
Dim cout2 As String



Private Sub cmd1_Click()

End Sub

Private Sub cmd2_Click()
n = Val(InputBox("Ââåäèòå êîë-âî ýëåìåíòîâ"))
a = Val(InputBox("Ââåäèòå à"))
b = Val(InputBox("Ââåäèòå á"))
endl = Chr(13) + Chr(10)
ReDim arr(n)
ReDim newarr(n)
For i = 1 To n
arr(i) = Int((b - a + 1) * Rnd + a)
Next i
 count = 0
For i = 1 To n
If i Mod 2 = 1 Then newarr(i + count) = arr(i) Else newarr(i + count) = 0: count = count + 1
ReDim Preserve newarr(n + count)
Next i
For i = 1 To n
cout = cout + "Ýëåìåíò " + Str(i) + ":" + Str(arr(i)) + endl
Next i

For i = 1 To n + count
cout2 = cout2 + "Ýëåìåíò " + Str(i) + ":" + Str(newarr(i)) + endl
Next i

TB2.MultiLine = True
TB1.MultiLine = True
TB1.Text = cout2
TB2.Text = cout
End Sub



Private Sub cmdExit_Click()
End
End Sub

Private Sub TB2_Change()

End Sub