杭州市民卡是由杭州市人民政府授權(quán)發(fā)放給市民用于辦理個(gè)人相關(guān)事務(wù)和享受公共服務(wù)的集成電路卡（IC卡），具有信息儲(chǔ)存、身份識(shí)別、電子支付等功能。每位市民卡的卡號(hào)是唯一的，卡內(nèi)會(huì)記錄每位市民的姓名、住址、金額等信息。
假設(shè)共有1000個(gè)市民，市民的相關(guān)信息都存儲(chǔ)在“information.jye.ai”的data表中，查詢程序界面如圖所示。工作人員在文本框Text1中輸入卡號(hào)，單擊“開始查詢”按鈕，如果找到，就在Label1中顯示卡內(nèi)市民姓名和卡內(nèi)余額；否則顯示“查無此人”。請(qǐng)按要求將下列程序補(bǔ)充完整。

Private Sub command1_click （　?。?br />Dim conn As New ADODB．Connection,rs As New ADODB．Recordset
Dim strSQL As String
Dim a,b as string‘分別定義姓名、余額
Dim n as integer
conn.ConnectionString=“Provider=Microsoft.ACE．OLEDB.12.0；Data Source=“+App.Path+“\information.jye.ai“'打開到數(shù)據(jù)庫(kù)的鏈接
conn.Open
strSQL=“select xh,xm from data where'卡號(hào)=&（Text1．Text） &'“'設(shè)置查詢的SQL語句
Set rs.ActiveConnection=conn'設(shè)置rs的ActiveConnection屬性，指定與其關(guān)聯(lián)的數(shù)據(jù)庫(kù)鏈接
rs.Open strSQL'打開記錄集，將從表information中讀取的結(jié)果保存到記錄集rs中
Label1．Caption=““
n=0
Do while not rs.EOF

n=n+1

n=n+1

①
a=rs.Fields（“姓名“）
b=rs.Fields（“余額“）
rs.movenext
loop
rs.Close
conn.close
set rs=nothing
set conn=nothing

Label1．caption=a+“卡內(nèi)余額為“+b+“元“

Label1．caption=a+“卡內(nèi)余額為“+b+“元“

②
if n=0then Label1．caption=“查無此人“
End Sub
（1）程序中①橫線處應(yīng)填入

n=n+1

n=n+1

。
（2）程序中②橫線處應(yīng)填入

Label1．caption=a+“卡內(nèi)余額為“+b+“元“

Label1．caption=a+“卡內(nèi)余額為“+b+“元“

。