有如下部分程序段：
a(1) = "20": a(2) = "16": a(3) = "12": a(4) = "o": a(5) = "k"
For i =" 1" To 4
For j =" 5" To i + 1 Step -1
If a(j) >a(j - 1) Then t =" a(j):" a(j) =" a(j" - 1): a(j - 1) = t
Next j
List1.Additem a(i)
Next i
程序运行后列表框中显示的结果是

A．12，16，20，o，k	B．o，k，20，16
C．o，k，20，16，12	D．20，16，12

有如下VB程序段：

数组a各元素的初值为0，执行上述程序段后，文本框Text 1中输出的内容为

A．30

B．9

C．8

D．7

下列VB程序运行时，单击命令按钮Command1后，文本框Text1中显示的内容是：____________________ 。
Private Sub Command1 Click
Dim x As Integer, m As Integer
m = 3
For x = 1 To 5
If m > 3 Then m = m + 2 Else m = m - 1
Next x
Text1.Text = Str(m)
End Sub

（加试题）用绳索围成回字迷宫图（左图所示），迷宫路宽是 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 米，则可以构成相应的正方形个数为________。

有如下VB程序段：
a(1)=0:a(2)=1:a(3)=0:a(4)=1:a(5)=0
i=1
Do While i<= 2

n=Int(Rnd()*5+1)

If n > i Then

t=a(i): a(i)=a(n):a(n)=t
i=i+1

End if

Loop
执行程序段后,当前a(1)~a(5)各元素的值不可能是（   ）

A．1，0，1，0，0

B．1，0，0，1，0

C．0，0，1，0，1

D．0，0，1，1，0