有如下VB 程序段:
m = Val(Text1.Text)
Do While m <> 0
x = m Mod 8
m = m \ 8
a(x) = a(x) + 1
If a(x) = 1 Then n = n + 1
Loop
数组a 各元素的初始值都为0,在文本框Text1中输入“529”,执行程序后,变量n的值为（）

A．1

B．2

C．3

D．4

(二进制转十六进制)从文本框 TextB 输入一串不带符号位的二进制整数，单击“转换”按钮，将二进制转换为十六进制并显示在文本框 TextH 中。程序界面如图所示：

转换方法：先从右往左将二进制数分割成 4 位一组，若最左边的一组不足4位，则用 0 将高位补足，然后将每 4 位二进制数转换为 1 位十六进制数。
（1）观察程序代码，可知“转换”按钮的对象名为____________。（单选，填字母：

A．TextB/ B.TextH/

B．Command1/

C．Convert/

D．转换）

（2）为实现上述功能，请在划线处填入合适的代码。
Private Sub Convert_Click()
Dim a(1 To 100) As Integer, temp As Integer
Dim s As String, res As String, n As Integer, r As Integer
res = ""
s=TextB.text
n = Len(s)
For i = 1 To n
a(i) = Val(Mid(s, i, 1))
Next i
t = n \ 4
r =   ①    
temp = 0
For i = 1 To r '将最高的 r 位转换为十六进制
 ②     
Next i
If temp > 9 Then
res = Chr(temp + 55)
ElseIf temp > 0 Then
res = CStr(temp) ‘Cstr()函数用于将数值转换为字符串，同时删除前导空格
End If
For i = 1 To t '将t组4位二进制转换为十六进制
Temp=0
For j=1 to 4
temp = temp+a(j+r+4*(i-1))*2^(4-j)
Next j
If temp > 9 Then
res = res + Chr(temp + 55)
Else
res = res + CStr(temp)
End If
Next i
TextH.Text = res
End Sub
第①处代码为______________________________________________ 
第②处代码为______________________________________________    
（3）若在文本框 TextB 中输入“101000111”，则单击”转换”按钮后的输出结果为:_________。

如果要改变窗体的标题，需要设置窗体对象的属性（  ）

A．Name

B．Caption

C．BackColor

D．BorderStyle

下列关于“控件”属性的说法正确的是( )

A．单击窗体中的某控件，在属性窗口中的属性列表框中找到所要设置的属性，即可设置其属性值。

B．所有对象都具有同样的属性

C．控件的属性只能在设计时设置，不能在运行时修改

D．控件的每一个属性都具有同样的默认值

（1）所谓算法是 。
（2）VB界面设计一般包括     、     、     。
（3）描述算法的方法有3种，分别是     、     、     。
（4）VB是一种 程序设计语言。
（5）abs（－3.8）＝        sqr（49）＝        int（－7.8）＝    
（6）int（10*Rnd）表示