小王编写统计工厂工人生产某种零件数量人数的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.