在一次学校的运动会上,高一女子100米决赛的成绩已出来，前8名的成绩记录单由于不小心丢掉一张,只剩下7 个成绩,并已按成绩排序，分别是(单位:秒)14.5，15.1，16.5，16.8，17.1，17.5，17.9，后来找到了,请将找到的成绩插入相应的位置,使数据序列仍保持有序,并求出该成绩的名次。根据已有程序段,请补齐流程图中的空格。

程序如下：
Dim a(1 To 8) As Integer
Dim n, i, j, x As Integer
Private Sub Command1_Click()
x = Val(Text2．Text)
If x > a(n) Then
i=n+1
else
i = 1
Do While x > a(i)
i =" i" + 1
Loop
End If
Text3．text=str(i)‘在文本框text3 显示名次
End Sub
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii =" 13" Then
n =" n" + 1
a(n) = Val(Text1．Text)
List1．AddItem Str(a(n))
Text1．Text = "": Text1．SetFocus ‘准备在text1 接受下一个数据
End If
End Sub

某算法的部分流程图如图所示，执行该流程，以下说法正确的是（   ）

A．8

B．16

C．32

D．64

（加试题）由英文字母构成的字符串数据压缩方法描述如下：
1）原始数据中，字母相邻无重复，压缩数据用该字母表示
2）原始数据中，字母相邻重复，压缩数据用1个整数和该字母表示

原始数据	压缩数据
BBFFF	2B3F
ABBCCCCCD	A2B5CD

 
小明编写了一个解压缩VB程序，功能如下：程序运行时，在文本框Text1中输入压缩数据，点击按钮Command1，在文本框Text2中显示解压缩后的数据。程序运行如图所示

（1）如果压缩数据为”AB168D9A”，解压缩后数据的个数是___________ 。 
（2）实现上述功能的VB程序如下。请在划线处填入合适代码。
Function zm(c As String) As Boolean  
If c >= "0" And c <= "9" Then zm = False  Else  zm = True
End Function
Private Sub Command1_Click()
Dim s1 As String, s2 As String, fd As String, k As Integer
Dim count As Integer, i As Integer, j As Integer, length As Integer
s1 = Text1.Text: s2 = "": length = Len(s1)
i = 1
Do While i <= length
fd = Mid(s1, i, 1)
If zm(fd) Then
s2 = s2 + fd
i = i + 1
Else
j = i + 1
fd = Mid(s1, j, 1)
Do While Not zm(fd)
j = j + 1
fd = Mid(s1, j, 1)
Loop
count = ①______     
fd = Mid(s1, j, 1)
For k = 1 To count
s2 = s2 + fd
Next k
②_______  
End If
Loop
Text2.Text = s2
End Sub

（加试题）有如下VB程序段：
flag = True : i = 1
Do While i <= 6
x = Int(Rnd * 100) + 1 
If flag Or x >50 Then
a(i)=x
flag = Not flag
i = i + 1
End if
Loop
执行该程序段后，在下列选项中，a（1）～a（6）各元素值不可能的是（   ）

A．52，95，46，74，77，83	B．50，55，46，70，21，97
C．62，78，57，61，69，50	D．31，54，48，72，50，82

有如下部分程序段：
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