Private Sub Command1_Click()

Dim a As Integer

a = Int(6 * Rnd + 1) * Int(6 * Rnd - 1)

Print a

End Sub

Private Sub Command1_Click()

    Dim s1 As String, s2 As String, ch As String

    s1 ＝ Text1.Text

    s2 ＝””

    ch ＝””

    For i ＝ 1 To Len(s1)

      ch ＝ Mid (s1, i, 1)

      If Asc(ch) <＝ 122 And Asc(ch) >＝ 97 Then

        ch ＝Chr(Asc(ch) － 32)

      End If

      If Asc(ch) >＝ 65 And Asc(ch)<＝ 90 Then

        ch ＝ Chr(65 ＋ (Asc(ch) － 62) Mod 26)

      End If

      s2 ＝ s2 ＋ ch

    Next i

    Text2.Text ＝ s2

  End Sub

已知大写字母A的ASCII码值为65，且小写字母的 ASCII 码为对应的大写字母的ASCII码加上32。运行上述程序，若文本框Text1 中的内容为“Text1”，单击命令按钮 Command1，则文本框Text2中将显示（  ）

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