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

  • Автор темы JoshuA
  • Дата начала
Статус
Закрыто для дальнейших ответов.
J

JoshuA

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

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

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

Заранее благодарен!
 
J

JoshuA

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

Код:
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
Запускаю прогу, ввожу нужные данные, а мне вместо нужных элементов выбывает определенное количество нулей :(:(:( В чем моя ошибка?
 
G

Guest

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

JoshuA

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

Guest

#6
Не за что!!! Просто массивы это моя любимая тема!!! :(
 
Статус
Закрыто для дальнейших ответов.