VB定义二维数组，如何点击command1按钮，在text1中以矩阵形式显示，并将该数组以矩阵形式导出到txt文件
--------------------编程问答-------------------- 设置一下文本框的多行显示属性MulitLine --------------------编程问答-------------------- 设置了的 现在是重复显示 --------------------编程问答--------------------在这个位置加入
Text1 = ""
--------------------编程问答-------------------- 恩 不重复了，非常感谢，第二个问题呢？关于导出TXT中 显示的排序方式 有些什么方法呀？？？ --------------------编程问答-------------------- 那是对数组元素的排序啊
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
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
补充：VB , 基础类
