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

Автор темы

J JoshuA Участник 13.04.2007

#1

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

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

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

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

 

J JoshuA Участник 13.04.2007

#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

Запускаю прогу, ввожу нужные данные, а мне вместо нужных элементов выбывает определенное количество нулей В чем моя ошибка?

 

O Ogion7 Участник 16.04.2007

#3

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

 

G Guest Участник 01.05.2007

#4

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

 

J JoshuA Участник 01.05.2007

#5

Анатолий сказал(а):

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

Нажмите, чтобы раскрыть...

Все получилось, спасибо

 

G Guest Участник 02.05.2007

#6

Не за что!!! Просто массивы это моя любимая тема!!!