从被加密字符串中获取单个字符，然后得到其ascii码的8位二进制编码。

将字符的二进制编码反向，得到其逆序二进制码。

将逆序二进制码的每4位转换为相应的十六进制编码，即得到单个字符加密后的字符串。

以此类推，直到所有字符加密完成，得到加密字符串。

具体程序界面如下图，在text1中输入字符串，点击“加密”按钮command1后，在text2中显示加密后的字符串。

长度小于等于 100），在列表框 List1 里输出所有配对括号在表达式中的位置。例如在文本框 Text1 里入：“12*(3-(1+2))*3”，程序运行效果如图所示。

实现上述功能的 VB 代码如下，在划线的地方填入合适代码，完善程序。Private Sub Command1_Click()

Dim s As String

Dim a(1 To 100) As Integer

i = 1 top = 0

Do While i <= Len(s)

     If Mid(s, i, 1) = "(" Then

        top = top + 1

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

     End If

     If Mid(s, i, 1) = ")" Then

        List1.AddItem Str(a(top)) + "    " + Str(i)

        {#blank#}2{#/blank#} 

     End If

     i=i+1 Loop

End Sub

a = 1

b = 0

m = a

x = m + b

b = b + 1

y = x + b

它的基本结构属于（   ）

For x = 10 To 1 Step -2

   a(x) = x + 1

Next x

该程序段运行后数组元素x的值为（  ）