⑴分别将十进制数x,y转换为二进制,并将转换的每位二进制数存储到数组a,b中；如果两个二进制位数不相等，则位数较少的前面用“0”补足，使之a,b数组元素个数一致；

⑵取出数组a,b中下标相同的数组元素进行运算，若值相同，则结果为0，否则为1；

根据上述运算方法,示例如表所示。

小明编写了一个VB程序，功能如下：在文本框Text1、Text2中分别输入x、y的值，单击“异或”按钮Command1，程序对数据进行异或运算，并将结果显示在列表框List1中。

实现上述功能的VB程序如下，但划线部分代码有错，请改正。

Private Sub Command1_Click()

  Dim x(1 To 100) As Single， y(1 To 100) As Single

  Dim tmp As Single， length As Single， sum As Single， x1 As Single， y1 As Single

  Dim i As Integer， j As Integer， k As Integer

Randomize 

List1.Clear

  k = Val(Text1.Text)

  For i = 1 To k

      x(i) = Int(Rnd * 90) / 10 + 1

      y(i) = Int(Rnd * 90) / 10 + 1

      List1.AddItem "X：" + Str(x(i)) + "   " + "Y：" + Str(y(i))

  Next i

  For i = 1 To k - 1

      For j = 1 To k - i

          If x(j) > x(j + 1) Then

              x(i)=x(i) + x(j)

              x(j) = x(i) - x(j)

              x(j) = x(i) + x(j)   ‘①

              tmp = y(j)

              y(j) = y(j + 1)

              y(j + 1) = tmp

          End If

      Next j

  Next i

  sum = 0： length = 0

  For i = 1 To k - 1

      x1 = (x(i) - x(1)) ^ 2     ‘②

 '变量y1计算方法同x1，代码略

      length = Sqr(x1 + y1)

      sum = sum + length

  Next i

  Text2.Text = Str(Int(sum * 10) / 10)

End Sub

①{#blank#}1{#/blank#} ②{#blank#}2{#/blank#} 

为了实现这一目标，完善下列程序，使之能完成该功能。

Private Sub command1_click()

   Const n=20

   Dim i as integer,j as integer

   Dim a(1 to n) as integer

   For j=1 to n

      a(j)=0

   next j

   for i=1 to n

      for j=1 to n

         if j mod i=0 then

             {#blank#}1{#/blank#}

         End if

       Next j

    Next i

    For j=1 to n

       If {#blank#}2{#/blank#} then list1.additem str(j)

    Next j

End Sub