小王編寫了一個猜價格的VB程序，程序界面如圖所示。程序運行時，在列表框List1中顯示20個隨機生成的在[150，250]之間的價格及其序號。在文本框Text1中輸入報價，單擊Command1“猜測”按鈕后，在Label3中輸出猜中價格對應(yīng)的序號。

實現(xiàn)上述功能的VB程序如下，但加框處代碼有誤，請改正。
Dim d（1To 20）As Integer
Private Sub Form_Load（　?。?br />For i=1To 20'生成20個隨機價格
‘（1）
Next i
For i=1To 19
For j=20To i+1Step-1
If  d（j）＜d（j-1）Then
t=d（j）：d（j）=d（j-1）：d（j-1）=t
End If
Next j
Next i
For i=1To 20
List1．AddItem Str（i）+Str（d（i））
Next i
End Sub
Private Sub Command1_Click （　?。?br />Dim baojia As Integer,i as integer,j as integer,t as integer,m as integer
Randomize
List1．Clear
baojia=Val（Text1．Text）
i=1
j=20
Do While i＜=j
‘（2）
If  baojia=d（m） Then
Label3．Caption=“猜中   第“+Str（i）+“個“
Exit Do
ElseIf  baojia＜d（m） Then
j=m-1
Else
‘（3）
End If
Loop
End Sub