有如下VB程序段：
n = 0
For i = 1 To Len(Text1.Text)
c = Mid(Text1.Text, i, 1)
If c >= "0" And c <= "9" Then m = 1 Else m = 2
a(m) = a(m) + 1
If a(m) = 1 Then n = n + 1
Next i
数组a各元素的初始值都为0,文本框Textl的内容为“Happy2017”。执行程序后，变量n的值为（　　）

A．1

B．2

C．4

D．9

某对分查找算法的VB程序段如下：
i=1:j=6:n=0:f=False
key=Val(Text1.Text)
Do While i<=j and Not f
n=n+1
m=Fix((i+j)/2)
If key=a(m)then f=True
If key<a(m)then j=m-1 Else i=m+1
Loop
数组元素a(1)到a(6)的值依次为“12，19，27，31，46，55”，文本框Text 1中输入“31”后运行该程序，则以上程序段运行结束后，下列说法不正确的是（   ）

A．变量i的值为4

B．变量j的值为4

C．变量m的值为4

D．变量n的值为3

下列VB程序运行时，在文本框Text1中输入2，单击命令按钮Command1后，文本框Text2的内容是________。
Private Sub Command1_Click()
Dim t As Single, h1 As Single, h2 As Single
Const g = 9.8
t = Val(Text1.Text)
h1 = (g * t ^ 2) / 2
h2 = Int(h1)
Text2.Text = Str(h2)
End Sub

（加试题）十进制a转换为b进制（2~16）的vb程序如下
Function tran(a as integer, b as integer) as string
Dim strd as string, n as integer
Do while a<>0
n=a mod b
a=a\b
If n>9 then
strd= &strd
Else
strd=str(n)&strd
Endif
Loop
Tran=strd
End function
Private sub command1_click()
m=val(text1.text)
n=val(text2.text)
Label1.caption=tran(a,b)
End sub
下列说法不正确的是

A．划线处的代码可以为：chr(55+n)

B．划线处的代码可以为：mid(“ABCDEF”,n-9,1)

C．若在划线处填上正确的代码之后，运行程序，在text1内输入123，text2内输入10，label1显示的结果为123

D．若需要转换为十七进制，划线处的代码可以使用mid(“ABCDEF”,n-9,1)

有7个人坐在一起，问第七个人多少岁？他说是第6个人年龄2倍小4岁 。问第6个人岁数，他说是第5个人年龄也是2倍小4岁。问第5个人，还说是第4个人年龄2倍小4岁。问第4个人，又说是第3个人年龄2倍小4岁，以此类推。最后问第一个人，他说是5岁。请问第7个人多大？以下是小王同学编写的解决该问题的VB，请把程序补充完整。

Private Sub Command1_Click()
Dim i, year As Integer
Dim a(1 To 8) As Integer
a(1) = 5
For i =  To 7

List1.AddItem"第"+ Str(i)+"个人的年龄为"+Str(a(i))
Next i
End Sub