Главная

Популярная публикация

Научная публикация

Случайная публикация

Обратная связь

ТОР 5 статей:

Методические подходы к анализу финансового состояния предприятия

Проблема периодизации русской литературы ХХ века. Краткая характеристика второй половины ХХ века

Ценовые и неценовые факторы

Характеристика шлифовальных кругов и ее маркировка

Служебные части речи. Предлог. Союз. Частицы

КАТЕГОРИИ:






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,, "Ответ"

End Sub

 

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

 

 

 

Пример 9. Ввести массив А (n, m). Найти номер столбца, сумма элементов которого минимальна.

 

Sub primer_9()

Randomize Timer

Dim a() As Integer






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

vikidalka.ru - 2015-2024 год. Все права принадлежат их авторам! Нарушение авторских прав | Нарушение персональных данных