下列Visual Basic程序的功能是输入身高（l/cm）和体重(k/kg)来测试你的身材是否符合标准。
Private Sub Command1_Click()
Dim l, k, BMI As Single
l =" Val(Text2.Text)" / 100
k =" Val(Text3.Text)" '
BMI =" k" / (l * l)
If BMI < 18.5 Then
Text1.Text = "太瘦了"
ElseIf BMI >=" 25" Then
Text1.Text = "偏胖"
Else
Text1.Text = "非常标准"
End If
End Sub
运行程序后在Text2中输入180，Text3中输入90，那么在Text1中输出的是（   ）

A．太瘦了

B．偏胖

C．非常标准

D．超出范围

（加试）数组a存放n个学生的学号及成绩，a（2*i-1）存放第i个学生的学号，a（2*i）存放第i个学生的成绩，且成绩按降序排列（i=1,2,……n）。下列VB程序功能为:文本框Text1中输入成绩key，查找该成绩对应学生的学号，在文本框Tex2中显示。
Key = Val（Text1. Text）
i=1:j=( ① )
flag =False
Do While I <=j And Not flag
m=(i+j)\2
If key =a（2*m）Then
Flag = True
Elseif  ( ②  )  Then
j=m-1
Else
i=m+1
End If
Loop
If flag Then Text2.Text=Str（ ③ ） Else Text2.Text=“未找到！”
上述程序段3各方框处的代码分别为

A．（1）2*n （2）key>a(2*m) （3）a(2*m+1）

B．（1）2*n  （2）key<a(2*m)  （3）a(2*m+1)

C．（1）n   （2）key>a（2*m） （3）a(2*m-1)

D．（1）n  （2）key <a(2*m)    （3） a(2*m-1)

（加试题） 数组 a 中依次存放 6 个有序数据“ 23 33 44 55 66 77”。
Dim a(1 To 10) As Integer
Dim s As String, n, key As Integer
a(1) = 23: a(2) = 33: a(3) = 44: a(4) = 55: a(5) = 66: a(6) = 77
i = 1: j = 6: c = 0: key = 35
Do While i <= j
c = c + 1
m = (i + j) \ 2
If (j - i + 1) Mod 2 = 0 Then m = m + 1
If a(m) = key Then Exit Do
If key < a(m) Then j = m - 1 Else i = m + 1
Loop
该程序段运行后，下列各变量的值不正确的是：

A．i=3

B．j=2

C．c=3

D．m=2

某查找算法的VB程序段如下：
i=1:j=7:n=0
Key=Val (Text l. Text)
Do While i <=j

n=n+1

m=Int ((i+j)/2)

If Key=d(m) Then Exit Do

If Key <d(m) Then j= m-1 Else i =m+ l

Loop
数组元素d(1)到d(7)存放的数值依次为6，45，23，36，78，58，12，若该程序段运行结束后，n的值为2，则Key的值是（   ）

A．58

B．6或12

C．45或58

D．23或78

7位学生的身高(单位:cm)从高到低依次为:178,177,175,172,170,165,162｡用对分查找法找到178 的过程中,依次被访问到的数据是(  )

A．178

B．172,175,178

C．172,177,178

D．172,175,177,178