小劉為班級的抽獎活動編寫了一個 VB 程序。單擊“抽取”按鈕 command1 時，在列表框 List1 中顯示按用戶抽取人數(shù)在學(xué)號起訖范圍內(nèi)（最大學(xué)號不超過 100）隨機抽取到不重復(fù)的學(xué)號。程序運行界面如圖所示。 

實現(xiàn)上述功能的 VB 程序如下，但加框處代碼有錯，請改正。 Dim xh（1To 100）As Integer
Dim yx As Integer
Private Sub Command1_Click

（　?。?/div>

（　?。?/div> Dim n1，n2，n,x As Integer List1．Clear
Randomize
n1=Val（Text1．Text） n2=Val（Text2．Text） n=Val（Text3．Text） If n＜=n2-n1Then
yx=1
Do While yx＜=n
x='①
If yx=1Then
xh（yx）=x
yx=2
Else
If qc（x）=True Then
xh（yx）=x
yx=yx+1
End If
End If
Loop
For i=1To n
List1．AddItem Str（xh（i））
Next i Else
MsgBox“你輸入的抽取人數(shù)不能實現(xiàn)，請重新輸入?！癊nd If
End Sub
Public Function qc（t As Integer） As Boolean For j=1To yx
If xh（j）=t Then
qc=False
Exit For
End If Next j
If  Then qc=True'②End Function
（1）加框處①有錯，應(yīng)改為

Int（Rnd*（n2-n1+1））+n1

Int（Rnd*（n2-n1+1））+n1

。
（2）加框處②有錯，應(yīng)改為

j=yx+1或j＞yx

j=yx+1或j＞yx

。