1. (2021·浙江模擬) 整理書(shū)目清單。統(tǒng)計(jì)某書(shū)店每天暢銷書(shū)的銷售清單，計(jì)算庫(kù)存，并根據(jù)每本書(shū)的警戒庫(kù)存進(jìn)行分組處理，按庫(kù)存數(shù)小于等于警戒1庫(kù)存數(shù)，庫(kù)存數(shù)大于警戒1庫(kù)存數(shù)但小于等于警戒2庫(kù)存數(shù)，大于警戒2庫(kù)存數(shù)的分成三組，并按庫(kù)存數(shù)降序排序。某同學(xué)編寫(xiě)VB程序如下：從數(shù)據(jù)庫(kù)讀取銷售清單并顯示在列表框list1中，點(diǎn)擊按鈕“書(shū)目整理”計(jì)算每本書(shū)的庫(kù)存（庫(kù)存=原有庫(kù)存數(shù)-已經(jīng)銷售的數(shù)量，不存在銷售數(shù)量大于庫(kù)存數(shù)的情況），根據(jù)每本書(shū)的兩個(gè)警戒庫(kù)存，將書(shū)目分成三組，每組書(shū)目按庫(kù)存數(shù)量降序顯示在列表框list2中，程序運(yùn)行界面如圖1所示。

圖1

例如某天的銷售清單，庫(kù)存數(shù)據(jù)如圖2所示，根據(jù)每本書(shū)的警戒1和警戒2庫(kù)存，分組后的數(shù)據(jù)如圖3所示。

圖2

圖3

1. （1） 若有140本暢銷書(shū)，用兩位數(shù)編碼（每位數(shù)可以是0，1，2，3，4，5，6，7，8，9，A，B，C，D，E，F(xiàn)），則該編碼對(duì)應(yīng)的最小的進(jìn)制數(shù)是進(jìn)制。
3. （2） 實(shí)現(xiàn)上述功能的 VB 程序如下，請(qǐng)?jiān)趧澗€處填入合適的代碼。

   Dim stock(1 To 52) As Integer        '存儲(chǔ)每本書(shū)警戒1和警戒2的庫(kù)存數(shù)量

   Dim num(1 To 100) As Integer           '存儲(chǔ)每本書(shū)每次的銷售數(shù)量

   Dim bm(1 to 26) As String           '存儲(chǔ)每本書(shū)的書(shū)名編碼

   Dim kc(1 To 26) As Integer          '存儲(chǔ)每本書(shū)的庫(kù)存數(shù)量

   Dim sell(1 To 26) As Integer，q(1 To 26) As Integer

   Private Sub Form_Load()

       '從數(shù)據(jù)庫(kù)讀取書(shū)目銷售清單數(shù)據(jù)，顯示在list1中，分別存在數(shù)組

       'stock(1)，stock(2)存書(shū)名編碼A的警戒1庫(kù)存，警戒2庫(kù)存；stock(3)，stock(4)存書(shū)名編碼B的警戒1庫(kù)存，警戒2庫(kù)存，依次類推，代碼略

   End sub

   Private Sub Command1_Click()

       For i = 1 To 100         '處理100條銷售清單數(shù)據(jù)

           k = Asc(bm(i)) - 64

        

       Next i

       n = 0

       For i = 1 To 26      '更新庫(kù)存數(shù)據(jù)

           If sell(i) > 0 Then

               n = n + 1

              

               kc(i) = kc(i) - sell(i)

           End If

       Next i

       head = 0: tail = n + 1: j = 1

       Do While j < tail

           r = kc(q(j))

           If r <= stock(2 * q(j) - 1) Then

               head = head + 1

               If  Then t = q(head): q(head) = q(j): q(j) = t

               j = j + 1

           ElseIf r > stock(2 * q(j)) Then

               tail = tail - 1

               t = q(j): q(j) = q(tail): q(tail) = t

           Else

               j = j + 1

           End If

       Loop

       '分組排序及排序后數(shù)據(jù)顯示在列表框list2中，代碼略

   End Sub