КАТЕГОРИИ: Архитектура-(3434)Астрономия-(809)Биология-(7483)Биотехнологии-(1457)Военное дело-(14632)Высокие технологии-(1363)География-(913)Геология-(1438)Государство-(451)Демография-(1065)Дом-(47672)Журналистика и СМИ-(912)Изобретательство-(14524)Иностранные языки-(4268)Информатика-(17799)Искусство-(1338)История-(13644)Компьютеры-(11121)Косметика-(55)Кулинария-(373)Культура-(8427)Лингвистика-(374)Литература-(1642)Маркетинг-(23702)Математика-(16968)Машиностроение-(1700)Медицина-(12668)Менеджмент-(24684)Механика-(15423)Науковедение-(506)Образование-(11852)Охрана труда-(3308)Педагогика-(5571)Полиграфия-(1312)Политика-(7869)Право-(5454)Приборостроение-(1369)Программирование-(2801)Производство-(97182)Промышленность-(8706)Психология-(18388)Религия-(3217)Связь-(10668)Сельское хозяйство-(299)Социология-(6455)Спорт-(42831)Строительство-(4793)Торговля-(5050)Транспорт-(2929)Туризм-(1568)Физика-(3942)Философия-(17015)Финансы-(26596)Химия-(22929)Экология-(12095)Экономика-(9961)Электроника-(8441)Электротехника-(4623)Энергетика-(12629)Юриспруденция-(1492)Ядерная техника-(1748) |
Лабораторная работа 6.1. Использование статических массивов
Лабораторный практикум Объявление динамического массива В случае, когда размер массива заранее неизвестен. Visual Basic позволяет использовать динамические массивы, размеры которых можно изменять во время выполнения. Применение динамических массивов позволяет эффективно управлять памятью, выделяя память под большой массив лишь на то время, когда этот массив используется, а затем освобождая ее. Создание динамического массива осуществляется следующим образом: 1. Объявляется массив с помощью ключевых слов, используемых при создании массива фиксированного размера. Список размерностей массива остается пустым. При объявлении глобального массива необходимо выбрать ключевое слово Public, при объявлении массива на уровне модуля — Dim, при объявлении массива в процедуре — Dim или Static. Например, Dim intCountPar() As Integer 2. С помощью выполняемого оператора ReDim указывается размерность массива в виде числа или выражения. Синтаксис оператора ReDim аналогичен синтаксису оператора объявления массива фиксированного размера. Например, размерность массива может быть задана любым из следующих способов: ReDim intCountPar(х) ReDim intCountPar(20) ReDim intCountPar(1 То 20) При выполнении оператора ReDim данные, размещенные в массиве ранее, теряются. Это удобно в том случае, если данные вам больше не нужны и вы хотите переопределить размерность массива и подготовить его для размещения новых данных. Если вы хотите изменить размер массива, не потеряв при этом данных, то необходимо воспользоваться оператором ReDim с ключевым словом Preserve. Например, приведенный ниже программный код увеличивает размер массива на единицу без потери хранящихся в массиве данных: ReDim Preserve intCountPar(X + 1)
Задание: В одномерном массиве из 100 элементов типа Long, заполненных случайным образом числами от 0 до 1000, найти минимальное и максимальное число. Ход работы: 1. Запустите Microsoft Visual Basic 6.0 (см. Запуск Visual Basic 6.0.) 2. Выберите тип проекта StandardEXE и нажмите кнопку Открыть. Появится среда разработки Visual Basic. Должна быть доступна панель элементов управления (см. Панель элементов управления) и открыт конструктор форм (см. Конструктор форм) 3. Создайте на форме элементы управления, как показано на рисунке 6.1. Рисунок 6.1. Элементы управления и их свойства к лабораторной работе 6.1.
4. Перейдите в редактор кода и напишите следующий код: Private Sub cmdStart_Click() Dim lngArray(1 To 100) As Long 'Массив Dim lngCounter As Long 'Счётчик Dim lngMin As Long 'Максимальный элемент массива Dim lngMax As Long 'Минимальный элемент массива
'Инициализация генератора случайных чисел Randomize -Time 'Заполнения массива случайными числами For lngCounter = 1 To 100 lngArray(lngCounter) = Int(1000 * Rnd) Next lngCounter 'Вывод содержимого массива в TextBox txtArray.Text = "" For lngCounter = 1 To 100 txtArray.Text = txtArray.Text & lngArray(lngCounter) & " " Next lngCounter
lngMin = lngArray(1) lngMax = lngArray(1) For lngCounter = 2 To 100 If lngArray(lngCounter) < lngMin Then lngMin = lngArray(lngCounter) End If If lngArray(lngCounter) > lngMax Then lngMax = lngArray(lngCounter) End If Next lngCounter MsgBox "Минимальный элемент массива равен:" & lngMax & vbCrLf & _ "Максимальный элемент массива равен:" & lngMin End Sub
5. Запустите приложение.
Результат работы приложение: по клике на кнопку с надписью «Запуск», приложение заполняет массив случайными числами, заполняется TextBox с именем «txtArray» содержимым массива, в окне сообщений выводится максимальный и минимальный элемент массива.
Дата добавления: 2014-12-23; Просмотров: 360; Нарушение авторских прав?; Мы поможем в написании вашей работы! Нам важно ваше мнение! Был ли полезен опубликованный материал? Да | Нет |