图a

图b为标准ASCII码表供你参考（其中ASCII为1-32,127的字符为特殊符号，不能用作密码）：

图b

实现上述功能的VB程序代码如下，请回答以下问题：

实现上述功能的VB程序如下，但加框处代码有错，请改正。

Const n = 10

Dim a（1 To n）As Integer

Private Sub Commandl_Click（）

Dim i As Integer，j As Integer，t As Integer

Dim bottom As Integer

'获取排序前数据依次存储在数组a中，并在文本框Text 1中显示。代码略

bottom = n

i = 1

Do While i<= bottom-1

  For j = bottom To i + 1 Step -1

      If  Then   ‘⑴

        t = a（j）： a（j）= a（j - 1）：a（j - 1）= t

      Elself a（j）= a（j - 1）Then    '相邻两个数据相等，进行剔除处理

           ‘⑵

        bottom = bottom -1

      End If

    Next j

    i = i+1

Loop

Text2.Text=＂＂

For i = 1 To bottom

  Text2.Text = Text2.Text+Str（a（i））

Next i

End Sub

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