Dim a(l To 100) As String

Private Sub Commandl_Click()

  Dim c As Integer, t As String, ans As String

  s = Textl. Text

  k = Val(Text2. Text)

  ans =“”

  For i = 1 To Len(s) - k - 1

    c = c + 1

    a(c) = Mid(s, i, 1) + Mid(s, i + k + 1, 1)

    If check(c) Then

      ans = ans + a(c) + "，"

    Else

      c = c - 1

    End If

  Next i

  Text3. Text = ans

End Sub

Function check(k As Integer) As Boolean

  Dim i As Integer

  check = True

  For i = 1 To k - 1

    If a(i) = a(k) Then check = False: Exit For

  Next i

End Function

若该程序段执行后，在文本框Text1中输入的字符串长度不超过10，文本框Text2中输入的值在0到8范围内（输入输出都不包括双引号本身），下列说法不正确的是（  ）

现编写一个VB程序，实现如下功能：在文本框Text1中产生条形码数字序列，单击“校验”按钮Command1，在标签Label1中输出对应的校验信息，界面如图所示。实现上述功能的VB程序如下，但加框处代码有错，请改正

Private Sub Command1_Click()

     Dim s As String, x As Integer

     Dim n As Integer , js As Integer, os As Integer, m As Integer

     Js=0: os=0

     s = Text1.Text

         {#blank#}1{#/blank#}

If n <> 13 Then

    Label1.Caption = "条形码位数错误!"

Else

    For i = 1 To 12

    {#blank#}2{#/blank#}  

      If x Mod 2 <> 0 Then

        js = js + x

      Else

        os = os + x

      End If

    Next i

    m = os * 3 + js

       {#blank#}3{#/blank#}

    If m=Val(Mid(s,n,1)) Then

      Label1.Caption = "校验码正确!"

    Else

       Label1.Caption = "校验码错误!"

    End If

End If

End Sub

def bin(n):

    if n==0:

        return

    else:

        bin(n//2)

    print(n%2,end='')

bin(13)