ЗОТФ-ЗФ / 4.7. Программирование алгоритмов формирования и обработки двумерных массивов / Оформление 4.8

ФЕДЕРАЛЬНОЕ АГЕНТСТВО СВЯЗИ

МОСКОВСКИЙ ТЕХНИЧЕСКИЙ УНИВЕРСИТЕТ

СВЯЗИ И ИНФОРМАТИКИ

Кафедра информатики

Лабораторная работа

по теме: «4.7. Программирование алгоритмов формирования и обработки двумерных массивов»

Задание

Графический интерфейс

Таблица элементов

Имя объекта	Свойство	Значение свойства
Form1	Text	Form1
Label1	Font	Book Antiqua; 17,25pt; style=Bold
	ForeColor	Navy
	Text	Тема 4.8 Программирование алгоритмов формирования и обработки двумерных массивов
Label2	Font	Book Antiqua; 14,25pt; style=Bold
	Text	Задание
Label5	Font	Times New Roman, Bold (Жирный), 10-point (10 пунктов)
	Text	Исходный массив:
Label6	Font	Book Antiqua; 14,25pt; style=Bold
	Text	Нахождение максимального и минимального элементов массива.
Label7	Font	Book Antiqua; 13pt; style=Bold
	Text	Максимальный элемент:
Label8	Font	Book Antiqua; 13pt; style=Bold
	Text	Минимальный элемент:
Label9	Font	Book Antiqua; 13pt; style=Bold
	Text	Преобразованный массив:
ListBox1	Name	ListBox1
	Text	ListBox1
ListBox2	Name	ListBox2
	Text	ListBox2
TextBox3	Name	TextBox3
	Text
TextBox4	Name	TextBox4
	Text
Button1	Name	Button1
	Text	Заполнить массив
Button4	Name	Button4
	Text	Выход
Button3	Name	Button3
	Text	Повторить

Программный код

Option Strict On

Option Explicit On

Imports System.Math

Public Class Form1

Private Sub work()

Dim mas(8, 8) As Double

Dim Min, Max As Double

Dim Mi, Ma As Integer

For i = 1 To 8

For j = 1 To 8

mas(i, j) = rand(i + j)

Next

Next

vivodm(mas, ListBox1)

For i = 1 To 8

Min = 100

Max = -100

For j = 1 To 8

If mas(i, j) > Max Then

Max = mas(i, j)

Ma = j

End If

If mas(i, j) < Min Then

Min = mas(i, j)

Mi = j

End If

Next

mas(i, Mi) = Max

mas(i, Ma) = Min

Next

vivodm(mas, ListBox2)

End Sub

Private Function rand(ByVal i As Integer) As Double

Dim result As Double

result = 7 * i - 12 * i + ((Rnd(100) * i * 30 + 71) / 11 + 1.1 ^ i + 17)

Return result

End Function

Private Sub vivodm(ByVal mas(,) As Double, ByRef LB As ListBox)

Dim i, j As Integer

Dim str As String

For i = 1 To 8

str = ""

For j = 1 To 8

str += CStr(Format(mas(i, j), "0")) + vbTab

Next

LB.Items.Add(str)

Next

End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

work()

End Sub

Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click

Application.Exit()

End Sub

Private Sub Button3_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button3.Click

ListBox1.Items.Clear()

ListBox2.Items.Clear()

End Sub

End Class

Блок-схема

~ 4 ~