⑴“A”变为一个1到100内的随机数*27+1，“B”变为一个1到100内的随机数*27+2，……，“Z”变为一个1到100内的随机数*27+26；

⑵每个字母变为数字后会加上一个“—”用来分割数字；

⑶其他空格和标点字符都按原来的表示。

李雷利用VB编写了一个解密程序，功能如下：将邮件中密文的内容复制到文本框Text1中，点击“解密”按钮Command1后，程序会将密文解密并将解密后的内容显示在文本框Text2中。程序运行界面如图所示：

  n=0

  i=1

  j=6

  key=Val(Text1．Text)

  f=False

  Do While i<=j And Not f

    m=(i+j+1)＼2

    n=n+1

    If key=d(m)Then

       f=True

    ElseIf key>d(m)Then

       i=m-1

    Else

      i=m+1

    EndIf

  Loop

数组元素d（1）到d（6）的值依次为“87，72，53，41，29，18”，若该程序段运行结束后，n的值为2，则key的值是（  ）

i=1 : j=8 : s=""

key=Text1.Text Do While i<=j

   m=(i+j)\2

If key=a(m) Then

      s=s+"M"

Exit Do

Elseif Key > a(m) Then j=m-1: s=s+"L"

Else

      i=m+1: s=s+"R" End if

Loop Text1.Text=s

数组元素a(1)到a(8)的值依次为“tiger,snake,sheep,rabbit,pig,mouse,monkey,dog”,若该程序段执行后，文本框Text1中显示的内容不可能是（  ）

程序界面如图所示，在文本框Text_1中输入原始字符串，在文本框Text_2中输入需要删除的字符，单击“删除此字符”按钮(Command1)后，在文本框Text_3中输出处理后的结果。

解决此问题的算法流程图如图所示，相应的Visual Basic程序如下：

Dim p As String,k As String

Private Sub Command1_Click()

Dim s As Integer,result As String,flag As Boolean

result=“”

p=Text_1.Text

k=Text_2.Text

For s=1 To Len(p)

  flag=f(s)

  If Not flag Then

   result=result+①   

  End If

Next s

②   

End Sub

Function f(s As Integer)As Boolean

  If Mid(p,s,1)=k Then f=True

End Function