Составьте программу на языке VBA, которая определяет строку с
наименьшей суммой и переставляет ее с первой строкой в двумерном массиве A(m×n). Программа должна проверять правильность введенных пользователем
данных и, если они неверные (0≤n, 0≤m), выдавать сообщение об ошибке.
sub ppp()
priz = true
while priz
mm = val(inputbox("M =")
if mm >= 1 then
priz = false
endif
wend
priz = true
while priz
nn = val(inputbox("N =")
if nn >= 1 then
priz = false
endif
wend
minss = "a"
for ii = 1 to mm
ss = 0
for jj = 1 to nn
ss = ss+ Cells(ii,jj)
next jj
if minss = "a" then
minss = ss
minii = ii
else
if ss < minss
minii = ii
minss = ss
endif
endif
next ii
for jj = 1 to nn
aa = cells(minii, jj)
cells(minii, jj) = cells(1,jj)
cells(1,jj) = aa
next jj
end sub
⇢