Перевод положительных чисел матрицы в одномерный массив - 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д