有如下程序段：
For i =" 1" To 2
For j =" 2" To 7 - i
If a(j) > a(j - 1) Then
k =" a(j):" a(j) =" a(j" - 1): a(j - 1) = k
End If
Next j
Next i
数组元素a(1)到a(6)的值依次为“71，54，58，29，31，78”，经过该程序段“加工”后，下列说法正确的是（ ）

A．数组元素a(1)到a(6)的值依次为54，29，31，58，71，78

B．此过程中数据共需比较次数为8次

C．此过程中数据共需交换次数为5次

D．此过程中数据“54”共被比较5次

（加试题）某算法流程图如下图所示，该流程图对应的程序段为（ ）

A．s = 0 For i = 1 To 20 If i Mod 3 = 0 Then s = s + 2 * i Else i = i + 1 End If Next i

B．i = 1 For s = 0 To 20 If i Mod 3 = 0 Then s = s + 2 * i End If i = i + 1 Next i

C．i = 1: s = 0 Do While s <= 20 If i Mod 3 = 0 Then s = s + 2 * i Else i = i + 1 End If Loop

D．i = 1: s = 0

Do While s <= 20
If i Mod 3 = 0 Then
s = s + 2 * i
End If
i = i + 1
Loop

在算法执行过程中，关于“选择语句”，下列说法正确的是（   ）

A．顺序执行各语句

B．在预定的两个处理步骤中，按顺序各执行一次

C．根据不同的情况，在预定的两个处理步骤中，选择一个合适的处理步骤执行

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

完全数又称完美数或完备数，指它所有的真因子(即除了自身以外的约数)的和恰好等于它本身，例如6=1+2+3。完成下列程序，查找并输出1000以内的完全数。

程序中划线处应填入的语句是(1)____________ ___ (2)__________________
Private sub command1_click
Dim  n as integer
Dim  i as integer
Dim  s as integer
For n="2" to 1000
S=0
For i="1" to n\2
If ____(1)_____   then s=s+i
Next i
If s=n  then  list.AddItem  str(n)
__(2)______
End sub

在一次学校的运动会上,高一女子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