Question

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

Answer 1

很容易啊，先判断最大页能否被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