（加试题）有如下VB程序段：
k = Val(Text1．Text)
left1 = 1: right1 = 10
Do While (left1 <= right1)
mid1 = (left1 + right1) \ 2
If a(mid1) <=k Then
left1 = mid1 + 1
Else
right1 = mid1-1
End If
Loop
Text2．text=str(right1)
已知数组a(1)到a(10)的原始数据为1,4,5,5,5,5,8,9,9,10．程序运行时，在文本框text1中输入5，文本框text2显示的内容是（）

A．5

B．10

C．3

D．6

某算法的部分流程图如图所示。执行这部分流程，输入g的值为100，则输出结果m为（ ）

A．100

B．5050

C．4950

D．99

以下流程图的运行结果为______

A．2 4 6 8 10 12

B．2 4 8 16 32

C．2 4 8 16

D．2 4 8 16 32 64

有如下 Visual Basic 程序段：
s = 0
For k = To 5 s = s + k
Next k
该程序段运行后，循环体 s = s + k 被执行 10 次，则循环变量 k 的初值是（   ）

A．14

B．-5

C．1

D．-4

以下程序段是一个完整的Visual Basic的Do语句，则划线处的语句应该是（   ）。
Do While a<=5
s=s+a : a=a+1
________________

A．End If

B．End Sub

C．Next a

D．Loop