【推荐1】有如下VB程序段：
flag=False:s="ShanShui2020！"
For i=1 To Len（s）
       ch=Mid（s，i，1）

If Not（ch〉="0"And ch<="9"）And Not flag Then

             t=ch+t
       End If
       flag=Not flag
Next i
Text1.Text=t
执行完以上程序段后，文本框text1中的内容为（          ）

A．!uSaS

B．SaSu!

C．!22uSaS

D．ShanShui!

【推荐2】For i= 1 To 6
            a(i)=i+1
       Next i
程序运行后，变量i的值是（     ）

A．7

B．6

C．1

D．0

【推荐3】有如下 VB 程序段：
Dim a(1 To 100) As Integer
Dim b(1 To 100) As Integer
Dim c As Integer
a(1) = 0: a(2) = 2: b(1) = 1: b(2) = 2: c = 0
For i = 2 To 6

a(i + 1) = 2 * a(i) - a(i - 1)

b(i + 1) = b(i) ^ 2 / b(i - 1)

c = c + a(i + 1) + b(i + 1)

Next i
Label1.Caption = Str(c)
该程序运行后，Label1 中显示的内容是（ ）

A．46

B．88

C．164

D．76