某商場(chǎng)元月舉行VIP客戶積分換購活動(dòng)，VIP客戶根據(jù)卡內(nèi)積分多少可換取不同額度的代金券．假設(shè)VIP客戶共有n名，VIP卡內(nèi)積分存放在數(shù)據(jù)庫“customer.accdb”的Integral表中，換購活動(dòng)的VB程序代碼如下，程序運(yùn)行時(shí)界面如第7題圖所示．工作人員在文本框Text1中輸入VIP卡號(hào)后，單擊“換購”按鈕Command1，在文本框Text2中輸出VIP客戶的積分?jǐn)?shù)，在標(biāo)簽Label3中顯示可以換購的代金券額度，積分清零．按此要求編寫程序如下，但加框處代碼有錯(cuò)，請(qǐng)改正．

Dim ID As String'用于存放客戶卡號(hào)
Dim total  As Long'用于存放積分?jǐn)?shù)
Dim sc As Long'VIP客戶人數(shù)
Dim jf As Long'積分?jǐn)?shù)
Private Sub Command1_Click （　?。?br />Dim k As String'客戶卡號(hào)
Dim q As Long'代金券額度
Dim i As Long
k=Text1．Text
For i=1To 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函數(shù)用于計(jì)算VIP客戶可換購的代金券額度
Function cash（jf As Long） As Long
If jf＞=2000And jf＜=20000Then
Cash=jf\2000*10
ElseIf jf＞20000And jf＜=50000Then
Cash=jf\2000*11
ElseIf jf＞50000And jf＜=100000Then
Cash=jf\2000*12
ElseIf jf＞100000And jf＜=150000Then
Cash=jf\2000*13
Else jf＞150000Then’②
Cash=jf\2000*14
End If
End Function
Private Sub Form_Load （　?。?br />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）加框處①有錯(cuò)，應(yīng)改為

q=cash（jf）

q=cash（jf）

．
（2）加框處②有錯(cuò)，應(yīng)改為

ElseIf jf＞150000 Then

ElseIf jf＞150000 Then

．