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

Question

本帖最后由 bcrun 于 2012-09-28 15:02:24 编辑

Answer 1

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

Answer 2

在这个位置加入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

Answer 3

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

Answer 4

那是对数组元素的排序啊
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