Question

VB中 怎么将text中的数据如1 2 3 3 4 4 5 6 6 读入到一个二维数组a(3,3)中 急求 可以加财富的

Answer 1

循环赋值就好了。

dim a(1 to 3, 1 to 3)
dim ar,i as long ,j as long ,n as long 
ar=split(text1.text)
for i=1 to 3
    for j=1 to 3
        a(i,j)=ar(n)
        n=n+1
    next
next

追问

问题是我的数据在text里面   怎么从里面读进去？

数据在text中显示是这样的

追答

Private Sub Form_Click()
    Dim a(), Ar, Br
    Dim i As Long, j As Long, n As Long
    Ar = Split(Text1.Text, vbCrLf) '将文本框按行分割到一维数组 AR
    ReDim a(UBound(Ar), 3) '重新定义二维数组 a，以适应文本框数据的行数
    For i = 0 To UBound(Ar)  '行的循环
        Br = Split(Ar(i), " ")  '将一行的数据按 空格分割到BR，这里是一个还是多个空格你根据实际情况
        For j = 0 To 3       '列的循环
            a(i, j) = Br(n)
            n = n + 1
        Next
        n = 0
    Next
End Sub

上面代码的思路就是：先将文本框的数据分行放到一维数组 AR中，然后对这个数组进行循环，

对数组的每个元素，即每行用一个空格拆分到数组BR，然后再赋值到二维数组。

追问

方便给个联系方式交流一下不

追答

987122817

Answer 2

text是指什么？