VB语句List1.addItem d(i) 的作用是把数组d的数据添加到列表框对象List1中。该语句中的“addItem”是（   ）

A．属性名

B．属性值

C．方法

D．事件

若整型变量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

（加试题）某校举行班班有歌声比赛，参赛班级的成绩按照班级序号保存在“bbygs.accdb”数据库文件中，为了快速计算每个班级最终的分，设计了一个VB程序，该程序能够将8个评委的打分按照从高到低的顺序排序，然后去掉一个最高分和一个最低分，最后计算平均值作为参赛班级的成绩。程序界面如图：单击“提取”按钮Command1，在列表框list1中显示班级序号和该班级8个评委的打分成绩，单击“排序”按钮Command2后，在列表框list2中按降序排序。单击计算得分按钮Command3，在文本框text1中显示最终成绩。按此要求编写程序如下:
Dim class(1 To 30) As Integer '存放班级序号的数组定义为class
Dim score(1 To 8) As single '存放班级各评委打分的数组定义为score
Private Sub Form_load() '提取某班级的评委打分
Dim conn As New ADODB.Connection
Dim rs As New ADODB.Recordset
conn.ConnectionString = "Provider=Microsoft.AC

A．OLEDB.12.0;Data Source=" + App.Path + "\bbygs.accdb "

conn.Open
Set rs.ActiveConnection = conn
rs.Open "SELECT * FROM score " 
n = 0
Do While Not rs.EOF   '到最后一条记录后退出循环
n = n + 1
class (n) = rs.Fields("班级序号").Value
score (n) = rs.Fields("评委打分").Value
rs.MoveFirst '① 指针移动到下一条记录
Loop
rs.Close
cn.Close
Set rs = Nothing
Set cn = Nothing
for i=1 to n
List1.AddItem str(score(i))
Next i
End sub
Private Sub Command1_Click()  
Dim i as integer
Dim j as integer
Dim t as single

For i=1 to 8
List2.AddItem str(score(i))
Next i
End sub
Private Sub Command2_Click()   '计算班级平均得分
Dim i As Integer
Dim sum As single
For i=2 to 7
sum=sum+score（i）
Next i
Text1.text= ③ 
End sub
（1）程序中①划线处有错，应改为____________________。
（2）加矩形框处的程序所采用的算法是_____________排序。
（3）程序中②划线处应填入___________,程序中③划线处应填入___________。

【加试题】小王模拟超市收银机扫描商品条形码后计算总价的过程制作了一个VB程序。功能如下：在文本框Text1中输入商品条形码，按回车键后会将已经输入的条形码显示在列表框List1中，同时将商品明细显示在列表框List2中。点击按钮“计算商品总价”后，会将所有商品的总价显示在文本框Text2中。程序界面如图所示：

实现上述功能的部分VB程序如下，请在三个划线处填入合适代码。
'定义全局数组变量
Dim a(1 To 10) As Long
Dim b(1 To 10) As String
'自动加载条形码信息以及对应的商品信息
Private Sub Form_Load()
Dim i As Integer
a(1) = 503741
For i =" 2" To 10
a(i) =" a(i" - 1) + 1
Next i
b(1) = "可乐 5.00"
b(2) = "薯片 7.50"
b(3) = "牛奶 5.60"
b(4) = "橙汁 7.50"
b(5) = "面包 4.00"
b(6) = "蜂蜜 28.00"
b(7) = "蛋糕 12.00"
b(8) = "绿箭 3.50"
b(9) = "饼干 6.00"
b(10) = "雪碧 5.00"
End Sub
'输入条形码，查找条形码，并显示条形码及其对应的商品信息
Private Sub Text1_KeyPress(KeyAscii As Integer)
Dim txm As Long:
Dim i As Integer:
Dim j As Integer
txm = Val(Text1.Text)
If KeyAscii =" 13" Then
If txm >=" 503741" And txm <=" 503750" Then
List1.AddItem txm
Text1.Text = ""
i =" 1:" j = 10
Do While i <= j
    ①
If txm =" a(m)" Then
List2.AddItem b(m)
Exit Do
ElseIf txm > a(m) Then
i =" m" + 1
Else
   ②   
End If
Loop
Else
MsgBox "条形码输入错误，无此商品"
Text1.Text = ""
End If
End If
End Sub
'计算所购商品的总额
Private Sub Command1_Click()
Dim i As Integer, mx As String, jg As String, sum As Single
For i =" 0" To 9
If List2.List(i) <> "" Then
mx = List2.List(i)
sum =" sum" + Mid(mx, 4)
End If
Next i
Text2.Text = ③    
End Sub

下列表达式中值最大的是（）

A．Abs( -5) +Len("ABCDE")

B．val((Mid("SHANG2016HAI",6,2))

C．Int(2*sqr(36) +0.5)/3

D．5^2 Mod 25 \ 2^2