流程图是实现输出1－100之间所有能被 7整除的整数。若再要统计其个数，则要设置一个计数器c, c = 0,如图所示，则计数器c=c+1应置于编号     处。

有如下VB程序:
Dim i As Integer, j As Integer, k As string, n As Integer
n = 3
List1.Clear
For i="1" To n
k =″″
For j="1" To i
k = k+″*″
Next j
List1.AddItem k
Next i
该程序运行后, 在列表框List中显示的是(    )

A．	B．
C．	D．

星期天，小杰来到动物园游玩，园内共有 N 个景点，每个景点都有一个标号，标号为 1 至 N｡现在只知道每个景点均有一条路连接下一个景点｡小杰想知道，根据这些道路信息，从其中一个景点出发，最后再回到出发景点，最多能游玩多少个景点｡
例如，共有 N=5 个景点，每个景点连接的下一个景点分别是2，4，5，5，2，

景点号	1	2	3	4	5
下一景点号	2	4	5	5	2

 
则他可以从 2 号景点出发，最多可以游玩 2号､4号､5号三个景点｡

程序代码如下：
Private Sub Command1_Click()
Dim a(1 To 100) As Integer , d(1 To 100) As Integer '数组 a 存放下一景点号
Dim jd As String, m As String,c As Integer,I As Integer
Dim s As Integer, p As Integer,k As Integer,ans As Integer
jd=Text1. Text+,
s=0 : c=0
For i=1 To Len(jd)
m=Mid(jd,i,1)
If m<>, Then
s=s∗10+Val(m)
Else
c=c+1 :a(c)=s : s=0    '含义
End If
Next i
ans=0:k=0
For i=1 To c    '枚举游览起点
For k=1 To c
d(k)=0
Next k
If d(i)=0 Then
p=i
Do While p<=c
If d(p)=0 Then
k=k+1 :d(p)=k
Else
y=    ①  '填空
If y>ans Then ans=y
k=0
Exit Do
End If
'改错
Loop
End If
Next i
Text2. Text=Str(ans)
End Sub
（1）若要实现显示“景点连接情况：”的 Text1 在程序运行时默认为空，则需要将 Text1 的_________________属性设置为空｡
（2）若有 7 个景点，且每个景点的连接情况为 6，3，7，2，7，5，4，那么小杰最多可以游玩的景点数是_________________｡
（3）程序代码中，有下划线的语句“a（c）= s”代表的含义为___________________________｡
（4）程序代码中，在①处填空：y=_____________________｡
（5）程序代码中，加框处代码有错，请改正：__________________________________｡

某地区公共自行车收费信息如下：“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

三个正整数a、b、c满足等式a²+b²=c²，a、b、c称为“勾股数”，求出100以内所有“勾股数
可采用的算法是（    ）

A．枚举算法

B．解析算法

C．冒泡排序

D．顺序查找