Вывести номера столбцов двумерного массива содержащих только отрицательные числа - VB

Формулировка задачи:

Уважаемые, подскажите пожалуйста как это сделать, массив задан, а вот как вывести только номера столбцов в которых присутствуют только отрицательные числа, я не знаю.

Решение задачи: «Вывести номера столбцов двумерного массива содержащих только отрицательные числа»

textual
                            Листинг программы 
                        

                            Option Explicit
 
Dim i%, j%, k%, N%
 
Private Sub com1_Click()
    Cls
    Randomize Timer
    N = Val(txtT.Text)
    
    ReDim a%(1 To N, 1 To N)
    
    For i = 1 To N
    For j = 1 To N
        a(i, j) = 80 * Rnd - 60
        Print Format(a(i, j), "00  ");
    Next: Print
    Next: Print
    Print "Номера столбцов"
    
    For j = 1 To N
        k = 0
        For i = 1 To N
            If a(i, j) < 0 Then k = k + 1
        Next i
        If k = N Then Print j;
    Next j
End Sub
                        

Оцени полезность:

12 голосов , оценка 4.167 из 5

Похожие ответы