如图所示，是求绝对值的算法，其描述方式分别是（   ）

A．自然语言、流程图

B．伪代码、流程图

C．自然语言、伪代码

D．流程图、自然语言

将两位同学的身高放入变量a和b中，比较这两个变量的大小，最后把其中较大的数放到变量c中并输出，流程图如图所示。①中应填（   ）

A．a<b

B．a>b

C．a=b

D．a<>b

若整型变量a的值为2，b的值为3，则下列程序段执行后整型变量c的值为（  ）。
if a>5 then
if b<4 then c="a-b" else c=b-a
else
if b>3 then c=a*b  else c="a" mod b
end if

A．2

B．-1

C．1

D．6

下列程序执行后，整型变量n的值为（    ）。
n=0
for i="1" to 100
if i mod 4="0" then
n=n+1
next i

A．5050

B．25

C．26

D．33

将以下计算s=+3+5+……+49的程序段补充完整。

对下列程序段的说法正确的是（   ）
Private sub Command1_Click()
Dim s, i As Integer
s=0
i=1
For i="1" to 4  step 2
s=s+i^2
Next i
Print "s=";S
End Sub

A．该程序段执行后s的值为10

B．该程序段执行后s的值为30

C．该程序段执行后i的值为4

D．该程序段执行的结果为s=10

在VB语言中，除了赋值语句具有计算功能外，（    ）也具有计算功能。

A．inputbox（）

B．For

C．if

D．Print

请认真阅读并分析下面Visual Basic程序代码，按要求完成题目。
　  Dim a(1 To 6) As Integer
　  Dim n, i, j, k As Integer
　  Private Sub Command1_Click()
For i =" 1" To n - 1
　For j =   （1） To n
   　If a(i) < a(j) Then
k = a(i):  （2）  : a(j) = k
End If
Next j
Next i
For i =" 1" To n
    list2.AddItem Str(a(i))
Next I
　  End Sub
　Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii =" 13" Then
n =" n" + 1
a(n) = Val(    (3)  )
List1.AddItem Str(a(n))
Text1.Text = "": Text1.SetFocus
End If
End Sub
（1）程序中出现了text和list两种控件，其中list控件的中文名称是列表框，text控件的中文名称是 。
（2）在上述程序段中3处带序号的空白地方补充恰当的语句，完善程序。

某Visual Basic程序如下：
Private Sub Command1_Click()
Dim x As Integer, y As Integer ,a As Integer ,b As Integer
X="0"
y=0
For a="1" To 3
x=x+1
For  b="2" to 4
y=y+1
Next b
Next a
Text1.text=str(a)
Text2.text=str(b)
End Sub
单击Command1按钮后，Text1显示    ①   ，Text2显示    ②   。

学校要进行元旦文艺汇演了，学生会让薛明来担任总记分员，任务就是根据各个评委所打分数，去掉一个最高分和一个最低分，然后计算平均分。薛明很快编写了这个程序，该程序的界面如右图所示：
程序运行时，每输入一个分数单击“确定”按钮（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