Dim a() As Integer
Dim n As Integer, m As Integer, massiv As String
Dim i As Integer, j As Integer
Dim str As String, stolb As String
Dim k_pol As Integer, k_otr As Integer
n = InputBox ("Количество строк равно", "Запрос 1 из 2")
m = InputBox ("Количество столбцов равно", "Запрос 2 из 2")
massiv = "": str = "": stolb = ""
ReDim a(n, m) As Integer
'заполнение массива случайными целыми числами
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
'инициализация счетчиков положительных и отрицательных
'элементов
k_pol = 0: k_otr = 0
'подсчет положительных элементов в каждой строке
For i = 1 To n
k_pol = 0
For j = 1 To m
If a(i, j) >= 0 Then k_pol = k_pol + 1
Next j
str = str & k_pol & Chr (9)
Next i
'подсчет отрицательных элементов в каждом столбце
For j = 1 To m
k_otr = 0
For i = 1 To n
If a(i, j) < 0 Then k_otr = k_otr + 1:
Next i
stolb = stolb & k_otr & Chr (9)
Next j
'Команда MsgBox... записывается в редакторе VB в одну строку
MsgBox "Исходный массив:" & Chr (13) & massiv & Chr (13) & Chr (13) & "Количество положительных элементов по строкам:" & Chr (13) & str & Chr (13) & Chr (13) & "Количество отрицательных элементов по столбцам:" & Chr (13) & stolb,, "Ответ"
|
|