下列VB程序段的输出结果是
a=25:b=18:c=b
if  a>b  then
c=a
end if
print c

A．25

B．18

C．7

D．0

李雷收到了朋友发给他的一封奇怪的邮件，里面有段内容是由一些数字和符号组成。信上面说，这段内容是加密后的内容，并给出了具体加密方法（假定原文的英文字母都是大写的），具体方法如下：
（１）“Ａ”变为一个1到100内的随机整数×27+1，“Ｂ”变为一个１到100内的随机整数×27+2，……，“Ｚ”变为一个１到100内的随机整数×27+26；
（２）每个字母变为数字后会加上一个“－”用来分隔数字；
（３）其他空格和标点字符都按原文表示。
 
李雷利用VB编写了一个解密程序，功能如下：将邮件中密文的内容复制到文本框Text1中，点击“解密”按钮Command1后，程序将解密后的内容显示在文本框Text2中。
（１）实现上述功能的VB程序如下，请在划线处填入合适的代码。
（２）根据描述，若密文为“1905-1442-” ，则表示的是________________。
Private Sub Command1_Click()
Dim s As String, yw As String, t As String
Dim value As Integer    
s=Text1.Text
value=0
yw=""
For i=1 To Len(s)
___________________    ‘① 
If t>="0" And t<="9" Then 
value=value*10+Val(t)

ElseIf t="-" Then 

  yw=yw+Chr(Asc("A")+value Mod 27-1)

   ____________________   ‘② 
Else
___________________ ‘③ 
End If
Next i
Text2.Text=yw
End Sub

Rnd函数不可能为下列_______值。

A．0.6

B．1

C．0.1234

D．0.0005

在一个数字字符串中，求最长连续递增序列的长度。例如，字符串“123423416789”，最长的递增序列为“16789”，长度为5。编写一个程序，功能如下：在文本框Text1中输入数字字符串，单击“计算”按钮Command1，在标签Label3中显示最长连续递增序列的长度。程序设计界面与运行界面如图所示。

（1）要使程序运行时，按钮Command1上的文字显示为“计算”，可在___________事件过程中添加语句Command1. Caption="计算"。
（单选，填字母：

A．Command1_Click /

B．Form_Load /

C．Command1_DblCkick）。

（2）实现上述功能的VB程序如下，请在划线处填入合适代码。
PrivateSubCommand1_Click()
Dim s As String，max As Integer
Dim t As Integer，I As Integer
max=0：t=1
s=Text1. Text
i=1
Do While i <= Len(s)-1

If Val(Mid(s，i，1)) < ___________Then

t=t+1

Else

If t > max Then max = t
______________
End If
i=i+1

Loop

 
If t > max Then max = t

Label3. Caption = Str(max)

End Sub
（3）如果删除加框处代码，并运行程序，在文本框Text1中输入“123423416789”，单击“计算”按钮，则标签框Label3中显示的内容为__________________。

对用户输入的字符串进行解密的VB程序段如下：
s = Text1.Text
For i = 1 To Len(s)
ch = Mid(s, i, 1)
nk = Asc(ch) - i
If nk < 0 Then nk = nk + 127
Text2.Text = Text2.Text + Chr(nk)
已知大写字母A的ASCII码值为65，小写字母a的ASCII码值为97，在文本框Text1中输入内容“yhT5”，执行程序段后，文本框Text2显示的内容为（   ）

A．YHt5

B．xgS4

C．zjW9

D．xfQ1