Ход работы. Label6.Caption = Максимальный элемент: + Str(Max) +

End Sub

Next

Next

End If

End Sub

Next

End Sub

End If

Next i

Label6.Caption = "Максимальный элемент: " + Str(Max) + ". Его номер = " + Str(nMax)

14. Проверьте работоспособность написанного кода программы для кнопки «Максимальный элемент».

15. Напишите самостоятельно обработчик щелчка мыши по кнопке «Минимальный элемент», используя в качестве аналога обработчик щелчка мыши по кнопке «Максимальный элемент».

16. Напишите обработчик события Click для кнопки «Сумма элементов», используя оператор цикла:

Private Sub cmdSum_Click()

Sum = 0

For i = 1 To n

Sum = Sum + a(i)

Label8.Caption = "Сумма всех элементов = " + Str(Sum)

17. Напишите самостоятельно обработчик события Click для кнопки «Среднее арифметическое», используя оператор цикла и ориентируясь на программный код для кнопки «Сумма элементов».

Сортировка – процедура, часто встречающаяся при программировании массивов. Наиболее распространенные методы сортировки – сортировка методом «пузырька» и методом «выборки». В данном приложении воспользуемся первым методом. Подробно описание различных методов находится в соответствующей лекции.

18. Напишите обработчик щелчка мыши по кнопке «Сортировка по возрастанию» (после апострофов приведены необходимые комментарии):

Private Sub cmdVozr_Click()

For i = 1 To n 'цикл по числу элементов

nMin = i 'начальный номер элемента для переборки

For m = i + 1 To n 'цикл для нахождения min элемента

If a(m) < a(nMin) Then

nMin = m

R = a(nMin)

a(nMin) = a(i)

a(i) = R

Label10.Caption = Label10.Caption + Str(a(i)) + " "

19. Обработчик щелчка мыши по кнопке «Сортировка по убыванию» напишите самостоятельно, ориентируясь на программный код для кнопки «Сортировка по возрастанию».

20. Сохраните изменения в проекте и перезапишите exe-файл Обработка массива.exe.

21. Выйдите из среды Visual Basic.

22. Запустите на выполнение файл Обработка массива.exe и убедитесь, что проект работает автономно, как любые другие Windows-приложения.

Задание 4. Добавление элементов в массив.

Постановка задачи.

Разработать приложение, которое позволяет включить элемент в заданную позицию массива. Массив заполнить случайными целыми числами в диапазоне от 0 до 100. Примерный вид работающего приложения представлен на Рис.9.7.

1. Создайте в папке Лабораторная_работа_№9 папку 9.4.

2. Запустите программу Microsoft Visual Basic 6.0.

3. В появившемся окне выберите тип приложения STANDARD.exe и нажмите кнопку «Открыть».

4. Расположите на форме 2 компонента CommandButton, 4 компонента TextBox, 2 компонента Line и 4 компонента Label.

5. Установите свойства компонентов согласно Таблице 9.3 или ориентируясь на Рис.9.7.

Таблица 9.3 – Свойства компонентов приложения «Добавление элемента»

Компонент	Свойство	Значение
Form1	Caption	Добавление элемента в массив
Name	frmДобавление
MinButton, MaxButton	False
Icon	Загрузите любое графическое изображение формата *.ico
Command1	Caption	Генерация массива
Name	cmdГенерация
Command2	Caption	Добавить элемент
Name	cmdДобавить
Label1	Caption	Исходный массив
Label2	Caption	Добавить элемент
Label3	Caption	В позицию
Label4	Caption	Новый массив
TextBox1	Text
Name	txtИсходный
Multiline	True
ScrollBars	1 - Horizontal
TextBox2	Text
Name	txtElement

Продолжение таблицы 9.3

TextBox3	Text
Name	txtPosition
TextBox4	Text
Name	txtНовый
Multiline	True
ScrollBars	1 - Horizontal
Для всех компонентов свойство FontиColor– по своему усмотрению У компонентовCommandButtonсвойствоStyle = 1 Graphical

6. Напишите обработчик события по кнопке «Генерация массива», не забывая объявить переменные в начале программы. После знаков апострофов приведены необходимые комментарии.

Dim A() As Integer ' Массив объявлен как динамический

Dim n As Integer ' n - количество элементов в массиве

Dim i As Integer ' i - счетчик цикла

Dim j As Integer

Dim k As Integer

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

Dim Позиция As Integer ' позиция добавления

Private Sub CmdГенерация_Click()

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

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

For i = 1 To n

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

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

Next i

Дата добавления: 2014-12-23