ПОЯСНИТЕЛЬНАЯ ЗАПИСКА

Оглавление

Цель работы: 3

Задание. 3

1.1. Постановка задачи. 3

1.2. Интерфейс программы.. 3

1.3. Код программы.. 3

1.4. Результат работы программы.. 5

1.1. Постановка задачи. 5

1.2. Интерфейс программы.. 6

1.3. Код программы.. 6

1.4. Результат работы программы.. 7

1.1. Постановка задачи. 8

1.2. Интерфейс программы.. 8

1.3. Код программы.. 8

1.4. Результат работы программы.. 9

Цель работы:

Целью лабораторной работы является изучение принципов использования современной системы Microsoft Visual Studio 2008 для реализации типовых алгоритмов обработки информации с использованием объектно-ориентированного языка программирования VB.Net.

Задание

1.1.Постановка задачи

1.2.Интерфейс программы

1.3.Код программы

Public Class Form2

Dim n, m As Byte

Private SubButton1_Click(ByVal sender As System.Object, ByVale As System.EventArgs) HandlesButton1.Click

n = Val(TextBox1.Text)

m = Val(TextBox2.Text)

ReDim a(n - 1, m - 1)

random(n, m, a)

DataGridView1.RowCount = n

DataGridView1.ColumnCount = m

For i = 0 To n - 1

For j = 0 To m - 1

DataGridView1.Item(j, i).Value = Str(a(i, j))

Next j

Next i

End Sub

Private SubButton2_Click(ByVal sender As System.Object, ByVale As System.EventArgs) HandlesButton2.Click

TextBox3.Text = ""

Dim min, index As Integer

index = 0

min = 0

For j = 0 To m - 1

min = min + a(0, j)

Next

For i = 0 To n - 1

Dim sum As Integer

sum = 0

For j = 0 To m - 1

sum = sum + a(i, j)

Next

If sum < min Then

min = sum

index = i

End If

Next

Dim max As Integer

max = a(index, 0)

For j = 0 To m - 1

If a(index, j) > max Thenmax = a(index, j)

Next

TextBox3.Text = Str(index + 1)

TextBox4.Text = Str(max)

End Sub

End Class

1.4.Результат работы программы

1.1.Постановка задачи

1.2.Интерфейс программы

1.3.Код программы

Public Class Form1

Private SubButton1_Click_1(ByVal sender As System.Object, ByVale As System.EventArgs) HandlesButton1.Click

n = Val(TextBox1.Text)

m = Val(TextBox2.Text)

ReDim a(n - 1, m - 1)

random(n, m, a)

DataGridView1.RowCount = n

DataGridView1.ColumnCount = m

For i = 0 To n - 1

For j = 0 To m - 1

DataGridView1.Item(j, i).Value = Str(a(i, j))

Next j

Next i

End Sub

Private SubButton3_Click(ByVal sender As System.Object, ByVale As System.EventArgs) HandlesButton3.Click

DataGridView2.RowCount = n

DataGridView2.ColumnCount = m

If RadioButton1.Checked Then

For i = 0 To n - 1

For j = 0 To 2

a(i, j) = Math.Pow(a(i, j), 2)

Next

Next

For i = 0 To n - 1

For j = 0 To m - 1

DataGridView2.Item(j, i).Value = Str(a(i, j))

Next j

Next i

End If

If RadioButton2.Checked Then

Dim s, t As Integer

s = n \ 2

For j = 0 To m - 1

t = a(s - 1, j)

a(s - 1, j) = a(0, j)

a(0, j) = t

t = a(s + 1, j)

a(s + 1, j) = a(n - 1, j)

a(n - 1, j) = t

Next

For i = 0 To n - 1

For j = 0 To m - 1

DataGridView2.Item(j, i).Value = Str(a(i, j))

Next j

Next i

End If

End Sub

End Class

1.4.Результат работы программы