Завдання идз1. Дополните проект таким образом, чтобы он позволял находить и выводить с помощью окна msgbox:

• минимальный элемент массива и его индекс;

• сумму всех элементов массива;

• количество нулевых элементов;

• среднее арифметическое положительных элементов массива.

Задание 3. Задача 2. ВКЛЮЧИТЕ ЭЛЕМЕНТ В ЗАДАННУЮ ПОЗИЦИЮ МАССИВА. МАССИВ ЗАПОЛНИТЬ ЦЕЛЫМИ СЛУЧАЙНЫМИ ЧИСЛАМИ В ДИАПАЗОНЕ ОТ 0 ДО 100 (рис. 2)

1. Расположите объекты на форме в соответствии с рис. 2.

2. Значения свойств объектов, которые определяют внешний вид приложения, установите по своему усмотрению.

3 . Значения свойств Caption формы, меток, кнопок установите в соответствии с рис.2.

4. Установите значения свойств объектов в соответствии с табл. 2.

Табл. 2

Объект	Свойство	Значение свойства
Текстовое поле	Name	txtИсходный
	MultiLine	Тгuе
	ScrollBars	1— Horizontal
Текстовое поле	Name	txtЭлемент
Текстовое поле	Name	txtПозиция
Текстовое поле	Name	tхtРезультат
	MultiLine	Тгuе
	ScrollBars	1— Horizontal
Командная кнопка	Name	сmdЗаполнить
Командная кнопка	Name	сmdВключить

Рис.2

5. Проанализируйте приведенный ниже программный код, затем наберите его.

Option Explicit

Dim n As Integer ‘количество элементов в исходном массиве

Dim a() As Integer

Dim i As Integer, j As Integer, k As Integer

Dim Элемент As Integer ' Элемент, который включается в массив

Dim Позиция As Integer ' Позиция включения

Private Sub сmdЗаполнить_Click()

n = Val(InputBox("Количество элементов в массиве", " количество элементов в массиве "))

'Введено количество элементов в массиве — n

ReDim a(1 To n+1) 'Переопределение массива. Количество элементов в массиве — n+ 1

Randomize Timer

For i = 1 To n

a(i) = Int(101 * Rnd())

tхtИсходный.Text = tхtИсходный.Text + "" + Str(a(i))

Next i

End Sub

Private Sub сmdВключить_Сliсk()

Элемент = Val(txtЭлемент.Text)

Позиция = Val(txtПозиция.Text)

For j = n To 1 Step -1 'Перед включением элемента необходимо раздвинуть массив,

'т.е. передвинуть "хвост" массива на одну позицию.

'Перемещение элементов нужноначинать с конца

a(j + 1) = a(j)

Next j

a(Позиция) = Элемент

For k = 1 To n+1

tхtРезультат.Text = tхtРезультат.Text + Str(a(k)) + " "

Next k

End Sub

6.Сохраните проект

Задание 4. Задача 3. ЗАДАН МАССИВ В ЦЕЛЫХ ЧИСЕЛ, СОДЕРЖАЩИЙ N ЭЛЕМЕНТОВ. СФОРМИРОВАТЬ НОВЫЙ МАССИВ D ТАКОЙ, ЧТО D(J)=В(I), ЕСЛИ Z1 <В(I)<Z2. Z1 И Z2 ЗАДАНЫ, ПРИЧЕМ Z1<Z2 (рис. 3,4)

1. Расположите на форме две метки, два текстовых поля и две кнопки (рис.3)

2. Значения свойств Caption формы, меток и кнопок установите в соответствии с рис. 3 и проrpаммным кодом.

3. Установите значения свойства Name объектов в соответствии с программным кодом.

4. Проанализируйте приведенный ниже проrpаммный код, а затем наберите его.

'Формuрование нового массива, количество элементов которого

'не совпадает с количеством элементов исходного массива

Private Sub сmdОчистить_Click()

Form1.Cls

txtZ1.Text = ""

txtZ2.Text = ""

End Sub

Private Sub сmdПуск_Click()

zl = Val(txtZ1.Text)

z2 = Val(txtZ2.Text)

Randomize Timer

Print "Массив В:"

For i = 1 To 10

В(i)= 100 * Rnd()

Print В(i);

Next i

j = 0

For i = 1 To 10

If (В(i)> zl) And (В(i)< z2) Then

j = j + 1 ‘ Подсчет количества элементов, удовлетворяющих условию

D(j) = В(i)

End If

Next i

Print: Print

If j = 0 Then

Print "Массив D не содержит элементов"

Else

Print "Массив D:"

For i = 1 To j

Print D(i);

Next i

End If

End Sub

5.Сохраните проект.

Задание 5. Задача 4. ОПРЕДЕЛИТЬ, СКОЛЬКО ЭЛЕМЕНТОВ ВХОДИТ В МАССИВ ПО ОДНОМУ РАЗУ

1. Расположите на форме одну кнопку (рис.5).

2. Значения свойств Caption формы и кнопки установите в ответствии с рис.5.

3. Установите значение свойства Name кнопки — cmdПуск

4. Проанализируйте приведенный ниже программный код, а затем наберите его.

O ption Explicit

Dim a(1 To 10) As Integer

Dim i As Integer, j As Integer

Dim P As Integer

Dim M As Integer

Private Sub cmdПуск_Click()

Print "Масив:"

Randomize Timer

For i = 1 To 10

a(i) = Int(Rnd() * 10)

Print a(i); " ";

Next i

Print

P = 0 'Счетчик элементов, встречающихся один раз

For j = 1 To 10

M = 0 'Счетчик чисел, равных а(j)

For i = 1 To 10

If a(j) = a(i) Then M = M + 1

Next i

If M = 1 Then P = P + 1

Next j

Print

Print "Один раз зустрічаються"; P; "чисел(а)

End Sub

5. Cохраните проект

1 Все задания выполнять в одном проекте.

2 Для каждого задания составить свою экранную форму.

3 Все задания выполнять в одном проекте.

4 Для каждого задания составить свою экранную форму.

5 Все задания выполнять в одном проекте.

6 Для каждого задания составить свою экранную форму.

7 Все задания выполнять в одном проекте.

8 Для каждого задания составить свою экранную форму.

46