Федеральное агентство связи Ордена

Трудового Красного Знамени

федеральное бюджетное образовательное учреждение высшего образования

«Московский Технический Университет Связи и Информатики»

(МТУСИ)

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

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

Тема:

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

Вариант 00

Выполнил:

Москва 0000

3) Задание

4) формализация и уточнения не требуются

5.1) форма

5.2)схема алгоритма

5.3) код проекта

Option Strict On

Option Explicit On

Public Class Form1

Sub RndRAM(ByRef ZZ(,) As Integer)

Const a As Integer = 10

Const b As Integer = 3

Dim i, j As Integer

Randomize()

For i = 0 To a - 1

For j = 0 To b - 1

ZZ(i, j) = CInt((15 + 2) * Rnd() - 2)

Next j

Next i

End Sub

Sub vivodmassiv2(ByRef zz(,) As Integer, ByRef lb As ListBox)

Dim i, j, a, b As Integer

Dim z, z1 As String

lb.Items.Clear()

a = zz.GetUpperBound(0) - 1

b = zz.GetUpperBound(1) - 1

For i = 0 To a

z = ""

For j = 0 To b

z1 = Format(zz(i, j), "00")

If zz(i, j) < 0 Then

z1 = Space(2) + z1 + Space(4)

Else

z1 = Space(3) + z1 + Space(4)

End If

z = z + z1

Next j

lb.Items.Add(z)

Next i

End Sub

Sub printmassiv1(ByRef p() As Integer, ByRef lb As ListBox)

lb.Items.Clear()

Dim i As Integer

Dim z As String

For i = 0 To UBound(p)

z = CStr(p(i)) + vbNewLine

lb.Items.Add(z)

Next

End Sub

Sub massiv100(ByRef zz(,) As Integer, ByRef p() As Integer)

Dim i, j, k, firstotric, kpol As Integer

For i = 0 To zz.GetUpperBound(0) - 1

kpol = 0

firstotric = 1

For k = 3 To 1 Step -1

If zz(i, k) < 0 Then

firstotric = k

ElseIf zz(i, k) >= 0 Then

kpol = kpol + 1

End If

Next k

For j = firstotric + 1 To zz.GetUpperBound(1)

p(i) = p(i) + zz(i, j)

If kpol = 3 Then

p(i) = 100

End If

Next j

Next i

ReDim Preserve p(i - 1)

End Sub

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

Dim zz(10, 3) As Integer

Dim p(10) As Integer

RndRAM(zz)

vivodmassiv2(zz, listbox1)

massiv100(zz, p)

printmassiv1(p, listbox2)

End Sub

End Class

6) результат

7) проверка результата

Проверил вся программа работает правильно и не выдаёт ошибки