編寫VB程序，實(shí)現(xiàn)如下功能：程序運(yùn)行時(shí)，產(chǎn)生n個(gè)數(shù)據(jù)并在列表框List1中顯示，在文本框Text1中輸入一個(gè)正整數(shù)key,單擊“查找”按鈕Command1，則在標(biāo)簽Label2中顯示查找該數(shù)的位置，程序界面如圖所示。
實(shí)現(xiàn)上述功能的VB程序如下，但加框處代碼有錯(cuò)誤，請改正。
Const n=10
Dim a（1To 10）As Integer
Private Sub Form_Load （　?。?br/>'隨機(jī)產(chǎn)生n個(gè)整數(shù)并存儲(chǔ)在數(shù)組d中
'在列表框顯示數(shù)據(jù)，代碼略
End Sub
Private Sub Command1_Click （　?。?br/>Dim key As Integer,p As Integer
key=Val（Text1．Text）
p=search（n）'①
If p＜＞0Then
Label2．Caption=“該數(shù)據(jù)在第“+Str（p）+“個(gè)位置“
Else
Label2．Caption=“沒有找到！“
End If
End Sub
Function search（x As Integer） As Integer
search=0
For i=1To n
If a（i）=x Then
search=d（i）'②
End if
Next i
End Function