中秋節時，班級組織活動，其中有抽獎環節，小龍在7選3中選考了技術，班主任讓小龍編寫一個VB抽獎程序，功能如下：窗體裝載過程從數據庫讀取所有同學的相關數據并顯示在列表框List1中，抽獎時在文本框Text1中輸入要抽出的人數，單擊“搖獎”按鈕command1，程序進行處理，結果輸出在列表框list2中．程序運行界面如圖所示．

實現上述功能的VB程序如下，請回答下列問題：
（1）分析下面的程序代碼，可知數據表名為

stuinfo

stuinfo

（2）請在橫線處填入合適的代碼．
Dim a（1To 100）As String'數組大小滿足處理要求，學生學號
Dim b（1To 100）As String'數組大小滿足處理要求，學生姓名
Dim i As Integer'學生總數
Dim j As Integer
Dim dd（1To 100）As Integer
Private Sub Form_Load （　　）
‘從數據庫讀取全班同學的相關信息，存儲在數組a、數組b和變量i中
Dim n As Integer
Dim conn As New ADODB．Connection
Dim rs As New ADODB．Recordset
Dim strSQL As String
conn.ConnectionString=“Provider=Microsoft.ACE．OLEDB.12.0；Data Source=“& App.Path &“\1718．accdb“
conn.Open
Set rs.ActiveConnection=conn
strSQL=“SELECT*FROM stuinfo“
rs.Open strSQL
'本過程的其他語句略
End Sub
Private Sub Command1_Click （　　）
Dim ShuruNum As Integer,k As Integer,y As Integer,n As Integer
Randomize
ShuruNum=Val（Text1．Text）
Label4．Caption=““
For k=1To i
dd（k）=0
Next k
If ShuruNum＞0And ShuruNum＜=i Then
j=1
Do While j＜=ShuruNum
y=Int（Rnd

（　　）

（　　）

*i）+1
If

CheckCF（y）=True或CheckCF（y）

CheckCF（y）=True或CheckCF（y）

  Then'①
dd（j）=y
j=j+1
End If
Loop
List2．Clear
For n=1To ShuruNum
List2．AddItem

a（dd（n））+b（dd（n））或a（dd（n））&b（dd（n））

a（dd（n））+b（dd（n））或a（dd（n））&b（dd（n））

'②
Next n
Else
Label4．Caption=“錯誤：沒有輸入中獎人數或超過學生總數“
End If
End Sub
'核對重復，避免同一人再次中獎
Private Function CheckCF（p As Integer） As Boolean
Dim m As Integer,x As Boolean
x=True'初始化
For m=1To j
If

p=dd（m）

p=dd（m）

 Then'③
x=False
Exit For
End If
Next m
CheckCF=x
End Function.