Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 30.12.2019, 05:12   #1
aleshaqwe
Новичок
Джуниор
 
Регистрация: 30.12.2019
Сообщений: 2
По умолчанию Visual Basic - Что нужно исправить чтоб найти не все отрицательные элементы, а именно элементы ВТОРОЙ строки

Найти количество отрицательных элементов второй строки матрицы А.
Что нужно исправить чтоб найти не все отрицательные элементы, а именно элементы ВТОРОЙ строки

Код:
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim A(4, 4) As Integer
        Dim i As Integer, j As Integer
        Dim n As Integer
        Dim Num As Integer
        n = 3
        For i = 0 To n - 1
            DataGridView1.Columns.Add("C", i)
            DataGridView1.Rows.Add()
        Next i
        For i = 0 To n - 1
            For j = 0 To n - 1
                A(i, j) = (i - j) ^ (n + 2)
                DataGridView1.Rows(i).Cells(j).Value = A(i, j).ToString("0.000")
            Next j
        Next i
        For i = 0 To n - 1
            For j = 0 To n - 1
                If A(i, j) < 0 Then
                    Num = Num + 1
                End If
            Next j
        Next i
        TextBox1.Text = Format(Num)
    End Sub
aleshaqwe вне форума Ответить с цитированием
Старый 30.12.2019, 13:52   #2
digitalis
Старожил
 
Аватар для digitalis
 
Регистрация: 04.02.2011
Сообщений: 4,578
По умолчанию

Код:
            For j = 0 To n - 1
                If A(2, j) < 0 Then
                    Num = Num + 1
                End If
            Next j
Лет 300 не писал на Бесике 2-я строка - это вторая по порядку или с индексом 2 (счёт идёт 0,1,2...)
digitalis вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Нужно изменить функцию чтоб она удаляла не положительные элементы, а отрицательные XakProg Помощь студентам 2 11.11.2018 22:06
Нужно изменить функцию чтоб она удаляла не положительные элементы, а отрицательные XakProg Помощь студентам 2 10.11.2018 21:56
Разместить элементы массива так,чтоб сначала шли все положительные числа,а потом-отрицательные, не создавая новый массив Wellshumor Помощь студентам 3 07.10.2018 13:36
В массиве необходимо все отрицательные элементы умножить на квадрат его наименьшего элемента, а все неотрицательные элементы на кв dvpvitas Паскаль, Turbo Pascal, PascalABC.NET 3 18.06.2015 05:28
Матрица целых чисел М(3,4). Все отрицательные элементы заменить их квадратами. (Basic) AnnKarpinskaya Помощь студентам 1 16.05.2011 14:51