如圖所示,在列表框List1中已經(jīng)有若干人的簡單信息,運(yùn)行時(shí)在Text1文本框(即“查找對(duì)象”右邊
如圖所示，在列表框List1中已經(jīng)有若干人的簡單信息，運(yùn)行時(shí)在Text1文本框（即“查找對(duì)象”右邊的文本框）輸入一個(gè)姓或姓名，單擊“查找”按鈕，則在列表框中進(jìn)行查找，若找到，則把該人的信息顯示在Text2文本框中。若有多個(gè)匹配的列表項(xiàng)，則只顯示第1個(gè)匹配項(xiàng)；若未找到，則在Text2中顯示“查無此人”。請?zhí)羁铡?/p>
Private Sub Command1_Click（）
Dim k As Integer, n As Integer, found As Boolean
found = False
n = Len（【14】 ）
k = 0
While k < List1.ListCount And Not found
If Text1 = Left$（List1.List（k）, n） Then
Text2 = 【15】
found = True
End If
k = k + 1
Wend
If Not found Then
Text2 = "查無此人"
End If
End Sub
正確答案：text1.text list1.list(k)
詞條內(nèi)容僅供參考，如果您需要解決具體問題
（尤其在法律、醫(yī)學(xué)等領(lǐng)域），建議您咨詢相關(guān)領(lǐng)域?qū)I(yè)人士。