编写VB程序，实现如下功能：程序运行时，产生n个数据并在列表框List1中显示，在文本框Text1中输入一个正整数key,单击“查找”按钮Command1，则在标签Label2中显示查找该数的位置，程序界面如图所示。
实现上述功能的VB程序如下，但加框处代码有错误，请改正。
Const n=10
Dim a（1To 10）As Integer
Private Sub Form_Load （　　）
'随机产生n个整数并存储在数组d中
'在列表框显示数据，代码略
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=“该数据在第“+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