VB定义二维数组，如何点击command1按钮，在text1中以矩阵形式显示，并将该数组以矩阵形式导出到txt文件

[maoyanlong88]

VB定义二维数组，电机command1按钮，在text1中以矩阵形式显示，并将该数组以矩阵形式导出

到txt文件中。
问题是：我每点一次按钮，text1中就多重复显示一次该数组，如第一次点按钮i：

12

23

我再点按钮就显示：

12

23

12

23 如何解决，请高手指教呀，不胜感激。

第二问题：导出到TXT文件，在TXT文件中显示：1 2 2 3。

怎样才能显示：

1，2

2，3 还请各位帮忙。

代码如下：

Private Sub Command1_Click()

Dim A(1 To 20, 1 To 2) As Integer

Dim i As Integer

Dim j As Integer

For i = 1 To 19

 For j = 1 To 2

  If j = 1 Then

  A(i, j) = i

  Else

  A(i, j) = 2 * i ^ 2 + 1

  End If

 Next j

Next i


’在textbox中显示数组

For i = 1 To 19

  For j = 1 To 2

    Text1 = Text1 & A(i, j) & "  "

  Next j

    Text1 = Text1 & Chr(13) & Chr(10)

Next i


'导出数组到txt

Open "c:\test1.txt" For Output As #1

For i = 1 To 19

For j = 1 To 2

Print #1, A(i, j); " ";

Next j

Next i

Close #1

End Sub

[WXGMWTECH]

设置一下文本框的多行显示属性MulitLine

[maoyanlong88]

设置了的 现在是重复显示

[maoyanlong88]

恩 不重复了，非常感谢，第二个问题呢？关于导出TXT中 显示的排序方式 有些什么方法呀？？？

[sosoben]

那是对数组元素的排序啊

Private Sub Command1_Click()
    Dim StrA() As String, str1 As String
    Dim intI As Integer, intJ As Integer
    Dim temp
 
    For intI = 0 To UBound(StrA)
        For intJ = intI To UBound(StrA)
            If StrA(intI) > StrA(intJ) Then
               temp = StrA(intI)
               StrA(intI) = StrA(intJ)
               StrA(intJ) = temp
            End If
        Next
        
    Next
    
 end sub

[sosoben]

在这个位置加入

Text1 = ""

For i = 1 To 19

  For j = 1 To 2

  Text1 = Text1 & A(i, j) & " "

  Next j

  Text1 = Text1 & Chr(13) & Chr(10)

Next i