数组 分页 急

[yoleelee]

比如a(20)={1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20}
然后显示结果是第一也为
1 2 3 4
第二页是
5 6 7 8



这里的1.2.3.4等数字在我的程序里指代的是很复杂很长的字符串..我才想要这样显示的
望高人指点...马上要交工时间就到了..唉

[yoleelee]

不是...是有上一页..下一页的那种..

[SYSSZ]

'将Text1的多行显示属性设为True
Dim K As Integer

Private Sub Command2_Click()
Dim a
Dim s As String
Dim i As Integer
Command1.Enabled = True
a = Array(Array(1, 2, 3), Array(4, 5, 6), Array(7, 8, 9), Array(10, 11, 12), Array(13, 14, 15), Array(16, 17, 18), Array(19, 20))
K = K + 1
If K = UBound(a) Then Command2.Enabled = False
For i = 0 To UBound(a(K))
s = s & CStr(a(K)(i)) & vbCrLf
Next
Text1.Text = ""
Text1.Text = s
End Sub

Private Sub Form_Load()
Dim a
Dim s As String
Dim i As Integer
Command1.Caption = "上一页"
Command1.Enabled = False
Command2.Caption = "下一页"
Command2.Enabled = True
a = Array(Array(1, 2, 3), Array(4, 5, 6), Array(7, 8, 9), Array(10, 11, 12), Array(13, 14, 15), Array(16, 17, 18), Array(19, 20))
For i = 0 To UBound(a(K))
s = s & CStr(a(K)(i)) & vbCrLf
Next
Text1.Text = s
K = 0
End Sub
Private Sub Command1_Click()
Dim a
Dim s As String
Dim i As Integer
Command2.Enabled = True
a = Array(Array(1, 2, 3), Array(4, 5, 6), Array(7, 8, 9), Array(10, 11, 12), Array(13, 14, 15), Array(16, 17, 18), Array(19, 20))
K = K - 1
If K = 0 Then Command1.Enabled = False
For i = 0 To UBound(a(K))
s = s & CStr(a(K)(i)) & vbCrLf
Next
Text1.Text = ""
Text1.Text = s
End Sub

[东方之珠]

Private Sub Command1_Click()
        Dim a(1 To 20) As String, i As Integer
        For i = 1 To 20
            a(i) = "abcd" & i
            If i Mod 5 = 0 Then '每页输出4个
               Print vbCrLf & vbCrLf
            Else
               Print a(i) & Space(4),
            End If
        Next
End Sub