小王編寫統(tǒng)計(jì)工廠工人生產(chǎn)某種零件數(shù)量人數(shù)的VB程序．運(yùn)行程序后，從數(shù)據(jù)庫中獲取每個(gè)工人生產(chǎn)零件的數(shù)量數(shù)據(jù)，并存儲(chǔ)在數(shù)組xs中；在文本框Text1中輸入零件數(shù)（整數(shù)），單擊“統(tǒng)計(jì)”按鈕command1，程序?qū)⒁来魏Y選出數(shù)組xs中零件數(shù)大于等于輸入零件數(shù)的數(shù)據(jù)，并存儲(chǔ)在數(shù)組bf中．最后統(tǒng)計(jì)數(shù)組bf中生產(chǎn)零件數(shù)相同的人數(shù)，存儲(chǔ)在數(shù)組jg后，并將統(tǒng)計(jì)結(jié)果輸出在列表框list1中，數(shù)組jg各元素含義如表所示，程序運(yùn)行界面如圖所示．

數(shù)組元素	數(shù)組元素的含義
jg（1）	存儲(chǔ)查找第1個(gè)大于n的零件數(shù)
jg（2）	存儲(chǔ)第1個(gè)大于n的零件數(shù)共有幾個(gè)工人人數(shù)
…	…
jg（2*i-1）	存儲(chǔ)查找到第i個(gè)大于n的零件數(shù)
jg（2*i）	存儲(chǔ)第i個(gè)大于n的零件數(shù)共有幾個(gè)工人人數(shù)
…	…

實(shí)現(xiàn)以上功能的VB程序如下，請(qǐng)回答下列問題：
（1）根據(jù)程序運(yùn)行界面數(shù)據(jù)，及數(shù)組jg各元素的含義進(jìn)行分析，數(shù)組元素jg（8）的值是

18

18

（填寫數(shù)值）．
（2）分析程序，當(dāng)前程序中處理的數(shù)據(jù)獲取的數(shù)據(jù)表名是

tab

tab

（填數(shù)據(jù)表名）．
（3）請(qǐng)?jiān)跈M線處填入合適的代碼．
Dim xs（1 To 1000）As Integer,jg（1 To 1000）As Integer'數(shù)組大小滿足處理要求
Dim n As Integer'存儲(chǔ)數(shù)據(jù)庫總的記錄數(shù)
Private　Sub　Form_Load（　?。?br />    Dim conn As New adodb.Conncction,rs As New adodb.Recordset
    Dim strSQL As String
    conn.ConnectionString=“Provider=Microsoft.ACE．OLEDB.12.0；
Data Source=“+App.Path+“\date.jye.ai“
     conn.Open
     strSQL=“SELECT*From  tab“
     Set   rs.ActiveConnection=conn
'本過程的其他語句略
'本過程求出n的值
End Sub
Private Sub Command1_Click（　?。?br />    Dim bf（1 To 1000）As Integer'數(shù)組bf存儲(chǔ)大于等于輸入零件數(shù)的數(shù)據(jù)
    Dim maxn As Integer,d As Integer,k As Integer,da As Integer
    Dim i As Integer,j As Integer,flag As Integer
    da=Val（Text1．Text）：maxn=0
    For　j=1 To  n
        If xs（j）＞=da  Then maxn=maxn+1：bf（maxn）=xs（j）
     Next　j
     k=1
     For i=1 To  maxn
        flag=0
        For　j=1 To i-1
            If  bf（i）=bf（j）  Then  flag=1
         Next　j
         If   flag=0 Then

jg（2*k-1）=bf（i）

jg（2*k-1）=bf（i）

              d=1
              For  j=i+1 To maxn
                  If bf（i）=bf（j） Then

d=d+1

d=d+1

              Next　j
              jg（2*k）=d
              k=k+1
          EndIf
     Next  i
         k=k-1：List1．Clear
     For　j=1 To 2*k  Step 2
         List1．AddItem Str（jg（j））+““+Str（jg（j+1））
      Next　j
End　Sub.