VB高手如何求和

VB高手如何求和

一个列表框内能放100行吗？一般每次翻页要留一行。
Private Sub Command1_Click() ‘产生列表框测试数据
For i = 1 To 350
List1.AddItem i
Next i
End Sub

Private Sub Command2_Click() ‘假设列表框“每页”26行，点击则向后“翻页”则后移25行
If List1.ListIndex <= List1.ListCount +25 Then
List1.ListIndex = List1.ListIndex + 25
Else
List1.ListIndex = List1.ListCount
End If
End Sub

Private Sub Command3_Click() ‘假设列表框“每页”26行，点击则向前“翻页”
If List1.ListIndex >= 25 Then
List1.ListIndex = List1.ListIndex - 25
Else
List1.ListIndex = 0
End If
End Sub追问好高手再加100，你发过源文件过来，私信可以吧追答这个代码你自己粘贴就可以了啊。（需要修改，适合你自己的，比如说，Command2、等等）有用的是Command2、Command3的代码。

数据量多大？100万个数据还是更多？追问几百万行数据