①6542-2456=4086  ②8640-0468=8172  ③8721-1278=7443  ④7443-3447=3996

⑤9963-3699=6264  ⑥6642-2466=4176  ⑦7641-1467=6174

编写程序实现实现上述功能。从文本框Text1中输入一个任意的数字不完全相同的四位正整数，在文本框Text2中输出掉进黑洞的步数。实现上述功能的VB代码如下，但加框处代码有错，请改正：

Private Sub Command1_Click()

 Dim a(1 To 4) As Integer, c As Integer, t As Integer

 Dim x As Integer, y As Integer, i As Integer, j As Integer

x = Val(Text1.Text)

c = 0

 Do While x <> 6174

 For i = 1 To 4     '把四位正整数x的每一位数字取出并存放到数组a中

a(i) = x Mod 10

       ' （1）

Next i

 For i = 1 To 3

  For j = i + 1 To 4

  If  Then  ' （2）

t = a(i): a(i) = a(j): a(j) = t

End If

  Next j

 Next i

 x = a(1) * 1000 + a(2) * 100 + a(3) * 10 + a(4)

 y = a(1) + a(2) * 10 + a(3) * 100 + a(4) * 1000

 x = x - y

 c = c + 1

 Loop

 Text2.Text = Str(c)

End Sub

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

如果要对两个十进制数进行异或运算，可以按以下步骤进行：

①   先将要进行异或运算的两个十进制数分别转换为二进制；

②   对两个二进制数按位进行异或运算；例：(101101)₂⊕(111)₂=(101010)₂

③   再把步骤②中的运算结果转换为十进制，该十进制数即为运算结果。

小明编写了一个VB程序来模拟上述运算过程，程序功能如下：在文本框Text1和Text2中分别输入要参加异或运算的十进制数，单击计算按钮Command1，程序对输入的两个数进行异或运算，并将运算结果显示在文本框Text3中，程序运行界面如图所示。

①把条形码下方数字从右往左依次编序号为“1,2,3,4……”；

②从序号2开始把所有偶数序号位上的数相加求和，并乘以3；

③从序号3开始把所有奇数序号上的数相加求和；

④把第②和第③步结果相加求和；

⑤10减去第④步结果的个位数，得出校验码（如果差值为10，则校验码为0）；

如条形码的数字为：977167121601X（X为校验码），则校验码主要产生步骤如下：

1)   (1+6+2+7+1+7)×3=72

2)   0+1+1+6+7+9=24

3)   72+24=96

4)   10-6=4

所以最后校验码X=4，此条形码数字为9771671216014。

小何为此编写了VB程序，用以验证条形码输入正确与否。程序运行时，从文本框Text1获取条形码数字部分，单击按钮Command1后，在标签Label1中输出结果。实现上述功能的VB代码如下，请补全代码。

Private Sub Command1_Click()

Dim i As Integer, b As String, Lb As Integer

Dim s1 As Integer, s2 As Integer, tmp As Integer

Dim c As String

Dim d(1 To 13) As Integer     '存储数据

Dim res As String             '存储结果

  b = Text1.Text              '输入条形码

  Lb = Len(b)

  s1 = 0 : s2 = 0

  flag = True

  res = "输入错误！"

  listt1.Clear

  If  Lb = 13 Then

    For i = 1 To 13

      c = Mid(b, Lb - i + 1, 1)

      If c >= "0" And c <= "9" Then

      {#blank#}1{#/blank#}          '输入转换

      Else

        flag = False : Exit For

      End If

    Next i

    If flag Then

      For i = 2 To Lb Step 2

        s1 =  s1 + d(i)                 '参数计算1

        s2 =  {#blank#}2{#/blank#}       '参数计算2    

Next i

tmp = s1 * 3 + s2

If  {#blank#}3{#/blank#} Then res = "输入正确！" 

    End If

  End If

  Label1.Caption = res

End Sub