【加試題】課堂隨機提問產生器．小葉同學發現老師在上課提問時喜歡叫座位靠前的同學回答問題，有時一節課會重復叫到某一位同學多次，為了實現每個同學被叫到回答問題的幾率均等，且在一節課老師提問次數少于班級總人數時，被叫到過回答問題的同學本節課不再被叫到，小葉同學用VB設計了一個課堂隨機提問產生器，功能如下：運行程序時，在列表框List1中顯示班級學生數據，單擊“隨機叫號”按鈕Command1，在文本框Text1、Text2中分別顯示學生學號和姓名，其應用程序界面如圖所示．

班級學生的具體數據信息存放在數據庫文件“student.jye.ai”的“stu”表中，班級學生數不超過60人．
實現上述功能的VB程序代碼如下：
Dim xh（1To 60）As Integer'定義存儲學生學號的數組xh
Dim Xm（1To 60）As String'定義存儲學生學號姓名的數組xm
Dim flag（1To 60）As Boolean'定義存儲學生是否被提問過
flag
Dim n As Integer'定義存儲班級學生總數的變量n
Dim num As Integer'定義存儲產生的隨機序號num
Dim total As Integer
Private Sub Command1_Click（　　）
Randomize
num=Int（Rnd*n）+1
Do While

①flag（num）

①flag（num）

num=Int（Rnd*n）+1
Loop
flag（num）=True
total=total+1
Text1．Text=xh（num）
Text2．Text=xm（num）
If total＞=n Then
For i=1To n
flag（i）=False
n=0
Next i
End If
End Sub
Private Sub Form_Load（　　）
Dim con As New ADODB．Connection'定義Connection對象實例conn
Dim rs As New ADODB．Recordset'定義Recordset對象實例rs
conn.ConnectionString=“provider=Microsoft.ACE．OLEDB.12.0；data source=”& App.Path &“\student.jye.ai”'設置conn的數據庫鏈接字符串
conn.Open'找開數據鏈接
rs.ActiveConnection=conn'設置rs的ActiveConnection屬性，關聯conn
rs.Open“SELECT*FROM stu”'打開記錄集，獲取數據
n=0
Do While Not rs.EOF
n=n+1
xh（n）=rs.Fields（0）'學生學號字段的序號為0
xm（n）=rs.Fields（1）'學生姓名字段的序號為1
List1．AddItem xh（n）&“--”& xm（n）
rs.MoveNext
Loop rs.Close

②conn.Close

②conn.Close

For i=1To n'初始化flag數組的值
flag（i）=Flase
Next i
total=0
End Sub
（1）請在橫線處填上合適的代碼．
程序中①橫線處應填入

flag（num）或flag（num）=true

flag（num）或flag（num）=true

．
程序中②橫線處應填入

conn.Close

conn.Close

．
（2）如將產生隨機數的程序代碼“Int（Rnd*n）+1”中的變量n直接用xh數組下標60來替換，會出現沒有學生回答問題的現象，請簡要說明原因：

當班級人數少于60人時，如果用60來替換，會出現隨機號大于班級人數的現象，從而導致沒有學生與之對應

當班級人數少于60人時，如果用60來替換，會出現隨機號大于班級人數的現象，從而導致沒有學生與之對應

．

．

．