Необходим Ваш совет....

[Васильева Зинаида]

Здравствуйте, Ув. Программисты . Вот моя задачка....дан массив целых чисел из n элементов, заполненный случайным образом числами из промежутка [-40,30]. Удалить из него все элементы, которые состоят из одинаковых цифр (включая однозначные числа).
Он у меня не удаляет элементы ..просто записывает последнее число массива, что тут не так....?
Option Explicit
Dim n As Integer
Dim a() As Integer
Dim b() As Integer
Private Sub Command1_Click()
Dim i As Integer
n = Val(Text1.Text)
ReDim a(n)
Text2.Text = ""
Randomize
For i = 1 To n
a(i) = -Int(Rnd * (40 + 30 + 1)) + 30
Text2.Text = Text2.Text + " " + Str(a(i))
Next i
End Sub
Private Sub Command2_Click()' Удалить из него все элементы, которые состоят из одинаковых цифр (включая однозначные числа).
Dim k As Integer
Dim i As Integer
Dim j As Integer
Dim b() As Integer
j = 0
For i = 1 To n
If Abs(a(i)) >= 10 Then
If a(i) \ 10 <> a(i) Mod 10 Then
j = j + 1: ReDim Preserve b(j): b(j) = a(i)
Text3.Text = Str(b(j))
End If
End If
Next i
End Sub

[Z1000000]

Замени

Text3.Text = Str(b(j))

на

Text3.Text = Text3.Text + " " + Str(b(j))