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

Private Sub Command1_Click()

Dim k As Integer， n As Integer， found As Boolean

found=False

n= Len(______)

k = 0

While k＜List1.ListCount And Not found

If Text1=Lefts(List1.List(k)，n)Then

Text2＝ ______

found＝True

End If

k ＝ k + 1

Wend

If Not found Then

Text2＝“查無(wú)此人”

End If

End Sub

Text1或Text1.Text List1.List(k)

本題考查使用常用函數(shù)和控件來(lái)解決實(shí)際問(wèn)題。綜合性題目，難度較大，對(duì)于使用所學(xué)知識(shí)解決實(shí)際問(wèn)題是考試重點(diǎn)，也是難點(diǎn)，應(yīng)該多關(guān)注此方面的題目。題目程序有While循環(huán)和條件語(yǔ)句組成，循環(huán)ListCount 1次。在循環(huán)體中判斷Text1中的字符串是否存在于列表框List1的元素中，使用If Text1=Lefts(List1.List(k)，n)Then來(lái)完成，如果存在即找到，不存在則未找到。