2哥学Vb.net--随记

   刚刚在微博上看到的一道题：在vb.net中如何用二维数组逐个的把TEXTBOX文本框里面的数字读取？数字如下：

0 1 2 3

1 2 3 4

2 3 4 5

3 4 5 6

  参照这个题目，自己写了下代码（先将TEXTBOX的MultiLine 勾选）

 

 Try
            Dim arry1(,) As Integer

            Dim i%, j%

            j = TextBox1.Lines.Count

            For m As Integer = 0 To j - 1

                i = UBound(Split(TextBox1.Lines(m), " "))

                ReDim Preserve arry1(j, i)

                For n As Integer = 0 To i

                    arry1(m, n) = Split(TextBox1.Lines(m).ToString, " ")(n)

                Next
            Next

            'For test
            MsgBox(arry1(3, 3))

        Catch ex As Exception

            MessageBox.Show(ex.Message)

        End Try