小秦用VB编写十进制数自动转换成二进制数的程序，运行界面如下图，运行代码如下：

Private Sub Command1_Click()
Dim a, i, n As Integer,s as string
n = Val(Text1.Text)
Do While n > 0
①
②
③
Loop
Text2.Text = s
End Sub
缺少部分的代码应填（    ）。

A．①a = n Mod 2    ②n = n \ 2 ③ s = Str(a) + s

B．①n = n \ 2 ②a = n Mod 2  ③ s = Str(a) + s

C．①a = n Mod 2    ②n = n \ 2 ③ s = s +Str(a)

D．①n = n \ 2 ②a = n Mod 2  ③  s = s +Str(a)

（加试题）单循环赛制是一种较为公平合理的比赛制度，比赛过程中所有参赛队伍均能相遇一次。其秩序编排可采用“逆时针轮转方法”：数字1~n依次作为队伍编号，把编号按U型走向分成均等两边(若n为奇数，则在末尾增加编号0，使总数为偶数)，即可得到第一轮的比赛顺序，例如,5个队伍的比赛编排情况如图a所示；第二轮开始，固定编号1，其余编号均按逆时针方向移动一个位置，即为该轮比赛顺序；以后各轮比赛顺序以此类推，与编号0对阵的表示本轮轮空。

第一轮 1-0 2-5 3-4

第二轮 1-5 0-4 2-3

第三轮 1-4 5-3 0-2

第四轮 1-3 4-2 5-0

第五轮 1-2 3-0 4-5

 
小赵为此编写了VB程序，功能如下：在文本框Text1中输入参赛队伍数N，单击“编排”按钮command1，在列表框list1中输出每轮比赛顺序。程序运行效果如图所示。

实现上述功能的VB代码如下，
Private Sub Command1_Click()
Dim team(1 To 20) As String
Dim n As Integer, c As Integer, result As String
Dim i As Integer, j As Integer, temp As String
n = __________
For i = 1 To n
team(i) = Str(i)
Next i
c = n + n Mod 2
If c <> n Then team(c) = Str(0)
For i = 1 To n
result = ""
For j = 1 To c \ 2
result = result & team(j) & "-" & __________ & ";"
Next j
List1.AddItem "第" & Str(i) & "轮：" & result
temp = team(c)
For j = c To 2 Step -1
team(j) = _________
Next j
team(2) = temp
Next i
End Sub

用VB编写的函数bubble_sort是一个用冒泡方法实现排序的函数，其调用时需要三个参数：布尔类型参数sx来确定是升序还是降序，sx为True时为升序，否则为降序；整数型数组a()是待排序的数据，数据从a(1)开始存放；整数型参数n表示传入的数组长度，该函数的返回值也是一个整数型数组。所以调用此函数实现排序非常方便：
比如有一个整数型数组a(1 to 10)需要降序排序，可以直接这样调用：
a()＝bubble_sort(False，a()，10)
该函数VB代码如下：
Function bubble_sort(sx As Boolean，a() As Integer，n As Integer) As Integer()
Dim i，j，t As Integer
For i＝1 To n－1
For j＝____①____ Step－1
If ____②____ Then
If a(j)＜a(j－1) Then t＝a(j)：a(j)＝a(j－1)：a(j－1)＝t
Else
If a(j)＞a(j－1) Then t＝a(j)：a(j)＝a(j－1)：a(j－1)＝t
End If
Next j
Next i
bubble_sort＝a()
End Function
请将代码补充完整：
①___________________________________________。
②___________________________________________。

某VB程序的部分代码如下：
a(1)=2
a(2)=3
For i=3 To 7
a(i)=a(i-1)*a(i-2)
If a(i)\10>0 Then
a(i+1)=a(i) Mod 10
a(i)=a(i)\10
i=i+1
End If
Next i
则执行该程序段后，数组元素a(8)的值为（ ）

A．2

B．4

C．6

D．8

分析解决问题。
有一张单据，编号为四位数，号码为：8□□0.中间两位被污浊看不出来。已知该单据能被23和37整除，请用编程求出该单据号码。
（算法设计）
设百位数字为x,十位数字为y；x和y的范围都是0到9。
4位数：8xy0=8*1000+x*100+y*10
列举（）（）里的两个数字的所有可能情况：
00,01,02,03,04,05,06,07,08,09
10,11,12,13,14,15,16,17,18,19
……
90,91,92,93,94,95,96,97,98,99
逐一判断找出符合条件的数字。
（参考代码）
Dim  x  as long
Dim  y  as long
Dim  n  as long
For x=0  to  9
For y=0  to  9
n=8*1000+x*100+y*10
If   then
Print n
End if
Next y
Next x
根据上述回答下列问题
（1）解决该问题采用的算法是：___________（填：解析法/穷举法/排序法/递归法）
（2）根据题意，程序中空白处应填写：______（填写字母：A/B/C/D）

A．n mod 23 =0 or n mod 37 =0

B．n\23=0 and n\37=0

C．n\23=0 or n\37=0

D．n mod 23 =0 and n mod 37 =0

（3）根据算法设计，参考程序中循环体中的语句“n=s*1000+x*100+y*10”，一共重复执行了_________次。