Dim n As Integer, m As Integer, massiv As String. Dim i As Integer, j As Integer

Dim i As Integer, j As Integer

Dim min As Integer, jmin As String, sum As Integer

n = InputBox ("Количество строк равно", "Запрос 1 из 2")

m = InputBox ("Количество столбцов равно", "Запрос 2 из 2")

massiv = "": jmin = ""

ReDim a(n, m)

'заполнение массива случайными целыми числами

For i = 1 To n

For j = 1 To m

a(i, j) = 50 - Int (Rnd () * 100)

massiv = massiv & a(i, j) & Chr (9)

Next j

massiv = massiv & Chr (13)

Next i

'вычисление суммы элементов 1-го столбца

sum = 0

For i = 1 To n

sum = sum + a(i, 1)

Next i

min = sum: jmin = "1"

For j = 1 To m

sum = 0

'вычисление суммы в столбце

For i = 1 To n

sum = sum + a(i, j)

Next i

'поиск минимальной суммы

If sum < min Then

min = sum

jmin = j

ElseIf sum = min And jmin <> "1" Then

jmin = jmin & "," & j

End If

Next j

'Команда MsgBox... записывается в редакторе VB в одну строку

MsgBox "Исходный массив:" & Chr (13) & massiv & Chr (13) & Chr (13) & "Минимальная сумма в " & jmin & " столбце(ах). Она равна " & min,, "Ответ"

End Sub

Результат выполнения программы:

Пример 10. Ввести массив А(n, n). Найти максимальный и минимальный элементы главной диагонали. Заменить все элементы главной диагонали на максимальный элемент, побочной – на минимальный. Если массив содержит нечетное число строк и столбцов, то центральный элемент заменить на 0.

Sub primer_10()

Randomize Timer

Dim a() As Integer

Не нашли, что искали? Воспользуйтесь поиском: