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

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

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

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

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

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

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

Задание

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

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

Имя объекта	Свойство	Значение свойства
Form1	Text	Form1
Label1	Font	Book Antiqua; 17,25pt; style=Bold
	ForeColor	Navy
	Text	Тема 4.7 Программирование алгоритмов формирования и обработки одномерных массивов
Label2	Font	Book Antiqua; 14,25pt; style=Bold
	Text	Задание
Label5	Font	Times New Roman, Bold (Жирный), 10-point (10 пунктов)
	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	Преобразованный массив:
TextBox3	Name	TextBox3
	Text
Button1	Name	Button1
	Text	Заполнить массив
Button4	Name	Button4
	Text	Выход
Button3	Name	Button3

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

Option Explicit On

Option Strict On

Imports System.Math

Public Class Form1

Private Sub work()

Dim mas(10) As Double

Dim min, max As Double

Dim ma, mi As Integer

mas = {-6.3, 0.8, 12, -4, 13, 2.5, 7, 8, -9, 10}

vivodmas(mas)

max = -100

min = 100

For i = 0 To 9

If mas(i) > max Then

max = mas(i)

ma = i

End If

If mas(i) < min Then

min = mas(i)

mi = i

End If

Next

vivodminmax(min, max)

mas(mi) = max

mas(ma) = min

vivodmas(mas)

End Sub

Private Sub vivodminmax(ByVal min As Double, ByVal max As Double)

Dim str As String = vbCrLf

str += CStr(Format(max, "0.0")) + vbCrLf + vbCrLf + CStr(Format(min, "0.0")) + vbCrLf + vbCrLf

TextBox3.Text += str

End Sub

Private Sub vivodmas(ByVal a() As Double)

Dim str As String = ""

For i = 0 To 9

str += CStr(Format(a(i), "0.00")) + vbTab

Next

str += vbCrLf

TextBox3.Text += str

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

TextBox3.Clear()

End Sub

End Class

Блок-схема

~ 5 ~