中秋节时，班级组织活动，其中有抽奖环节，小龙在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.