【推荐1】以下程序用于求解最后出列的人的序号。游戏规则如下：有10个人围成一圈，从第一个开始报数，数到M的人将被淘汰，从圈内下一个人从1开始重新报数。
Dim a(1 To 10)As Boolean                                 'a(i)表示编号为i的人是否已经出列
m = Val(Text1 Text)
cnt = 0:i = 0:ans =0
Do While    (1)                                  '当所有人都出列时停止

i = i+1                                                    '枚举圈内所有人

If (2) Then i = 1

If not a(i) Then k = k+ 1

If k=m Then                                               '数到m的人出列

(3)

cnt = cnt +1

k=0

if cnt = 10 then ans = i

End If

Loop
Text2. text ="最后出列的人是:"+ str (ans)
填空处的代码可由以下部分组成：（       ）
①i<10            ②i=11          ③a(i)=true
④cnt<10        ⑤i=10          ⑥a(i)=false

A．①②③

B．①⑤⑥

C．④②③

D．④⑤⑥

【推荐2】有如下程序段：
Dim i As Integer, ans As Integer
Dim a(1 To 10) As Integer
ans = 0
For i = 1 To 10
a(i) =i^2
If a(i) Mod 3 =0 Then ans =ans+ a(i)
Next i
Text1.Text = Str(ans)
该程序段运行后，文本框Text1中显示的内容是（ ）

A．55

B．126

C．259

D．385

【推荐3】某算法流程图如图所示，该流程图完整执行一次后，下说法错误的是（        ）。

A．变量 i 的值为 30

B．语句“i<30”共执行了 30 次

C．语句“s←s+i”共执行了 10 次

D．变量 s 的值为[0， 30)区间内能被 3 整除的数之和