请教，VB编程生成页码的小程序，比如最大页码为8（只限定为4的倍数），生成页续为 1,8,7,2,3,6,5,4。

很容易啊，先判断最大页能否被4除整，不能，加1,重新判断，不能再加1,重新判断

直到符合被4整除，如20

这时定义唤宽两个变量a,b

a为最小值1,b为最大值20

然后规律就是，

按除的出来银凳的值得到c，用+-不断调整a,b的值

代码如下(未做判断，锋链旅自己处理 b为最大值，示例未对是否符合4整除判断)：

Private Sub Command1_Click()

a = 1

b = 20

c = Int(20 / 4)

For i = 1 To c

If i = 1 Then

    s = Format(a, "0") & "," & Format(b, "0")

Else

    s = s & "," & Format(a, "0") & "," & Format(b, "0")

End If

a = a + 1

b = b - 1

s = s & "," & Format(b, "0") & "," & Format(a, "0") & " "

a = a + 1

b = b - 1

Next i

Print s

End Sub

处理好页码。获取到数据以后，要判断是不是槐梁累加的，累加的需要塞数据，铅弯运闹悉而不是直接赋值，最后滚动加载到底部的方法注意添加累加的标识，综上所述，小程序实现分页的功能主要是处理好页码。

---