Задача 6.

Вычислить количество нулевых элементов матрицы А, расположенных выше главной диагонали. Найти минимальный элемент среди положительных элементов матрицы.

Блок – схема.

Добавить необходимые элементы управления (см. рисунок).

TextBox2

TextBox1

CommandButton1

Событийная процедура кнопки Вычислить.

Private Sub CommandButton1_Click()

Dim A(1 To 5, 1 To 5) As Single, i, j, k As Integer, min As Single

‘ Вычисление количества нулевых элементов матрицы, расположенных выше главной диагонали

k = 0

For i=1 To 5

For j=1 To 5

A(i, j) = Cells(i+1, j)

If i < j And A(i, j) = 0 Then k = k + 1

Next j

Next i

‘ Вычисление минимального среди положительных элементов

min = 10 ^ 5

For i=1 To 5

For j=1

If A(i, j) > 0 And A(i, j)< min Then min = A(i, j)

Next j

Next i

TextBox1.Value = k

TextBox2.Value = min

End Sub

Дата добавления: 2015-09-05