Завдання на самостійну роботу(в,вс,лс)

З АВДАННЯ 10.3. ДОПОЛНИТЕ ПРОЕКТ ТАКИМ ОБРАЗОМ, ЧТОБЫ ОН ПОЗВОЛЯЛ НАХОДИТЬ И ВЫВОДИТЬ С ПОМОЩЬЮ ОКНА MSGBOX (рис.10.1):

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

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

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

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

Лабораторна робота №10. Проектування додатків vb6, у яких дані організовані у вигляді одновимірних масивів. Заняття 2

ЗАВДАННЯ 10.4. Постановка задачи: ВЫПОЛНИТЬ ПРОЕКТ, ПОЗВОЛЯЮЩИЙ ВКЛЮЧИТЬ ЭЛЕМЕНТ В ЗАДАННУЮ ПОЗИЦИЮ МАССИВА. МАССИВ ЗАПОЛНИТЬ ЦЕЛЫМИ СЛУЧАЙНЫМИ ЧИСЛАМИ В ДИАПАЗОНЕ ОТ 0 ДО 100. Вид работающего приложения представлен на рис. 10.2

Порядок действий

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

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

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

Рис.10.2

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

Табл. 10.2

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

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.Сохраните проект сохраните его под именем Лр10_Зад4_Фамилия

ЗАВДАННЯ 10.5. Постановка задачи: ЗАДАН МАССИВ В ЦЕЛЫХ ЧИСЕЛ, СОДЕРЖАЩИЙ N ЭЛЕМЕНТОВ. СФОРМИРОВАТЬ НОВЫЙ МАССИВ D ТАКОЙ, ЧТО D(J)=В(I), ЕСЛИ Z1 <В(I)<Z2. Z1 И Z2 ЗАДАНЫ, ПРИЧЕМ Z1<Z2. Вид работающего приложения представлен на рис. 10.3. и 10.4

Рис. 10.3 Рис. 10.4

Порядок действий

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

2. Значения свойств Caption формы, меток и кнопок установите в соответствии с рис. 10.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.Сохраните проект сохраните его под именем Лр10_Зад5_Фамилия.

ЗАВДАННЯ 10.6. Постановка задачи: ОПРЕДЕЛИТЬ, СКОЛЬКО ЭЛЕМЕНТОВ ВХОДИТ В МАССИВ ПО ОДНОМУ РАЗУ

Рис. 10.5

Порядок действий

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

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

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

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

Option 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охраните проект под именем Лр10_Зад6_Фамилия