使用VB程序研究“回文素數(shù)在素數(shù)表中的位置”，程序運行界面如下圖所示。程序將10000以內的全部素數(shù)按順序保存到數(shù)組a中，在文本框中輸入需要查找的回文數(shù)，單擊“查找”按鈕command1，在標簽label1中顯示該回文素數(shù)在全部素數(shù)中的位置。

實現(xiàn)上述功能的程序如下，加框處的代碼有錯，請改正。
Dim a（1To 10000）As Integer
Dim n As Integer
Private Sub Form_Load （　?。?br />‘將1000以內的素數(shù)從小到大依次存入數(shù)組a中
‘將素數(shù)的個數(shù)存入變量n中
End Sub
Private Sub Command1_Click （　?。?br />Dim i As Integer,j As Integer,mid As Integer
Dim key As Integer,flag As Boolean
key=Val（Text1．Text）
If key＞10000Or Not hws（key） Then
MsgBox“輸入的數(shù)據(jù)不是10000以內的回文數(shù)“
Else
i=1：j=n
flag=False
Do While
mid=（i+j）\2
If key＞a（mid） Then
i=mid+1
ElseIf key＜a（mid） Then
j=mid-1
Else
flag=True
End If
Loop
If Not flag Then
Label1．Caption=“該回文數(shù)不是素數(shù)“
Else
Label1．Caption=“回文素數(shù)“+Str（key）+“是第“+Str（mid）+“個素數(shù)“
End If
End If
End Sub
‘自定義函數(shù) hws（y）用于判斷y是否是回文數(shù)
Function hws（y As Integer） As Boolean
Dim x As Integer,k As Integer
x=0：k=y
hws=True
Do While k＞0

k=k\10
Loop
If x＜＞y Then hws=False
End Function。