有如下程序段：
Dim i As Integer, ans As Integer
Dim a(1 To 10) As Integer
ans = 0
For i =" 1" To 10
a(i) =" i" ^2
If a(i) Mod 3 =" 0" Then ans =" ans" + a(i)
Next i
Text1.Text = Str(ans)
该程序段运行后，文本框Text1中显示的内容是（    ）

A．55

B．126

C．259

D．385

问题：在“1390773”号段的 11 位手机号码中，统计出最后两位数字相同的号码个数。如 13907735200、13907738366 是符合条件的两个号码。
算法描述如下图所示。请将程序补充完整。

Private Sub Form_Click() 
Dim a As Integer, b As Integer
Dim i As Integer, s As Integer

s=0

For i=10000 To 19999

a=①_____

b=(i Mod 100)\10

    If a=b Then
s=②____
End If
Next i

Print "最后两位数字相同的号码个数有：" ;③_____ 

End Sub

某排序算法，VB代码如下：
i=1
Do While i<=5
If i = 0 or a(i – 1)<= a(i) Then
i=i+1
Else
t=a(i):a(i)=a(i-1):a(i-1)=t
i=i-1
End If
Loop
数组元素a(0)到a(5)依次为：“0，41，22，53，99，36”，经过该程序段处理后，数组元素a(3)的值为（   ）

A．36

B．53

C．41

D．22

某地区公共自行车收费信息如下：“60分钟内免费；60分钟以上至120分钟（含），收费1元；120分钟以上至180分钟（含），收费2元；租用超过180分钟（含）以上的时间，按每小时3元计费（不足一小时的按一小时计）”。现按要求编写VB程序，界面如图图所示，程序功能如下：在文本框Text1中输入租车时间，单击“计费”按钮Command1，在标签Label5中输出对应的租车费用。
(1)在应用程序界面设计时，为添加“计费”按钮，应使用第2图所示的“控件工具箱”中的___（请填写相应编号），并在3图所示的“属性窗口”中，将____属性值设置为“计费”。

1图     2图 3图
(2)请根据题意将下列程序补充完整。
Private Sub Command1_Click()
Dim zysj As Single, zyfy As Single   ‘zysj:租用时间，zyfy:租用费用
zysj = Val(Text1.Text)
If zysj <= 60 Then
zyfy = 0
ElseIf zysj <= 120 Then
zyfy = 1
ElseIf zysj <= 180 Then
_____________________
ElseIf zysj Mod 60 = 0 Then
zyfy = (zysj - 180) / 60 * 3 + 3
Else
zyfy = (Int((zysj - 180) / 60) + 1) * 3 + 3
End If
Label5.Caption = Str(zyfy)
End Sub

   数字频率统计：小王编写 VB 程序，实现如下功能：在文本框中输入一串任意字符串（含数字），单击“统计”按钮 Command1，在列表框 List1 中统计并输出数字 0~9 出现的次数。运行界面如图所示，VB 程序代码如下。

 

（1）根据代码可知，文本框对象的名称为________________________。
（2）为实现上述功能，请在划线处填入合适的代码。
Private Sub Command1_Click()
Dim a(0 To 9) As Integer, s As String Dim k As String, i As Integer
s = Tabc.Text
List1.Clear
For i = 1 To Len(s)
_____①
If k >= "0" And k <= "9" Then
_____②
S=k+s
End If
Next i
For i = 0 To 9
List1.AddItem Str(i) & "出现了:" & a(i) & "次"
Next i
End Sub
（3）如果输入的是“hello 8102!” ,执行完以上程序后，变量S的值为________