Помогите, плз, новичку

Тема в разделе "Другие", создана пользователем JoshuA, 13 апр 2007.

Статус темы:
Закрыта.
  1. JoshuA

    JoshuA Гость

    Народ! Помогите, плз, решить задачку на VBA!

    "Дан массив Р, который состоит из 16 элементов. Найти номера элементов массива, модуль которых соотвествует числу А. Число А вводится с клавиатуры."

    Если кто-то думает, что я просто вымогаю готовый код - это не так, я уже что-то пытался делать. Только вывод у меня получался не совсем так, как надо.

    Заранее благодарен!
     
  2. JoshuA

    JoshuA Гость

    Если вы думаете, что я хочу воспользоваться чужими мозгами :), то вот код:

    Код (Text):
    Private Sub CommandButton1_Click()
    Dim p(1 To 16), q(1 To 16) As Single
    Dim l, a, i As Single
    Dim e As String
    e = Chr(13)
    a = TextBox1.Text
    i = TextBox3.Text
    For l = 1 To i
    If Abs(a) = l Then
    p(l) = q(l)
    End If
    TextBox2.Text = TextBox2.Text + Str(q(l)) + e
    Next l
    End Sub
    Запускаю прогу, ввожу нужные данные, а мне вместо нужных элементов выбывает определенное количество нулей :(:(:( В чем моя ошибка?
     
  3. Ogion7

    Ogion7 Гость

    так а в масивах p и q ничегошеньки нету
     
  4. Гость

    Сначала заполни массив p какими либо случайными числами!!! Затем модуль каждого элемента массива сравни с числом A, и если модуль соответствует числу, то запиши его индекс в массив q (и выведи его на экран) !!! Вродибы всё!!! :)
     
  5. JoshuA

    JoshuA Гость

    Все получилось, спасибо :)
     
  6. Гость

    Не за что!!! Просто массивы это моя любимая тема!!! :(
     
Загрузка...
Статус темы:
Закрыта.

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