Одномерные массивы

  • Автор темы Guest
  • Дата начала
G

Guest

#1
Здравствуйте Ув. Программисты , у мня к Вам прозьба , я написала программу вот по такой задачке -Дан массив целых чисел из 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
b(j) = a(i)
Text3.Text = Str(b(j))
End If
End If
Next i
End Sub