数组a的初始值如表所示，以下流程图描述的算法执行结果是(    )

d1	d2	d3	d4	d5	d6	d7	d8
-10	0	1	3	4	6	9	10

 

A．10

B．-10

C．1

D．0

如下图所示的流程图：

该算法完成的功能是（    ）

A．计算y=1＋2＋3＋4＋5	B．计算y=1×2×3×4×5
C．计算y=1＋2＋3＋4	D．计算y=1＋3＋5＋7

有如下VB程序段：
s= Text1.Text
For i=1 To Len(s)
c= Mid(s，i，1)
If c>=“0”And c<=“9”Then

m=m+1

Else lf c>=“a”And c<=“z” Then

n=n+1

Else

t=t+1

End If
Next i
Label1.Caption = Str(t)
在文本框Text1输入“as674ER29，86Gu”(不包括双引号)，执行程序后，标签Labell显示：（  ）

A．4

B．6

C．7

D．8

某对分查找算法的 VB 程序段如下：
i=1:j=8:s=""
key=Text1.Text
Do While i<=j
m=(i+j)\2
If key=a(m) Then
s=s+"M"
Exit Do
Elseif Key >a(m) Then
　　j=m-1:s=s+"L"
Else
i=m+1: s=s+"R" End if
Loop Text1.Text=s
数组元素 a(1)到 a(8)的值依次为“tiger,snake,sheep,rabbit,pig,mouse,monkey,dog”,若该程序段执行后，文本框 Text1 中显示的内容不可能是（）

A．RLM

B．LR

C．RM

D．LM

某通信部门规定：拨打市话时，如果通话时间不超过3分钟（含3分钟），则收取通话费0.22元；如果通话时间超过3分钟，则超过部分以每分钟0.11元收取通话费（计费时只计算整数分钟）。下面是根据给出的通话整数分钟计算话费的流程图和程序。
程序段：
Private Sub Command1_Click()
Dim xas integer，y as single
x = Val(Text1.Text)
If  x<=3  Then
y=0.22    
Else
y = ②
End If
Text2.text=str(y)
End Sub

请分析任务，完成如下问题。
（1）流程图中菱形表示 （选填A.数据处理/B.选择分支） 。流程图中①处应填写  。
（2）程序段中②处应填写的内容是 。
（3）在程序段中出现了Text1和Text2控件，它们同属于 类型的控件(选填A.文本框/B.列表框/

A．标签）。