s = ""

   For i = 1 To 5

      a(i) = 0

   Next i

   For i = 2 To 5

      For j = i To 5

         If j Mod i = 0 Then a(j) = 1 - a(j)

      Next j

   Next i

   For i = 1 To 5

      If a(i) = 1 Then s = s + Str(i)

   Next i

   Text1.Text = s

运行该程序段后，Text1中显示的内容为（   ）

Private Sub Command1_Click()

  Dim n As Integer，cj As Integer，s As String

  n＝Val(Text1.Text)

  cj＝{#blank#}1{#/blank#}

  s＝”s＝”

  Do While {#blank#}2{#/blank#}

    If n<>4 Then

      n＝n－3

      cj＝cj*3

      s＝s＋”3×”

    Else

      n＝n－2

      cj＝cj*2

      s＝s＋”2×”

    End If

  Loop

    cj＝{#blank#}3{#/blank#}

    If n＝3 Then s＝s＋”3” Else s＝s＋”2”

    Text2.Text＝s

    Text3.Text＝cj

End Sub

⑴从左向右将13个数字按顺序排列，最左边的是第1位，最右边的是第13位（即校验位）。将所有偶数位的数据相加，结果乘3，得到p。将除校验位以外所有奇数位的数据相加，得到q。

⑵计算p加q得到的和除以10的余数，再计算该余数以10为模的补数（如3以10位模的补数为7,8以10为模的补数为2）。

⑶若补数与校验位相等，则验证正确，否则验证错误。

小李对上述校验规则进行了加密处理，他将前12位数字分成3个一组。每组上每个数字分别循环向左移1位轮换（如第2位移到第1位，第7位移到第9位），再分别加上所处的位置后除以10 的余数，示例如下：

小李还编写了解密验证程序，代码如下，运行界面如图所示。

Private Sub Command1_Click()

Dim i As Integer, t As Integer, code As String, res As String

Dim p As Integer, q As Integer, x As Integer

Dim a(1 To 13) As Integer

code = Text1.Text

For i = 1 To 12

    ch = Mid(code, i, 1)

t =     ①        

a(i + 1 - (     ②     ) * 3) = t

Next i

For i = 1 To 12

    If i Mod 2 = 0 Then  p = p + a(i)  Else  q = q + a(i)

Next i

x =      ③      

If x = Val(Mid(code,13,1)) Then res = "验证正确" Else res = "验证错误"

Label3.Caption = res

End Sub

请回答下列问题：

s=56

s1=s\10

s2=s Mod 10

s=s1+s2*10

Print "s="; s