學校物品室有 n 個箱子（箱子上分別有編號 1、2、3…n），箱子里存有數量不一的物品。有 m 位學生前來領取物品（物品總量足夠領取），每位學生優先從物品數量最多的箱子領取，數量不夠時，再從下一個數量最多的箱子領取。小鄭設計了一個 VB 程序，在文本框Text1 中按箱子編號從小到大依次輸入每個箱子的物品數量，在文本框 Text2 中依次輸入每位學生需要領取物品的數量，單擊“領取”按鈕后，在列表框 List1中按順序顯示每個學生領取物品的箱子編號，并顯示領取結束后非空箱子的編號和剩余物品數量。運行界面如圖所示。
回答下面問題：
（1）如果 1 號到 5 號箱子的物品數量分別是 25，16，9，5，3，每位學生需要的物品數量分別是
19，18，10，3，則第 3 位學生領取物品的箱子編號按順序依次是 3 號、

1

1

（填整數）號。
（2）實現上述功能的 VB 程序如下，請在橫線處填入合適的代碼。
Private Sub get_Click （　　）
Dim a（1 To 100）As Integer,bh（1 To 100）As Integer Dim b（1 To 100）As Integer
Dim n As Integer,m As Integer'n 表示箱子數量，m 表示需領取物品的學生人數
Dim i As Integer,j As Integer,num As Integer
Dim p As Integer,q As Integer,t As Integer,s As String
'依次獲取 Text1 里物品數量存入數組 a,箱子上的編號（1 到 n）依次存入數組 bh,箱子數量存入變量 n,并按物品數量從多到少對箱子排序，代碼略
'依次獲取 Text2 里學生需要領取物品的數量存入數組 b,學生人數存入變量 m,代碼略p=1：q=1
For i=1 To m num=0
Do While num＜b（i）num=num+a（q）a（q）=0
①

q=q+1

q=q+1

Loop
s=“第“& i &“位學生領取物品的箱子編號依次為：“
For j=p To q-1
s=s+Str（bh（j））Next j
List1.AddItem s
If num＞b（i）Then a（q-1）=②

num-b（i）

num-b（i）

：q=q-1
For j=③

q To n-1

q To n-1

'維護非空箱子降序序列（按箱子中剩余物品數量）If a（j）＜a（j+1）Then
t=a（j）：a（j）=a（j+1）：a（j+1）=t
t=bh（j）：bh（j）=bh（j+1）：bh（j+1）=t End If
Next j p=q Next i
List1.AddItem“剩余物品數量：“For i=1 To n
If a（i）＞0 Then List1.AddItem Str（bh（i））+“號箱子：“+Str（a（i））Next i
End Sub