单选题 窗体上有一个名称为Command1的命令按钮，单击该按钮时所实现的功能是产生10个随机整数，然后从键盘输入一个整数，查找该数在数组中的位置。若找到，输出该数的位置；若没有找到，给出相应的提示。该命令按钮的单击事件过程如下：
Private Sub Command1_Click()
Dim a(10)As Integer, x As Integer
For i=1 To 10
a(i)=Int(Rnd*100)
Next
x=InputBox("输入100以内的整数:"):p=0
For i=1 To 10
If a(i)=x Then
p=i:Exit For
End If
Next
If p=0 Then
Print"没有找到与输入数据相同的数!"
Else
Print Str(x)+"在数组中的位置是"+Str(p)
End If
End Sub
对于上述事件过程，以下叙述中正确的是