Перевод положительных чисел матрицы в одномерный массив - VB

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

вроде должно быть так но не работает
For i = 1 To n
            For j = 1 To m
                If mas(i, j) > 0 Then
                    c = c + 1
                    a(c) = mas(i, j)
                End If
 
            Next
        Next

Код к задаче: «Перевод положительных чисел матрицы в одномерный массив - VB»

textual
Public Class Form1
    Dim mas(999, 999) As Integer
    Dim n, m As Integer
    Dim i, j As Integer
 
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        load1()
 
    End Sub
    Private Sub load1()
        Dim c
        Dim a() As Integer, mas() As Integer
        Dim d
        n = InputBox("введите n")
        m = InputBox("введите m")
    ReDim mas(n, m)    
 Randomize()
 
        For i = 1 To n
            For j = 1 To m
                mas(i, j) = Rnd() * 100 - 50
 
            Next j
        Next i
        TextBox1.Text = ""
        For i = 1 To n
            For j = 1 To m
 
 
                TextBox1.Text = TextBox1.Text & Format(mas(i, j), "0") & " "
 
            Next
            TextBox1.Text = TextBox1.Text & vbCrLf
        Next
        For i = 1 To n
            For j = 1 To m
               
                If mas(i, j) > 0 Then
 
                    
                    c = c + 1
  ReDim Preserve a(c)
 a(c) = mas(i, j)
                End If
 
            Next
        Next
 
 
 
    End Sub
 
 
End Class

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


СОХРАНИТЬ ССЫЛКУ