Dim n As Integer

  Dim a(1 To 100)As Integer

Private Sub Command1_Click()  ‘生成n个有序数，显示在List1中

‘代码略

End Sub

Private Sub Command2_Click()

    Dim t As Integer

    Dim i As Integer

    Dim j As Integer

    Dim temp As Integer

    t=Val(Text2．Text)

    For i= To n       ‘(1)

      temp=a(i)

      For j=i To i+1-t Step-1

      a(j)=a(j-1)

      Next j

        =temp    ‘(2)

    Next i

    For i=1 To n

      List2．AddItem Str(a(i))

    Next i

  End Sub

   Dim A(10)，B(5)

   For i = 1 To 10

       A(i) = i

       Next i

   For j = 1 To 5

       B(j) = j * 20

   Next j

   A(5) = B(2)

   Print "A(5)=";A(5)

现编写一个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