小王编写了VB程序，具体功能：点击“执行”按钮Command1，在文本框Text1中显示空气质量为优（AQI空气质量指数≤50）的最长持续天数（连续为优），并在列表List1中依次显示对应天数的各项数据。

实现上述功能的VB程序如下：

  Dim rq(1 To 365)As String       ‘存放日期

  Dim aqi(1 To 365)As Integer     ‘存放AQl空气质量指数

  Dim tq(1 To 365)As String       ‘存放天气

  Dim qw(1 To 365)As String      ‘存放气温

  Dim fxfl(1 To 365)As String      ‘存放风向及风力

  Private Sub Form_Load( )

    ‘本过程从数据中按2016-06-01至2017-05-31依次读取各项数据，并分别存储在对应的数组中。代码略 。

  Private Sub Command1_Click( )

       Dim n As Integer，m As Integer，i As Integer，k As Integer

  Dim s As String

       n=0：m=0：k=0

       For i=1 To 365

           If aqi(i)<=50 Then

               n=n+1

          Else

               If n>m Then

                  m=n

                  k=i-1

               End If

               n=0

          End If

      Next i

      If n>m Then

         m=n

             ①                

      End If

      For i=      ②        To k    

         s=rq(i)                       ‘日期长度均为10

         s=s&Space(7-Len(Str(aqi(i)))) ＆ Str(aqi(i))    ‘AQI为1～3个数字

         s=s&Space(4)&tq(i)                  ‘天气为1-4个中文字符

         s=s&Space(2*(6-Len(tq(i))))＆qw(i)    ‘气温长度均为9

         s=s&Space(4)&fxfl(i)        ‘风向及风力长度不等

List1.AddItem s

      Next i

      Text1．Text=Str(m)

End Sub

程序代码中,语句加框处有错，请改正。

Private Sub Command1_Click()

Dim s As String, sum As Integer

Dim i As Integer, j As Integer

List1.Clear

s = Text1.Text

n = len(s)

                               ’（1）

For i = 1 To n

  For j = 1 To n-i+1

     List1.AddItem        ’（2）

     sum = sum + 1

  Next j

Next i

List1.AddItem "总共有" + Str(sum)  + "个子串"

End Sub

⑴{#blank#}1{#/blank#} ⑵{#blank#}2{#/blank#} 

S=0

For i=1 To 3

  s=s+2

Next i

Print s

⑴从左向右将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

请回答下列问题：

>>>  a=3

>>>  b=6

>>>  a, b=b, a

>>>  a-=b

>>>  a+b