某VB事件过程如下：
Private Sub Command1_Click()
Dim a as Integer
a=Val(Text1.text)    ‘将文本框中的数字文本转换成数值
a=2*a+1
Text1.text = Str(a)
End Sub
程序运行时在文本框Text1中输入1，连续两次单击命令按钮Command1后，Text1中显示的内容是：（   ）

A．7

B．5

C．3

D．1

当a=5，b=7，c=－2，d=1时，逻辑表达式：A+b>c+d AND a>="5" OR NOT c>0 OR D<0的运算结果为True。（   ）

某商场元月举行VIP客户积分换购活动，VIP客户根据卡内积分多少可换取不同额度的代金券。假设VIP客户共有n名，VIP卡内积分存放在数据库“customer.accdb”的Integral表中，换购活动的VB程序代码如下，程序运行时界面如图所示。工作人员在文本框Text1中输入VIP卡号后，单击“换购”按钮Command1，在文本框Text2中输出VIP客户的积分数，在标签Label3中显示可以换购的代金券额度,积分清零。按此要求编写程序如下, 但加框处代码有错,请改正。

Dim ID（ ） As String   '用于存放客户卡号
Dim total（ ） As Long   '用于存放积分数
Dim sc As Long   'VIP客户人数
Dim jf As Long   '积分数
Private Sub Command1_Click（ ）
Dim k As String   '客户卡号
Dim q As Long   '代金券额度
Dim i As Long
k = Text1.Text
For i =" 1" To sc   ’顺序查找
If ID（i） =" k" Then
jf = total（i）
cash（jf） = q    ’①
Exit For
End If
Text2.Text = Str（jf）
Label3.Caption = “您可换购的代金券总额为：”+ Str（q） + “元”
Next i
End If
End Sub
' cash函数用于计算VIP客户可换购的代金券额度
Function cash（jf As Long） As Long
If jf >=" 2000" And jf <=" 20000" Then
Cash = jf\2000*10
ElseIf jf > 20000 And jf <=" 50000" Then
Cash = jf\2000*11
ElseIf jf > 50000 And jf <=" 100000" Then
Cash = jf\2000*12
ElseIf jf > 100000 And jf <=" 150000" Then
Cash = jf\2000*13
 Else jf > 150000 Then ’ ②
Cash = jf\2000*14
End If
End Function
Private Sub Form_Load（）
Dim conn As New ADODB.Connection, rs As New ADODB.Recordset
Dim intSQL As Long
conn.ConnectionString = "Provider="Microsoft.ACE.OLEDB.12.0;Data" Source=" + App.Path + "\ customer.accdb"
conn.Open
intSQL = "SELECT score  FROM Integral" 
Set rs.ActiveConnection = conn
rs.CursorType = adOpenStatic
rs.Open intSQL
sc = 0
Do While Not rs.EOF
sc =" sc" + 1
total（sc） = rs.Fields（"score"）
rs.MoveNext
Loop
rs.Close
conn.Close
Set rs = Nothing
Set conn = Nothing
End Sub
（1）加框处①有错，应改为_____________________。
（2）加框处②有错，应改为_____________________。

某学校要进行年级优秀生表彰，需要对 n 人的优秀生单独排位置，每行 m 人。排队方阵规则：第 1 行从左向右坐，第 2 行从右向左坐，第 3 行从左向右坐，第 4 行从右向左坐……不断重复。最后一行如果人数不满 m 人，一律从左往右坐。VB 程序功能如下： Text1 输入 m 的值，确定每行坐的人数，单击按钮后，在 List2 列表框中显每位同学的位置，在 List3 列表框中显示每位同学的 4 位数位置编号（行号+列号），如下图所示。实现上述功能的 VB 代码如下：

依据上述描述设计如下 VB 程序：
Dim xh(1 To 100) As Integer , xm(1 To 100) As String, cj(1 To 100) As Integer Dim n As Integer, m As Integer
Private Sub Form_Load()

'本过程从数据库依次读取 n 位同学的序号、姓名及成绩，然后按成绩降序排序，将学生序号、姓名成绩存储在数组 xh 、xm、cj 中，结果显示在List1 中，

End Sub

请回答下列问题：
(1)   在设计程序界面时，要清空文本框中的显示内容，应修改文本框的_____属性。
(2)   程序中加框处代码有误，请改正。 __________________________ 
(3)   请在①②③划线处填入适当的代码。
① __________________________________________
② _________________________________________
③ _________________________________________

某算法流程图如图所示。当输人值为0时，该算法执行的步骤是（   ）

A．①②③④	B．①②③⑤
C．①②④⑤	D．①②③④⑤