ЛАБОРАТОРНО-ПРАКТИЧЕСКАЯ РАБОТА № 2. Тема: Статические массивы данных.

Тема: Статические массивы данных.

Цель: Получить навыки использования двумерных массивов данных

Порядок выполнения

1. Установите на форме следующие объекты и измените им свойства:

2. Приведите свою форму в соответствие с образцом

3. В разделе общих объявлений объявите массив

Dim Mas(4, 6) As Integer

4. В окне кода процедуры обработки события Click для объекта Cmd1 набрать:

PicMassiv.Cls

For i = 0 To 4

For j = 0 To 6

Mas(i, j) = Int(Rnd * 10)

PicMassiv.Print Mas(i, j); " ";

Next j

PicMassiv.Print

Next i

5. В окне кода процедуры обработки события Click для объекта Cmd2 набрать

PicMax.Cls

PicMin.Cls

For i = 0 To 4

Max = Mas(i, 0)

Min = Mas(i, 0)

For j = 0 To 6

If Max < Mas(i, j) Then Max = Mas(i, j)

If Min > Mas(i, j) Then Min = Mas(i, j)

Next j

PicMax.Print Max

PicMin.Print Min

Next i

6. Проверьте работу программы. Измените программы так, чтобы она определяла также максимальные и минимальные значения для каждого столбца, а также сумму значений каждого столбца.

7. В окне кода процедуры обработки события Click для объекта Cmd3 набрать

'поменять местами первый и последний столбец

For i = 0 To 4

s = Mas(i, 0)

Mas(i, 0) = Mas(i, 6)

Mas(i, 6) = s

Next

'вывести массив после перестановки столбцов

PicMassiv0.Cls

For i = 0 To 4

For j = 0 To 6

PicMassiv0.Print Mas(i, j); " ";

Next j

PicMassiv0.Print

Next i

8. Проверьте работу программы. Измените программу так, чтобы местами менялись значения первой и последней строки.

9. Добавьте на форму еще одну командную кнопку (Cmd4) и графическое окно (PicMas2). При щелчке по новой кнопке заполнить массив 5 на 5 по следующему правилу: значения элементов главной диагонали равны 0, ниже главной диагонали – 1, выше главной диагонали равны –1. Для этого объявите массив и в окне кода процедуры обработки события Click для объекта Cmd4 набрате