（加试题）有如下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

一个摸球游戏的流程图如图所示(红球总数和绿球总数均大于0)。游戏结束时，S位所代表的是（ ）

A．摸到的绿球数

B．摸到的红球数

C．未摸到的绿球数

D．未摸到的红球数

某算法的部分流程图如下图所示。执行这部分流程，则输出 s 的值是（   ）

A．2

B．6

C．5

D．4

某算法的部分流程图如图所示,输出值s为

A．4

B．9

C．16

D．25

（加试题）下列程序执行后文本框Text1 显示的内容是（）
s = "ERROR:Divisor must not be zero!"
flag = False: m = 0
For i = 1 To Len(s)

ch = Mid(s, i, 1)

If ch >= "a" And ch <= "z" Then

If Not flag Then

m = m + 1

flag = True

End If

Else

flag = False

End If

Next i
Text1.Text=Str(m)

A．4

B．5

C．6

D．19