程序运行界面如图所示，左边列表框List1中显示的是会员卡号和余额，在文本框Text1中输入会员卡号，单击"查询余额"按钮（Command1）后，如果找到此卡号，则在标签Label2中显示"此卡号余额为"和卡号对应的余额值，如果未找到则显示"找不到此卡号，请重新输入"。

解决此问题的部分程序段如下：

Dim kh (1 To n) As Long

Dim ye (1 To n) As Single

Private Sub Command1_Click()

Dim x As Long, i As Long, j As Long, m As Long, f As Boolean

x = Val(Text1.Text)

i = 1: j = n: f = False           ‘ 设卡号总数为n

Do While        ①            

        ②    

       If x = kh (m) Then

           f = True

       ElseIf x < kh (m) Then

           j = m - 1

       Else

         ③      

      End If

Loop

If f Then

      Label2.Caption = "此卡号余额为" + Str(ye(m)) + "元"

Else

      Label2.Caption = "找不到此卡号，请重新输入"

  End If

End Sub

Private Sub Form_Load()

   ’此过程用于对数组kh和数组ye进行初始赋值，代码略

End Sub

依据对分查找思想，设计一个在数组a中查找数据key的程序。实现该功能的VB程序如下，但加框处代码有错，请改正。

Private Sub Command1_Click（）

    Const n = 6

    Dim a（1 To n）As Integer，flag As Boolean

    Dim i As Integer，j As Integer，m As Integer，key As Integer

    '读取一组正整数，按上述规则存入数组a中，代码略。

    key = VaKText1. Text）

    i = 1

    j = （n + 1） \ 2

    flag = False

    Do While  And Not flag       ‘① 

        m = （i + j） \ 2

        If key = a（m） Then

            flag = True

        ElseIf key< a（m） Then

            j = m - 1

        Else

            i = m + 1

        End If

    Loop

    If Not flag And j > 0 Then

        m =    ‘②

        If key = a（m） Then flag = True

    End If

    If flag Then

        Text2. Text = Str（m）

    Else

        Text2. Text = "找不到"

    End If

End Sub

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

注：文中圆括号成对出现，圆括号内不会再套圆括号。

程序运行界面如图所示。

p=")!@#$%^&*("

c="cra2edu"

t=""

for i in range(len(c)//2+1):

    if i%2==0:

        t+=c[len(c)-i-1]

    elif c[i]>="0" and c[i]<="9":

        t+=p[int(c[i])]

    else:

        t+=c[i]

print(t)

程序运行后，输出的结果是（   ）