小王編寫統計工廠工人生產某種零件數量人數的VB程序．運行程序后，從數據庫中獲取每個工人生產零件的數量數據，并存儲在數組xs中；在文本框Text1中輸入零件數（整數），單擊“統計”按鈕command1，程序將依次篩選出數組xs中零件數大于等于輸入零件數的數據，并存儲在數組bf中．最后統計數組bf中生產零件數相同的人數，存儲在數組jg后，并將統計結果輸出在列表框list1中，數組jg各元素含義如表所示，程序運行界面如圖所示．

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

實現以上功能的VB程序如下，請回答下列問題：
（1）根據程序運行界面數據，及數組jg各元素的含義進行分析，數組元素jg（8）的值是

18

18

（填寫數值）．
（2）分析程序，當前程序中處理的數據獲取的數據表名是

tab

tab

（填數據表名）．
（3）請在橫線處填入合適的代碼．
Dim xs（1 To 1000）As Integer,jg（1 To 1000）As Integer'數組大小滿足處理要求
Dim n As Integer'存儲數據庫總的記錄數
Private　Sub　Form_Load（　　）
    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（　　）
    Dim bf（1 To 1000）As Integer'數組bf存儲大于等于輸入零件數的數據
    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.