Question

VB定义一个全局变量

底部放四个按钮搞定
首页 上一页 下一页 尾页
定义一个全局变量Page参数，每页行数

VB每100行分一页如何做
看附件如何做http://pan.baidu.com/s/1sjukXyd

Answer 1

'这是在你的源程序上修改的，自己看
Option Explicit
Private n As Integer
Private k As Integer
Private a(10001) As Integer
Private pageno As Integer '加了一个变量名称
Private pagenomax As Integer
Dim jishu As Integer '计数
Const perpage = 100 '每页100个

Private Sub Command1_Click()
List1.Clear
n = Val(Text1.Text)
k = Val(Text2.Text)
jishu = 0
Call C(1)
pagenomax = jishu \ perpage
If jishu / perpage = jishu \ perpage Then pagenomax = pagenomax - 1

End Sub

Private Sub C(ByVal t As Integer)
Dim i As Integer

For i = a(t - 1) + 1 To n
a(t) = i
If t = k Then
jishu = jishu + 1 '改了这，在记录范围才输出
If jishu > pageno * perpage And jishu <= (pageno + 1) * perpage Then
Myprint
End If
Else
Call C(t + 1)
End If
Next i
End Sub

Private Sub Myprint()
Dim i As Integer
Dim LinStr As String
LinStr = ""
For i = 1 To k - 1
LinStr = LinStr & a(i) & " "
Next i
LinStr = LinStr & a(k)
List1.AddItem LinStr
End Sub

Private Sub Command2_Click()
pageno = 0
Call Command1_Click
End Sub

Private Sub Command3_Click()
pageno = pageno - 1
If pageno < 0 Then pageno = 0
Call Command1_Click
End Sub

Private Sub Command4_Click()
pageno = pageno + 1
If pageno > pagenomax Then pageno = pagenomax
Call Command1_Click
End Sub

Private Sub Command5_Click()
pageno = pagenomax
Call Command1_Click
End Sub

追问

完全没有问题，再+1+0+0，好高手，