編寫VB程序，實現(xiàn)如下功能：程序運行時，產生n個數(shù)據(jù)并在列表框List1中顯示，在文本框Text1中輸入一個正整數(shù)key,單擊“查找”按鈕Command1，則在標簽Label2中顯示查找該數(shù)的位置，程序界面如圖所示。
實現(xiàn)上述功能的VB程序如下，但加框處代碼有錯誤，請改正。
Const n=10
Dim a（1To 10）As Integer
Private Sub Form_Load （　　）
'隨機產生n個整數(shù)并存儲在數(shù)組d中
'在列表框顯示數(shù)據(jù)，代碼略
End Sub
Private Sub Command1_Click （　　）
Dim key As Integer,p As Integer
key=Val（Text1．Text）
p=search（n）'①
If p＜＞0Then
Label2．Caption=“該數(shù)據(jù)在第“+Str（p）+“個位置“
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