загрузка...
загрузка...
На головну

Лабораторна робота 6.2. Використання динамічних масивів.

  1. I. Попередня робота.
  2. I. Усна робота.
  3. I. Навчальна робота
  4. I.1.2. Корекційно-розвиваюча робота з дітьми, які мають порушення мовлення
  5. II. Самостійна робота студентів на практичному клінічному занятті.
  6. II. Самостійна робота студентів на практичному клінічному занятті.
  7. II. Самостійна робота студентів на практичному клінічному занятті.

Завдання аналогічне лабораторній роботі 6.1., Але розмір масиву задається під час роботи програми з елемента управління класу TextBox.

Хід роботи:

1. Запустіть Microsoft Visual Basic 6.0 (див. Запуск Visual Basic 6.0.)

2. Виберіть тип проекту StandardEXE і натисніть кнопку відкрити. З'явиться середовище розробки Visual Basic. Повинна бути доступна панель елементів управління (Див. Панель елементів управління) і відкритий конструктор форм (див. Конструктор форм)

3. Створіть на формі елементи управління, як показано на малюнку 6.2.

Малюнок 6.2. Елементи управління та їх властивості до лабораторної роботи 6.2.

4. Перейдіть в редактор коду і напишіть наступний код:

Private Sub cmdStart_Click ()

Dim lngArray () As Long 'Масив

Dim lngArraySize As Long 'Розмір масиву

Dim lngCounter As Long 'Лічильник

Dim lngMin As Long 'Максимальний елемент масиву

Dim lngMax As Long 'Мінімальний елемент масиву

'Установка розміру масиву

lngArraySize = txtArraySize.Text

ReDim lngArray (1 To lngArraySize)

'Ініціалізація генератора випадкових чисел

Randomize -Time

'Заповнення масиву випадковими числами

For lngCounter = 1 To lngArraySize

lngArray (lngCounter) = Int (1000 * Rnd)

Next lngCounter

'Висновок вмісту масиву в TextBox

txtArray.Text = ""

For lngCounter = 1 To lngArraySize

txtArray.Text = txtArray.Text & lngArray (lngCounter) & ""

Next lngCounter

lngMin = lngArray (1)

lngMax = lngArray (1)

For lngCounter = 2 To lngArraySize

If lngArray (lngCounter)

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» вмістом масиву, в вікні повідомлень виводиться максимальний і мінімальний елемент масиву.

Лабораторна робота 6.3. Операції з матрицями ###




загрузка...
© um.co.ua - учбові матеріали та реферати