[填空題] 如圖所示，在列表框Listl中已經(jīng)有若干人的簡單信息，運(yùn)行時(shí)在Text1文本框(即“查找對象”右邊的文本框)輸入一個(gè)姓或姓名，單擊“查找”按鈕，則在列表框中進(jìn)行查找，若找到，則把該人的信息顯示在Text2文本框中。若有多個(gè)匹配的列表項(xiàng)，則只顯示第1個(gè)匹配項(xiàng)：若未找到，則在Text2中顯示“查無此人”。請?zhí)羁铡?/p>

Private Sub Commandl_Click()

Dim k As Integer, n As Imeger,found As Boolean

found=False

n=Len(______)

k=0

While k＜Listl.ListCount And Not found

If Text1=Left$(Listl.List(k),n)Then

Text2=______

found=True

End If

k=k+1

Wend

If Not found Then

Text2="查無此人"

End If

End Sub

Text1 Listl.List(k)

本題是把Text1中的內(nèi)容與Listl中的項(xiàng)目逐個(gè)比較，而比較的時(shí)候，是先求出Text1中內(nèi)容的長度，即n=Len(Text1)，再從Listl的項(xiàng)目中取出相同長度的內(nèi)容與Text1的值進(jìn)行比較，如果找到，則把項(xiàng)目顯示到Text2中，即Text2=Listl.List(k)。