vb.net---如何用二维数组逐个逐个地把TEXTBOX文本框里面的数字读

发布时间：2020-12-17 08:17:26 所属栏目：百科来源：网络整理

导读：就是在在TEXTBOX中有数字如下: 0 1 1 0 1 0 1 1 0 0 1 0 1 1 1 1 1 1 0 0 0 1 0 1 那如何用二维数组A(,)进行逐个地读取上面文本框里面的数字呢？比如，A（0,0）=0;A(0,1)=1;A(0,2)=1;A(0,3)=0 ------------------------------------------------------------

就是在在TEXTBOX中有数字如下: 0 1 1 0 1 0
1 1 0 0 1 0
1 1 1 1 1 1
0 0 0 1 0 1
那如何用二维数组A(,)进行逐个地读取上面文本框里面的数字呢？比如，A（0,0）=0;A(0,1)=1;A(0,2)=1;A(0,3)=0

------------------------------------------------------------------------------------------------------------------------------------------------

Dim arry1(,) As String

Dim arry2() As String

Dim I As Integer,j As Integer

Dim intTmp1 As Integer,intTmp2 As Integer

intTmp1 = TextBox1.Lines.GetUpperBound(0)

arry2 = Split(Trim(TextBox1.Lines(0))," ")

intTmp2 = arry2.GetUpperBound(0)

ReDim Preserve arry1(intTmp1,intTmp2)

For I = 0 To intTmp1

arry2 = Split(Trim(TextBox1.Lines(I))," ")

For j = 0 To intTmp2

arry1(I,j) = arry2(j)

Next

Next

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!