小王編寫(xiě)了一個(gè)VB程序，用于進(jìn)行“金蟬素?cái)?shù)”的驗(yàn)證，具體功能：在文本框Text1中輸入一個(gè)3位至9位且為奇位數(shù)的數(shù)字，單擊“驗(yàn)證”按鈕Command1，在列表List1中分布顯示驗(yàn)證的結(jié)果，并在標(biāo)簽Label2中顯示該數(shù)是否為“金蟬素?cái)?shù)”。該程序運(yùn)行時(shí)的界面如圖所示：

題中“金蟬素?cái)?shù)”的判定原則，該數(shù)為素?cái)?shù)，同時(shí)去除該數(shù)的前X位及后X位所得到的數(shù)仍是素?cái)?shù)。例如：521、13597、3573971等都是“金蟬素?cái)?shù)”。
實(shí)現(xiàn)上述功能的VB程序如下，但加框處代碼有錯(cuò)，請(qǐng)改正：
Private Sub Command1_Click（　　）
      Dim n As Integer,j As Integer,y As Long
      Dim s As String,flag As Boolean
      List1．Clear
      s=Text1．Text
      n=Len（s）
      If n＞9 Or n＜3 Or n Mod 2=0 Then
            Label2．Caption=“待驗(yàn)證的數(shù)字輸入有誤！“
      Else
            j=0
            flag=True
            Do While And flag=True'（1）
                     y=Val（Mid（s,j+1，n+j*2））
                     If prime（y）=False Then
                           flag=False
                           List1．AddItem Str（y） &“不是素?cái)?shù)：“
                     Else
                           List1．AddItem Str（y） &“是素?cái)?shù)：“
                     End If
                     j=j+1
            Loop
            If j=n\2+1 And flag=True Then
                Label2．Caption=s &“是金蟬素?cái)?shù)！“
            Else
                Label2．Caption=s &“不是金蟬素?cái)?shù)！“