某算法的流程图如图所示：

执行该算法后，“a←a＋1”共被执行的次数是(  )

A．0	B．1
C．4	D．5

有如下 VB 程序段：
Private Sub Command1_Click()
Dim i As Integer,s As string
s = ""
For i = 1 To 3 Step 2
s = str(f(i)) + s
Next i
Text1. Text = s
End Sub
Function f(n As Integer) As Integer
If n = 1 Then
f = 2
Else
f = f(n - 1) + n
End If
End Function
则执行该程序段后，s 的值为（   ）

A．247

B．27

C．72

D．742

有如下VB程序段
m=a(1)
For t=2  to  15  step 2
If  a(t) > m  then  m=a(t)
Next t
该程序段执行后，变量t的值是（   ）

A．14

B．15

C．16

D．17

有两个以字母结尾的字符串s 1和s 2，在忽略字符串中空格的前提下判断它们是否相同。实现该功能的VB程序段如下：




Else

End If
Loop
.“相同”.“不相同”方框中的代码由以下三部分组成：
①
②
③＜＞" " ＜＞" " Then Exit Do 'Exit Do表示退出循环代码顺序正确的是（   ）

A．①②③

B．②①③

C．②③①

D．③②①

学校要进行元旦文艺汇演了，学生会让薛明来担任总记分员，任务就是根据各个评委所打分数，去掉一个最高分和一个最低分，然后计算平均分。薛明很快编写了这个程序，该程序的界面如右图所示：
程序运行时，每输入一个分数单击“确定”按钮（Command1），就将该分数记入总分，同时在下面显示到目前为止已输入的所有分数。当所有的分数输入完毕后，单击“统计->”按钮（Command2），程序就会在右边显示总分和最后的平均分。请回答下面的问题：

（1）写出上述图形中所标识的③对象所属的类？如④所属的类为“文本框”。
_____________
（2）以下是薛明编写的统计程序，请完善程序。
Dim total As Integer, ans As Single, x As Integer, max As Integer
Dim min As Integer, s As Integer
Private Sub Command1_Click()
x = Val(Text1.Text)
total = total + x
s =" s" + 1
If_________Then max = x
If x < min Then min = x
List1.AddItem x
End Sub
Private Sub Command2_Click()
Label4.Caption = Str(total)
ans =_________
ans = ans / (s - 2)
Label6.Caption =_____________
End Sub
Private Sub Form_Load()
total = 0
s = 0
min = 10000
max = 0
End Sub