Определить, есть ли в данном массиве столбец, в котором равное количество положительных и отрицательных элемен - VB

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

Двумерный массив n*m заполнен рандомно. Определить, есть ли в данном массиве столбец, в котором равное количество положительных и отрицательных элементов. Помогите наладить программу, не могу понять почему определяет местами не правильно.

                    Листинг программы
                
 
                        
                          
                    
Dim s As Integer
Private Sub Command1_Click()
Randomize
s = 0
n = Val(Text1)
m = Val(Text2)
For i = 1 To n
For j = 1 To m
a(i, j) = Round(Rnd * 20 - 10)
Picture1.Print a(i, j);
Next
Picture1.Print
Next
For j = 1 To m
For i = 1 To n
  s = s + Sgn(a(j, i))
  Next
If s = 0 Then Picture2.Print "Столбец :"; j
Next
End Sub

Решение задачи: «Определить, есть ли в данном массиве столбец, в котором равное количество положительных и отрицательных элемен»

textual
                            Листинг программы 
                        
 
                        
                          
                    
Option Base 1
Dim s As Integer
Dim a() As Integer
 
Private Sub Command1_Click()
Command2_Click
Randomize
n = Val(Text1)
m = Val(Text2)
ReDim a(n, m)
For i = 1 To n
  For j = 1 To m
    a(i, j) = Round(Rnd * 20 - 10)
    Picture1.Print a(i, j);
  Next
  Picture1.Print
Next
For j = 1 To m
  s = 0
  For i = 1 To n
    s = s + Sgn(a(i, j))
  Next
  If s = 0 Then Picture2.Print "Столбец :"; j
  Next
End Sub
 
Private Sub Command2_Click()
Picture1.Cls
Picture2.Cls
End Sub

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

10 голосов , оценка 3.6 из 5

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

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