Dim a() As Integer
Dim n As Integer, m As Integer, massiv As String
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,, "Ответ"