学进去

小凡有好多活页本，记录了各门课的错题。然而，他淘气的弟弟把这些活页本都拆了，并且活页纸散落在房间各地。小凡在房间里捡了若干张活页纸，每张纸都有活页本编号和其对应的页码。现在他要统计每本活页本上剩余还有哪些页码，为了能快速的整理，按照以下规则存储：对于同一本活页本上的纸张，则记录连续序列的起始和结尾编号。例如第1本活页本上的纸张页码有1，3，4，5，8，9，则记录为1-1，3-5，8-9。他编写了VB程序来解决这个问题，功能如下：共有k本活页本，每本最多有n张活页纸，总共有sum张活页纸，每张纸的编号和页码显示在列表框List1中，每一行前两位数表示该页对应的活页本编号，后一个数表示其对应页码；程序运行时，点击“整理”按钮Command1，在列表框List2中显示整理后的结果。程序运行界面如图所示。

请回答下列问题：
（1）若要将按钮中显示的“整理”修改为“纸张整理”，则需修改按钮的______属性。
（2）实现上述功能的VB代码如下，请在划线处填入合适的代码。

Const n=40

Const k=5

Dim f（1 To 500）As String

Dim sum As Integer

Private Sub Form_Load（）

’读取sum张纸的信息，存入到数组f并显示在列表框List1中，代码略

End Sub

Private Sub Command1_Click（）

Dim i As Integer，j As Integer，t As Integer，tmp As Integer

Dim a（500）As Integer，b（500）As Integer

Dim c（500）As Integer，d（500）As Integer

’读取每张纸信息，将页码存入到a数组中，活页本编号存入到b数组中

For i=1 To sum

a（i）=Val（Mid（f（i），4））

b（i）=_____

Next i

For i=1Tosum-1’对每一页先按照活页本编号、再按照页码从小到大排序

t=i

For j=i+1 To sum

If Then t=j

Next j

tmp=a（i）：a（i）=a（t）：a（t）=tmp

tmp=b（i）：b（i）=b（t）：b（t）=tmp

Next i

c（1）=a（1）’对于每个奇数位i，c（i）与c（i+1）分别存储连续页码的起始编号和结尾编号

d（1）=b（1）

s=1

t=a（1）

For i=2 To sum

If b（i）=b（i-1）And t+1=a（i）Then

_____

Else

c（s*2）=t

s=s+1

_____=a（i）

d（s）=b（i）

t=a（i）

End   If

Next i

c（s*2）=t

List2．AddItem "第1本书："

List2．AddItem Str（c（1））+"-"+Str（c（2））

For i=2Tos

If d（i）<>d（i-1）ThenList2．AddItem"第"+Str（d（i））+"本书："

List2．AddItem Str（c（2*i-1））+"-"+Str（c（2*i））

Next i

End Sub

（3）程序中加框处代码有误，请改正____。