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

1

1

（填整數(shù)）號(hào)。
（2）實(shí)現(xiàn)上述功能的 VB 程序如下，請(qǐng)?jiān)跈M線處填入合適的代碼。
Private Sub get_Click （　?。?br />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 表示箱子數(shù)量，m 表示需領(lǐng)取物品的學(xué)生人數(shù)
Dim i As Integer,j As Integer,num As Integer
Dim p As Integer,q As Integer,t As Integer,s As String
'依次獲取 Text1 里物品數(shù)量存入數(shù)組 a,箱子上的編號(hào)（1 到 n）依次存入數(shù)組 bh,箱子數(shù)量存入變量 n,并按物品數(shù)量從多到少對(duì)箱子排序，代碼略
'依次獲取 Text2 里學(xué)生需要領(lǐng)取物品的數(shù)量存入數(shù)組 b,學(xué)生人數(shù)存入變量 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 &“位學(xué)生領(lǐng)取物品的箱子編號(hào)依次為：“
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

'維護(hù)非空箱子降序序列（按箱子中剩余物品數(shù)量）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“剩余物品數(shù)量：“For i=1 To n
If a（i）＞0 Then List1.AddItem Str（bh（i））+“號(hào)箱子：“+Str（a（i））Next i
End Sub