有如下VB程序段：
Dim i As Integer, c As String, s As String, t As String
s ＝ "2012 Hero"： t ＝ ""
For i ＝ 1 To Len(s)
c＝ Mid(s, i, 1)
If c >＝ "a" And c <＝ "z" Then t ＝ t ＋ c
Next i
Text1.Text ＝ t
该程序段运行后，文本框Text1中显示的内容是（）

A．2012

B．Hero

C．ero

D．2012 H

某算法流程图如第5题图所示，最后输出s的值是（    ）

A．0.25

B．1

C．2

D．8

DO 循环中当型循环的关键字是（______），直到型循环的关键字是（_________）

小明最近学习了一种新的排序方法，其基本思想是：经过i-1遍加工后，a(1)到a(i-1)已经有序，第i遍加工时将a(i)插入到位置1到位置i之间的适当位置p（包含位置1和位置i），原来位置p及p后的元素一一向右移动一个位置（若插入在位置i，则不需要移动其他元素），使得a(1)到a(i)依然有序，依此重复下去，直到n个数全部排序完成，VB程序段如下：
For i=2 To n
k=a(i):j=j-1
Do While k<a(i)
a(j+1)=a(j)
j=j-1
If j=0 Then Exit Do
Loop

Next i
要实现上述排序算法，方框内VB语句应为（   ）

A．a(j)=k

B．a(j+1)=k

C．a(i)=k

D．a(j-1)=k

若已知当前的人均GDP水平和GDP年增长率，可以计算达到某个GDP水平所需年份。在文本框Text1、Text2、Text3中分别输入人均GDP、年增长率和达到的GDP水平，单击计算按钮Command1，在文本框Text4中输出所需年数。程序运行界面如下：

(1)在设计程序界面时，使应使用图b所示“控件工具箱”中的________(填写相应编号)添加“计算”按钮。
(2)实现上述功能的VB程序如下，请在划线处填入合适的代码。
Private Sub Command1_Click()
Dim gdp As Single，ddgdp As Single，zc As Single，y As Integer
gdp＝Val(Text1.Text)
zc＝Val(Text2.Text)
ddgdp＝Val(Text3.Text)
y＝0
Do While ____①____
　　  ____②____
gdp＝gdp*(1＋zc)
Loop
Text4.Text＝Str(y)
End Sub
划线处代码为①____________________________________________________
②________________________________________________________________