А. Нахождение максимального элемента (массива).
Date: 2015-10-07; view: 362.
Практическая работа 14. Краткие примеры: нахождение экстремума, создание признака конца списка, деление элементов массива на группы, сортировка и т.д.
Примеры типовых алгоритмов
Ниже приводятся примеры некоторых типовых алгоритмов.
1. Создать на форме элементы управления CommandButton, поле списка, Label и ввести код, данный ниже. Пояснения даны под комментариями:
Рис. 2.5.Схема формы
Private Sub Command1_Click()Dim m(25) As Integer ' описание массива' описание переменной для хранения максимального значения Dim max As Integer Dim j As Integer, i As Integer 'описание переменныx-счeтчик' создание массива и вывод его элементов в поле спискаFor i = 0 To 24 m(i) = Int(Rnd * 40 + 1) lst1.List(i) = m(i) Next imax = m(0) ' пусть m(0) будет максимальным элементомFor j = 1 To 24 ' поиск максимального элемента' если текущий элемент массива больше текущего ' максимального, то сделать его максимальным элементомIf m(j) > max Then max = m(j) Next jlbl1.Caption = max ' вывод результата в поле lbl1End Sub
2. стартовать проект, сделать щелчок на командной кнопке.
| <== previous lecture | | | next lecture ==> |
| Практическая работа 13. Процедуры Property Let, Property Get | | | С. Создание списка данных типа String, создание признака конца списка, вывод списка в массив |