Подведем итоги

End Sub

End If

End Sub

End Select

End Sub

End Sub

End Sub

Private Sub Option2_Click() ' если выбран 2 переключатель

Label5.Visible = True

Label6.Visible = True

txtA.Visible = True

txtB.Visible = True

Z = 2

Private Sub txtB_Change() 'при вводе данных кнопки «Генерация» и «Очистка» доступны

cmdГенерация.Enabled = True

cmdОчистка.Enabled = True

8. Напишите обработчик события Click для кнопки «Генерация массива», предварительно проанализировав приведенный ниже программный код:

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

Label3.Visible = True

Label4.Visible = True

N = Val(txtStroki.Text)

M = Val(txtStolbci.Text)

Select Case Z

Case 1

Label4.Caption = ""

Randomize Timer

For i = 1 To N

For j = 1 To M

k(i, j) = Int(Rnd() * 101)

Label4.Caption = Label4.Caption + Str(k(i, j)) + " "

Next j

Label4.Caption = Label4.Caption + Chr(13)

Next i

Case 2

Label4.Caption = ""

A = Val(txtA.Text)

B = Val(txtB.Text)

For i = 1 To N

For j = 1 To M

k(i, j) = Int((Rnd() * (B - A + 1) + A))

Label4.Caption = Label4.Caption + Str(k(i, j)) + " "

Next j

Label4.Caption = Label4.Caption + Chr(13) + " "

Next i

cmdMax.Enabled = True

cmdMin.Enabled = True

cmdSum.Enabled = True

9. Напишите самостоятельно обработчик события Click для кнопки «Очистить», используя навыки, полученные при выполнении предыдущих лабораторных работ и задания 9.3 лабораторной работы 9.

10. Сохраните проект (выбрав File–Save frmДвумерный.frm и Save Двумерный.vbp) в папке 9.5.

11. Проверьте работоспособность проекта, запустив его на выполнение.

12. Напишите обработчик события Click для кнопки «Максимальный элемент», код которого приведен ниже:

Private Sub cmdMax_Click()

Dim e As Integer, f As Integer 'переменные для местоположения максимального элемента

Max = k(1, 1)

For i = 1 To N

For j = 1 To M

If k(i, j) > Max Then

Max = k(i, j)

e = i

f = j

Next j

Next i

lblMax.Visible = True

lblMax.Caption = "Максимальный элемент: " + Str(Max) + "." + Chr(13) + "Строка - №" + Str(e) + ", Столбец - №" + Str(f)

13. Обработчики события Click для кнопок «Минимальный элемент» и «Сумма элементов» напишите самостоятельно, используя навыки, полученные при выполнении задания 9.3 и код, написанный дл кнопки «Максимальный элемент».

14. Сохраните изменения в проекте

15. Создайте exe-файл программы с помощью команды File → Make Двумерный массив.exe.

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

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

В работе были использованы новые

понятия:

Массив - это упорядоченная последовательность однотипных величин, имеющих общее имя

Структуры данных – это объединение под одним именем нескольких ячеек памяти

Имя массива – имя, используемое для представления массива в программе

Тип данных – тип данных, который используется для элементов массива

Размерность – количество измерений массива

Количество элементов – количество элементов, которое содержится в массиве. Номера элементов в массиве соответствуют их индексам.

Массивы с фиксированной границей - массивы, которые содержат строго определенное количество элементов

Динамические массивы - массивы, которые содержат переменное количество элементов

операторы:

ReDim - указывает размерность массива в виде числа или выражения

Preserve – сохраняет старые значения в динамическом массиве

Erase - очищает массив

функции:

UBound() – используется для определения количества элементов

Задания для самостоятельного выполнения

1. Составьте конспект по теоретической части лабораторной работы. Выполненное задание покажите преподавателю.

2. Разработать приложение, аналогичное заданию 9.4, позволяющее удалить элемент с выбранной позиции.

3. Доработать приложение, разработанное в задании 9.5, включив в него функцию поиска заданного элемента.

4. Создать приложение, в котором используется массив строк для хранения списка студентов группы. Приложение должно обеспечить ввод фамилий обучаемых с клавиатуры, а при нажатии на управляющую кнопку сортировать все фамилии в алфавитном порядке.

5. Дан одномерный массив из N чисел. Подсчитать, сколько элементов входит в массив по одному разу.

6. В одномерном массиве произвольных чисел положительные элементы уменьшить вдвое, а отрицательные заменить значениями их индексов.

7. Дан одномерный массив из N чисел. Изменить порядок следования элементов в массиве на обратный.

8. В одномерном массиве из N произвольных чисел найти наибольший элемент среди отрицательных чисел.

9. В квадратной матрице 3-го порядка подсчитать сумму элементов главной и обратной диагоналей.

10. В квадратной матрице 4-го порядка определить сумму элементов главной и обратной диагоналей.

11. В двумерном массиве удалить строку (столбец) с заданным номером.

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