Перевод положительных чисел матрицы в одномерный массив - 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 из 5
Похожие ответы