中秋節(jié)時(shí)，班級(jí)組織活動(dòng)，其中有抽獎(jiǎng)環(huán)節(jié)，小龍?jiān)?選3中選考了技術(shù)，班主任讓小龍編寫一個(gè)VB抽獎(jiǎng)程序，功能如下：窗體裝載過程從數(shù)據(jù)庫(kù)讀取所有同學(xué)的相關(guān)數(shù)據(jù)并顯示在列表框List1中，抽獎(jiǎng)時(shí)在文本框Text1中輸入要抽出的人數(shù)，單擊“搖獎(jiǎng)”按鈕command1，程序進(jìn)行處理，結(jié)果輸出在列表框list2中．程序運(yùn)行界面如圖所示．

實(shí)現(xiàn)上述功能的VB程序如下，請(qǐng)回答下列問題：
（1）分析下面的程序代碼，可知數(shù)據(jù)表名為

stuinfo

stuinfo

（2）請(qǐng)?jiān)跈M線處填入合適的代碼．
Dim a（1To 100）As String'數(shù)組大小滿足處理要求，學(xué)生學(xué)號(hào)
Dim b（1To 100）As String'數(shù)組大小滿足處理要求，學(xué)生姓名
Dim i As Integer'學(xué)生總數(shù)
Dim j As Integer
Dim dd（1To 100）As Integer
Private Sub Form_Load （　?。?br />‘從數(shù)據(jù)庫(kù)讀取全班同學(xué)的相關(guān)信息，存儲(chǔ)在數(shù)組a、數(shù)組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．a(chǎn)ccdb“
conn.Open
Set rs.ActiveConnection=conn
strSQL=“SELECT*FROM stuinfo“
rs.Open strSQL
'本過程的其他語(yǔ)句略
End Sub
Private Sub Command1_Click （　?。?br />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

（　?。?/div>

（　　）

*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=“錯(cuò)誤：沒有輸入中獎(jiǎng)人數(shù)或超過學(xué)生總數(shù)“
End If
End Sub
'核對(duì)重復(fù)，避免同一人再次中獎(jiǎng)
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.