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

Тема в разделе "Visual Basic", создана пользователем -, 28 ноя 2010.

  1. Гость

    Здравствуйте Ув. Программисты , у мня к Вам прозьба , я написала программу вот по такой задачке -Дан массив целых чисел из n элементов, заполненный случайным образом числами из промежутка [-40,30]. Удалить из него все элементы, которые состоят из одинаковых цифр (включая однозначные числа)? Но она у мня не работает так как нужно... что тут не так ???
    Код (LotusScript):
    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
     
Загрузка...
Похожие Темы - Одномерные массивы
  1. Lizzz
    Ответов:
    1
    Просмотров:
    1.241
  2. Fazer77777
    Ответов:
    1
    Просмотров:
    1.659
  3. 203
    Ответов:
    2
    Просмотров:
    1.384
  4. 203
    Ответов:
    0
    Просмотров:
    948
  5. 203
    Ответов:
    2
    Просмотров:
    2.168

Поделиться этой страницей