如下图所示的流程图：

该算法完成的功能是（    ）

A．计算y=1＋2＋3＋4＋5	B．计算y=1×2×3×4×5
C．计算y=1＋2＋3＋4	D．计算y=1＋3＋5＋7

个位数字是6，且能被3整除的3位数共有多少个？下面程序用于解决这一问题，在划线处填入合适的语句或表达式，设共有n个这样的数，Visual Basic程序如下：

Sub Command1_Click(   )

Dim i As Integer, n As Integer

m = 106

n = ____________

Do While m <= 996

If _____________ Then n = n + 1

m = _____________    

Loop

Text1.Text = Str(n)

End Sub

输入20个数，按从大到小的顺序打印。
PRIVATE   SUB   FORM----CLICK（   ）
DIM  I  AS  INTEGER ，A（20）  AS  SINGLE
Dim  J  AS  INTEGER
FOR  I= 1  TO 20
A（I）= VAL（INPUTBOX（“请输入数”））
NEXT  I
FOR   I=  1  TO  19
FOR  J= _______________ TO  20
IF  _____________________
_____________________
A（I）=A（J）
A（J）=T
END   IF
NEXT  J
PRINT   A（I）；
____________________________
PRINT   A（I）
END   SUB

（加试题）某VB程序段如下：
s = ""
For i = 1 To 5
a(i) = 0
Next i
For i = 2 To 5
For j = i To 5
If j Mod i = 0 Then a(j) = 1 - a(j)
Next j
Next i
For i = 1 To 5
If a(i) = 1 Then s = s + Str(i)
Next i
Text1.Text = s
运行该程序段后，Text1中显示的内容为

A．2 3 5

B．1 4

C．2 5

D．2 3 4

有如下 VB 程序段：
For i = 1 To 2
For j = 1 To 6 – i
If a(j) - a(j + 1) > 0 Then

t = a(j): a(j) = a(j + 1): a(j + 1) = t End If

Next j
Next i
Text1.Text = ""
For i = 1 To 6
Text1.Text = Str(a(i)) + Text1.Text
Next i
数组元素 a(1)到 a(6)的初值依次为 15，11，58，38，26，9，执行该程序段，文本框 Text1 显示的内容是（   ）

A．9 58 11 38 15 26	B．11 15 26 9 38 58
C．58 38 9 26 15 11	D．58 9 38 11 26 15