读下面VB程序段，
Dim j  As Integer, k  As Integer
List Clear
For k =" 1" To 100
j = Int(Sqr(k))
If j * j =" k" Then list1.AddItem Str(k)
Next k
分析程序功能，该程序的功能是（ ）

A．输出1到100以内的所有的质数

B．输出1到100以内的所有的奇数

C．输出1到100以内的所有的偶数

D．输出1到100以内所有的完全平方数

（加试题）用绳索围成回字迷宫图（左图所示），迷宫路宽是 1 米，如果绳索长为 X 米，则可以构成多少个边长为1米并且至少两边在绳索上的正方形。程序效果如右图所示。

Dim X As Integer, L As Integer, i As Integer
Dim n As Integer, a As Integer, b As Integer
X = Val(Text1.Text)
If X < 2 Then
　n = 0
ElseIf X >= 2 And X <= 4 Then
　n = 1
Else
　i = 1: L = 3
　Do While　   ①

i = i + 2

L = L + 4 * i

　Loop
　If L = X Then
　　n = i ^ 2
　Else
　　L = L - 4 * i
　　a =　    ②   
　　b = ((X - L) \ i) * (i - 1) - 1 + (X - L) Mod i
　　n = a + b
　End If
End If
　Label1.Caption = " 绳索长度为 " + Str(X) + " 米，可以构成 " + Str(n) + " 个边长为 1 米的正方形。"
（1）为实现该程序的功能，画线处的语句应填写为：
①________________________
②_________________________
（2）如果绳索长度 X 为 15 米，则可以构成相应的正方形个数为________。

在算法执行流程中，对于循环模式下列说法正确的是（  ）

A．对某个情况进行判断，当结果为真时执行步骤一，否则执行步骤二；

B．对某个情况进行判断，当结果为真时执行步骤一，然后再次判断这个情况，依次类推，直到条件为假时结束；

C．仅用循环模式就可以用来判断某个输入的数是不是整数；

D．循环模式中，可以嵌套选择模式，而选择模式不能嵌套循环模式；

某同学编写一个“查找子串出现位置”的程序。功能如下：在文本框Text1中输入字符串s1，在文本框Text2中输入字符串s2，点击按钮Command1后在标签Label3上显示查找的结果。运行界面所示。

（1）在设计程序界面时，要清空文本框中的显示内容，应修改该文本框中的 属性。
（2）实现上述功能的VB程序如下，请在划线处填入合适代码。

Private Sub Command1_Click()

Dim s1 As String, s2 As String

Dim i as integer , j as integer

s1 = Text1.Text

s2 = Text2.Text

For i = 1 To Len(s1) - Len(s2) + 1

    ①   

    Do While  Mid(s1, i + j, 1) = Mid(s2, j + 1, 1)  And  j < Len(s2)

j = j + 1

    Loop

    If j = Len(s2) Then Exit For

 Next i

   If  j=Len(s2)  Then

Label3.Caption = "找到，起始位置：" + ②  

    Else

Label3.Caption = "不存在该子串"

    End If

End Sub

（3）运行该程序，在文本框Text1中输入“10100101”，在Text2中输入“01”（两次输入均不包含引号），点击“查找子串位置”按钮后，在label3上显示   

实现某排序算法的部分VB程序如下：
For i＝1 To 5
k＝i
For j＝i＋1 To 6
If a(k)＜a(j) Then k＝j
Next j
If i＜＞k Then
t＝a(i)：a(i)＝a(k)：a(k)＝t
End If
Next i
在排序过程中，经过某一遍排序“加工”后，数组元素a(1)到a(6)的数据依次为“97，89，91，88，95，94”。则下一遍排序“加工”后数组元素a(1)到a(6)的数据依次是(  )

A．97，95，91，89，88，94	B．97，95，94，91，88，89
C．97，95，91，88，89，94	D．97，95，94，91，89，88