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

A．该流程执行后，变量k的值是-1

B．该流程执行后，变量a的值是16

C．该流程用于计算并输出1+8-16的值

D．该流程完整执行1次，“a<32?”共执行了3次

编写“二进制数转换为十六进制数”程序，实现如下功能：在文本框 Text1 输入一个二进制数，单击“转换”按钮 Command1，将二进制数转换为十六进制数并在文本框 Text2 中显示。程序运行界面如下图所示。

（1）设计如图所示的程序界面，至少要使用_____个类（填数字）。
（2）实现上述功能的 VB 程序如下，请在划线处填入合适的代码。
Private Sub Command1_Click()
Dim s1 As String, s2 As String
Dim i As Integer, x As Integer
Const code="0123456789ABCDEF"
s1=Text1.Text
s2=""
Do While Len(s1) Mod 4<>0 
s1="0"+s1
Loop
x=0
i=1
Do While i<=Len(s1)
x=x*2+Val(Mid(s1,i,1))  
i=i+1  
If ____________    Then ‘(1)
s2=s2+Mid(code,x+1,1)
______________  ‘(2)
End If
Loop
Text2.Text=s2
End Sub
（3）若文本框 Text1 中输入的内容为“101101” ，单击“转换”按钮后，文本框 Text2 中显示的内容是_______。

有一个单击按纽过程，其作用是产生50个60～100的随机数，统计其中被6整除余2的个数，并将这些数输出。请补充下面的程序：

Private Sub command1_click(   )

Dim X, N As Integer
Dim count As Integer   ' count用来保存能被6整除余2的数据的个数
Randomize Timer   ' 随机数初始化，以时钟为随机数种子

For N = 1 To 50

X = ___________ + int(Rnd * 40) ' 随机产生50个60～100的随机数

If  X Mod 6 = 2 Then

List1.AddItem Str(X)

_______________

End If

Next N

Label1.Caption = str (count)

End Sub

在VB中，下列程序段执行后，变量a,b,c的值分别是（  ）
a=1:b=1:c=1
do while a+b+c<=10
a=a+1
b=b*2
c=b/2
loop

A．2,2,1

B．3,4,2

C．4,8,4

D．4,4,2

分析解决问题。
有一张单据，编号为四位数，号码为：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”，一共重复执行了_________次。