某醫(yī)院接受捐贈(zèng)物資，各項(xiàng)物資數(shù)據(jù)包含編號(hào)、品名和收支數(shù)量。編號(hào)構(gòu)成規(guī)則是：急需等級(jí)（單個(gè)大寫字母，由高到低劃分為A、B、C三個(gè)等級(jí)）+物資種別（單個(gè)大寫字母，至多有A～Z共26種）。為提高庫(kù)存管理效率，現(xiàn)需要整理物資庫(kù)存，要求：先對(duì)同種物資數(shù)量進(jìn)行合并統(tǒng)計(jì)；然后按各種物資庫(kù)存量，更新其急需等級(jí)，并依等級(jí)由高到低分類顯示。等級(jí)劃分規(guī)則為：當(dāng)庫(kù)存量低于3天所需，設(shè)置為A級(jí)；當(dāng)庫(kù)存量低于7天所需，設(shè)置為B級(jí)；否則設(shè)置為C級(jí)。
按上述要求，編寫一個(gè)VB程序，功能如下：在列表框List1中顯示整理前的所有物資相關(guān)數(shù)據(jù)，單擊“庫(kù)存合并統(tǒng)計(jì)”按鈕Command1，在列表框List2中顯示整理結(jié)果，程序運(yùn)行界面如圖所示。

（1）由圖中示例可知，急需等級(jí)發(fā)生變化的物資有

2

2

種（填數(shù)字）。
（2）請(qǐng)?jiān)诋嬀€處填入合適的代碼。
Const n=2000'物資總項(xiàng)數(shù)
Const nc=26'物資種別數(shù)，最多不會(huì)超過(guò)26
Dim items（1 To n）As String,supplies（1 To n）As String,totals（1 To n）As Long
Dim g（1 To 2*nc）As Long'存儲(chǔ)各種物資3天、7天的需求數(shù)量
Dim b（1 To nc）As Long'存儲(chǔ)各種物資的庫(kù)存量
Dim c（1 To nc）As Long
Dim q（1 To nc）As Integer
Private Sub Form_Load

（　?。?/div>

（　?。?/div>
'本過(guò)程讀取編號(hào)、品名、收支、需求的數(shù)據(jù)分別存儲(chǔ)在數(shù)組items、supplies、totals、g中，并在List1中顯示有關(guān)數(shù)據(jù)；g數(shù)組中g(shù)（1）、g（2）存儲(chǔ)物資A的3天、7天的需求數(shù)量；g（3）、g（4）存儲(chǔ)物資B的3天、7天的需求數(shù)量……代碼略
'代碼略
End Sub
Private Sub Command1_Click

（　?。?/div>

（　?。?/div>
Dim i As Integer,j As Integer,k As Integer,top As Integer,bottom As Integer
Dim r As Long,s As String,t As Integer,m As Integer
For i=1 To nc
b（i）=0：c（i）=0
Next i
For i=1 To n'統(tǒng)計(jì)每種物資的庫(kù)存量
k=Asc（Mid（items（i），2，1））-Asc（“A“）+1

b（k）=b（k）+totals（i）

b（k）=b（k）+totals（i）

c（k）=i
Next i
j=0
For i=1 To nc
If c（i）＜＞0 Then j=j+1：q（j）=i
Next i
top=0：bottom=j+1
j=1：k=bottom-1
Do While i＜bottom
'按各種物資的需求量進(jìn)行等級(jí)分類
m=q（j）

r=b（q（j））或r=b（m）

r=b（q（j））或r=b（m）

If r＜g（2*m-1）Then
top=top+1
If top＜＞j Then t=q（top）：q（top）=q（j）：q（j）=t
j=j+1
ElseIf r＞=g（2*m）Then
bottom=bottom-1
t=q（j）：q（j）=q（bottom）：q（bottom）=t
Else
j=j+1
End If
Loop
List2.AddItem“編號(hào)　品名　庫(kù)存“
List2.AddItem“------“
For i=1 To k
s=fp（i,top,bottom）
List2.AddItem““& s &““& supplies（c（q（i）））&““& b（q（i））
Next i
End Sub
Function fp（pos As Integer,head As Integer,tail As Integer）As String
If 

pos＜=head

pos＜=head

Then
fp=“A“
ElseIf pos＜tail Then
fp=“B“
Else
fp=“C“
End If
fp=fp & Mid（items（c（q（pos））），2，1）
End Function