vbnet 把读取SUM文件的数据然后从第4行开始读取数据每隔3行读取1行数据直至最后一行都为0时结束将每行的7个数据存入二维数组空格符号不算实现一个数组表任意查找第几行第几个数据

以下是一个示例的VB.NET代码，实现了读取SUM文件数据并存入二维数组，并且可以通过指定行和列来查找数据：

Imports System.IO

Module Module1
    Sub Main()
        Dim filePath As String = "your_file_path" ' 替换为SUM文件的路径
        Dim data As Integer(,) = ReadSumFile(filePath)

        ' 测试查找数据
        Dim row As Integer = 2 ' 查找第2行
        Dim col As Integer = 3 ' 查找第3列
        Dim value As Integer = GetCellValue(data, row, col)
        Console.WriteLine("第" & row & "行第" & col & "个数据为：" & value)

        Console.ReadLine()
    End Sub

    Function ReadSumFile(filePath As String) As Integer(,)
        Dim lines As String() = File.ReadAllLines(filePath)
        Dim data As New List(Of Integer())

        For i As Integer = 3 To lines.Length - 1 Step 3
            Dim lineData As Integer() = Array.ConvertAll(lines(i).Split(" "c), Function(x) Integer.Parse(x))
            data.Add(lineData)

            ' 判断最后一行是否全为0，如果是则结束读取
            Dim isEnd As Boolean = True
            For Each value As Integer In lineData
                If value <> 0 Then
                    isEnd = False
                    Exit For
                End If
            Next

            If isEnd Then
                Exit For
            End If
        Next

        ' 转换为二维数组
        Dim result(data.Count - 1, 6) As Integer
        For i As Integer = 0 To data.Count - 1
            For j As Integer = 0 To 6
                result(i, j) = data(i)(j)
            Next
        Next

        Return result
    End Function

    Function GetCellValue(data As Integer(,), row As Integer, col As Integer) As Integer
        Return data(row - 1, col - 1)
    End Function
End Module

请将代码中的your_file_path替换为实际的SUM文件路径。代码中的ReadSumFile函数会返回一个二维数组，其中每行的7个数据存储在一个一维数组中，然后将所有行的数据存储在一个列表中，最后转换为二维数组返回。通过调用GetCellValue函数，可以传入行和列的索引来查找对应的数据。注意索引是从1开始的，所以实际查询第2行第3列的数据时，传入的参数应该是2和3