某对分查找算法的VB程序段如下：
i=1:j=6:n=0:f=False
key=Val(Text1.Text)
Do While i<=j and Not f
n=n+1
m=Fix((i+j)/2)
If key=a(m)then f=True
If key<a(m)then j=m-1 Else i=m+1
Loop
数组元素a(1)到a(6)的值依次为“12，19，27，31，46，55”，文本框Text 1中输入“31”后运行该程序，则以上程序段运行结束后，下列说法不正确的是（   ）

A．变量i的值为4

B．变量j的值为4

C．变量m的值为4

D．变量n的值为3

有如下VB程序段：
n = 0
For i = 1 To Len(Text1.Text)
c = Mid(Text1.Text, i, 1)
If c >= "0" And c <= "9" Then m = 1 Else m = 2
a(m) = a(m) + 1
If a(m) = 1 Then n = n + 1
Next i
数组a各元素的初始值都为0,文本框Textl的内容为“Happy2017”。执行程序后，变量n的值为（　　）

A．1

B．2

C．4

D．9

简易加法器：小王用VB编写了一个简易加法器，其功能如下：在文本框Text1中输入数字，中间用“，”隔开，单击“计算”命令按钮后，将这几个数字的和输出在标签Label1中。运行界面如图所示，VB程序代码如下，请回答以下问题。

（1）Cmd1对象属于________类。（单选，填字母：

A．Label /

B．TextBox /

C．CommandButton）。

（2）请在划线处填入合适代码。
Private Sub Cmd1_Click()
Dim i As Integer, j As Integer, ans As Integer
Dim chAs String, s As String
s = Text1.Text
ans = 0
j = 1
For i = 1 To Len(s)
_______________
If ch = , Then
ans = ____________
j = i + 1
End If
Next i
Label1.Caption = "计算结果是：" +Str(ans)
End Sub
（3）运行该程序，在文本框中输入“21，5，3”（不包含双引号），则计算结果是_______。

一位顾客购买了土豆X 千克、西红柿 Y 千克、辣椒 Z 千克，其中土豆 3.5元/千克、西红柿4.3元/千克、辣椒6.6元/千克。计算该顾客消费总价的算法如下：
输入三种蔬菜的重量X,Y,Z
‚用公式计算总价 S=3.5*X+4.3*y+6.6*z
ƒ输出总价S
„结束
以上算法属于（    ）。

A．枚举算法

B．解析算法

C．排序算法

D．查找算法

某商场元月举行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）加框处②有错，应改为_____________________。