！！！如何对数据进行滚动求和？谢谢

[chndnk]

有如下所示的数据，第一列是其序号，第二列是数据，现在需要对数据进行滚动求和，即从第1个累加到第10个，然后从第2个再累加到第11个，从第3个累加到第12个，每次对10个数据进行求和，请问如何处理，数据是以txt文件格式存放的（文件本身无法上传，所以把数据放下面了，请大家帮助时将数据放txt文件里面处理）。
谢谢啦！

1 0
2 4
3 3
4 0
5 0
6 0
7 0
8 0
9 0
10 0
11 0
12 0
13 0
14 0
15 0
16 0
17 0
18 0
19 0
20 2
21 0
22 0
23 0
24 9
25 0
26 0
27 0
28 0
29 0
30 0
31 0
32 0
33 0
34 7
35 0
36 0
37 0
38 0
39 2
40 0
41 0
42 0
43 0
44 0
45 0
46 0
47 0
48 0
49 0
50 0

[clygs]

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim fileContents As String
fileContents = My.Computer.FileSystem.ReadAllText("e:\Test.txt")
Dim 分隔符 As String = " " '各列数据分隔符号
Dim 数据项() = Split(fileContents, vbCrLf)
Dim i As Integer
Dim 和 As Decimal = 0
Dim 数据 As Decimal
Dim 临时数据
Dim 错误数 As Integer = 0

Dim DGV As New DataGridView
DGV.AllowUserToAddRows = False
DGV.Dock = DockStyle.Top
DGV.Columns.Add("序号Column", "序号")
DGV.Columns.Add("数据Column", "数据")
DGV.Columns.Add("前十项和Column", "前十项和")

DGV.Columns("序号Column").ValueType = i.GetType
DGV.Columns("数据Column").ValueType = 数据.GetType
DGV.Columns("前十项和Column").ValueType = 和.GetType

For i = 0 To 数据项.Length - 1
临时数据 = Split(数据项(i), 分隔符)
If 临时数据.length > 2 Then
Try
If Val(临时数据(0)) > 0 And Val(临时数据(1)) >= 0 Then
DGV.Rows.Add()
DGV.Rows(i).Cells("序号Column").Value = Val(临时数据(0))
DGV.Rows(i).Cells("数据Column").Value = Val(临时数据(1))
End If
Catch ex As Exception
错误数 += 1
End Try
End If
Next


DGV.Sort(DGV.Columns("序号Column"), System.ComponentModel.ListSortDirection.Ascending) '按 序号 升序

For i = 0 To DGV.RowCount - 1

和 += DGV.Rows(i).Cells("数据Column").Value
If i >= 9 Then
DGV.Rows(i).Cells("前十项和Column").Value = 和
和 = 和 - DGV.Rows(i - 9).Cells("数据Column").Value
End If
Next
Me.Controls.Add(DGV)
End Sub

[clygs]

If 临时数据.length > 2 Then
更正 If 临时数据.length >= 2 Then

[yanlongwuhui]

难得一见的代码，中文做变量

[gh_li]

学习,帮顶

[chndnk]

多谢clygs热心帮助！