在某學(xué)校里，每位同學(xué)都會得到一張一卡通卡，一卡通的卡號是唯一的，卡內(nèi)會記錄每位同學(xué)的姓名、住址、班級、金額等信息。每當(dāng)同學(xué)刷卡時，卡號就被輸入電腦，然后進行查找，如果找到就顯示姓名，否則顯示“查無此人”。下列程序的功能是根據(jù)卡號查找對應(yīng)的姓名，程序中數(shù)組a保存所有已發(fā)放一卡通的卡號，數(shù)組b保存卡號對應(yīng)的姓名，第i位同學(xué)的卡號保存在a（i）中，姓名保存在b（i）中。
程序界面如圖1所示，左邊列表框列出所有同學(xué)的卡號和姓名，在右邊文本框Text1中輸入卡號，單擊“開始查詢”按鈕（Command1），程序就按卡號進行查找，如果找到就在標(biāo)簽Label3中輸出卡號對應(yīng)同學(xué)的姓名，否則就輸出“查無此人”。
解決此問題的算法流程圖如圖2所示，相應(yīng)的程序如下，在程序①和②橫線處，填入適當(dāng)?shù)恼Z句或表達(dá)式，把程序補充完整。
Private Sub Command1_Click （　　）
Dim x As String,i As Integer,s As String,f As Boolean
x=

Text1．text

Text1．text

i=0：f=False'f為找到標(biāo)志變量，值為True表示找到，否則表示沒找到
Do While （i＜n） And （f=False）
i=i+1
If x=a（i） Then
f=True
End If
Loop
If f=True Then

s=b（i）

s=b（i）

Else
s=“查無此人！“
End If
Label3．Caption=s
End Sub
程序中①橫線處應(yīng)填入

Text1．text

Text1．text

程序中②橫線處應(yīng)填入

s=b（i）

s=b（i）