编写“二进制数转换为十六进制数”程序，实现如下功能：在文本框 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 中显示的内容是_______。

有如下一段VB程序。
Private Sub Command1_Click()
Dim y As Long
Text1.Text = ""
y = f(3)
Label1.Caption = Str(y)
End Sub
Function f(n As Integer) As Long
Text1.Text =" Text1.Text" + Str(n)
If n <=" 1" Then
f = 1
Else
f =" f(n" - 1) + 2
End If
End Function
程序运行时，单击命令按钮Command1后，文本框Text1中显示的内容是（   ）

A．1

B．3

C．123

D．321

有如下程序：
Private Sub Command l_Click
Dim s As String， c As String， n As Integer
s=”Google Chrome”：n=0
For i=1 To Len(s)
c=Mid(s，i，l)
If c=”e” Then n=n+1
n=n－1
Next i
Text 1.Text=Str(Abs(n) )
End Sub
运行该程序，单击命令按钮Command 1后，文本框Text1中显示的内容是（）

A．－11

B．11

C．－9

D．9

某程序代码如下：
Dim a(1 To 13) As String
s = "where are you"：count= 0
For i = 1 To Len(s)

a(i) = Mid(s, i, 1)

Next i
For i = 1 To Len(s) - 1

k = i

For j = i + 1 To Len(s)

If a(k) < a(j) Then k = j

Next j

If i < > k Then

t = a(i): a(i) = a(k): a(k) = t

End If

Next i
For i = 1 To Len(s) - 1

If a(i) = a(i + 1) Then count = count + 1

Next i
程序运行结束后，变量count的值是

A．1

B．2

C．3

D．4

某客运公司为了合理地安排汽车运输，每年每月都会对汽车站的客运量进行统计，并保存到数据库。新的一年即将来临，客运公司准备制订明年的汽车排班计划。设计程序，从数据库中读取上一年的月客运量，并找出最大、最小月份，代码如下：
Dim a(1 To 12) As Integer
Private Sub Form_Load()
　’本过程从数据库中读取上一年月客流量，并存储在数组a中，代码略
End Sub
Private Sub Command1_Click()
Dim max As Integer, min As Integer
Dim yx As Integer, yn As Integer
max = a(1)
min = a(1)
yx = 1
yn = 12 ……………………①
For i = 2 To 12
　If a(i) >= max Then
　　max = a(i)
　　yx = i
　End If
　If  a(i) <a（1） Then ………………②
　　min = a(i)
　　yn = i
　End If
Next i
Label1.Caption =“客流量最大在第” + Str(yx) +“月，共” + Str(max) +“人，客流量最小在第” + Str(yn) +“月，共：” + Str(min) +“人”
End Sub
该程序①、②处有错误，请在画线处填写正确代码。
①_____________________②_____________________