Задание 2

- Создайте программный код.

Изначально при запуске программы вы должны ввести число в текстовое поле рядом с Label Размер массива, и любое число в текстовое поле рядом с Label Произведение должно быть равно.

При нажатии на кнопку все поля должны автоматически заполниться. Для этого вы объявляете свой массив (смотрите ниже теоретическую часть), например Dim am(1000) As Single. Далее, чтобы в listbox Наглядное изображение массиваотобразился массив с размером, указанным вами, надо использовать функцию Randomize().Этот оператор используется вместе с функцией Rnd, он нужен чтобы всегда генерировались случайные числа. Функция Rnd возвращает значение в диапазоне от 0 до 1 типа Single, содержащее случайное число (причем 1 не входит в этот диапазон, а 0 входит). В программном коде это можно записать например так:

Randomize()

……………

am(i) = CInt((1000 + 1000) * Rnd() - 1000)

Проанализируйте данный код и попробуйте поэкспериментировать, прокомментируйте этот код.

Чтобы вывести в listbox значения массива, вам понадобится создать цикл со счетчиком, в котором вы будете с помощью Rnd() генерировать случайные числа и записывать их в listbox. Количество значений массива определяется вами в поле Размер массива.

Примечание:

Ø Чтобы заполнить ListBox значениями массива используется запись ListBox1.Items.Add(am(i))или при добавлении слова ListBox1.Items.Add(“Привет”), в которой слово Items задает коллекцию списка, а Add означает добавить. Таким образом, чтобы добавить в список элементы, используется слово Add.

Ø Чтобы удалить элемент списка, используется слово Remove (ListBox.Items.Removе (ListBox.SelectedItem), где SelectedItem – это выбранный в списке элемент).

Ø Чтобы удалить конкретный № списка, используется запись ListBox.Items.RemovеAt (№).

Ø Чтобы очистить список, используется слово Clear ListBox1.Items.Clear().

Таким образом, у вас должен получиться примерно такой код:

n = Val(TextBox1.Text) ‘ здесь n – размер массива

For i = 1 To n

am(i) = CInt((1000 + 1000) * Rnd() - 1000)

ListBox1.Items.Add(am(i))

Next i

· Далее проверяем Сумма отрицательных элементов, значения которых кратно 10.Чтобы осуществить сложение отрицательных чисел, кратных 10, надо использовать сложное условие (оператор And), т.е. проверить является ли число отрицательным и делится ли оно на 10. Напишите свой код для определения суммы. Далее в соответствующем текстовом поле должен отобразиться результат.

If (am(i) < 0) And (Abs(am(i)) Mod 10 = 0) Then

s = s + am(i)

End If

Прокомментируйте данный код.

· Далее проверяем Индексы элементов, кратных 5 и 10.Чтобы осуществить проверку, вам понадобится код, похожий на код для определения суммы, Далее в соответствующем текстовом поле должен отобразиться результат, только обратите внимание на то, что здесь вам нужны именно индексы значений и не сами значения ListBox2.Items.Add(i)

· Далее проверяем Есть ли пара соседних элементов с произведением, равным числу Х.Подобные проверки вы уже делали в предыдущих работах. Если условие выполняется, то в текстовом поле появляется Есть такая пара чисел, если условие не выполняется, то Нет такой пары чисел.

· Программируем кнопкуВыход.

2.При нажатии на кнопку Выходдолжен производиться выход из программы.