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

班級學生的具體數(shù)據(jù)信息存放在數(shù)據(jù)庫文件“student.jye.ai”的“stu”表中，班級學生數(shù)不超過60人．
實現(xiàn)上述功能的VB程序代碼如下：
Dim xh（1To 60）As Integer'定義存儲學生學號的數(shù)組xh
Dim Xm（1To 60）As String'定義存儲學生學號姓名的數(shù)組xm
Dim flag（1To 60）As Boolean'定義存儲學生是否被提問過
flag
Dim n As Integer'定義存儲班級學生總數(shù)的變量n
Dim num As Integer'定義存儲產(chǎn)生的隨機序號num
Dim total As Integer
Private Sub Command1_Click（　?。?br />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的數(shù)據(jù)庫鏈接字符串
conn.Open'找開數(shù)據(jù)鏈接
rs.ActiveConnection=conn'設置rs的ActiveConnection屬性，關聯(lián)conn
rs.Open“SELECT*FROM stu”'打開記錄集，獲取數(shù)據(jù)
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數(shù)組的值
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）如將產(chǎn)生隨機數(shù)的程序代碼“Int（Rnd*n）+1”中的變量n直接用xh數(shù)組下標60來替換，會出現(xiàn)沒有學生回答問題的現(xiàn)象，請簡要說明原因：

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

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

．

．

．