[填空題] 在窗體上建立如下圖所示的界面。在列表框List1中已有若干人的簡(jiǎn)單信息，運(yùn)行時(shí)Text1文本框輸入一個(gè)姓或姓名，單擊"查找"按鈕，則在列表框中進(jìn)行查找。若找到，則把該人的信息顯示在Text2文本框中。若有多個(gè)匹配的列表框，則只顯示第一個(gè)匹配項(xiàng)；若未找到，則在Text2文本框中顯示"查無此人"。請(qǐng)完成下列的程序代碼。

Private Sub Command1_Click()

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

found=False

n=Len( (10) )

k=0

While k＜ (11) And Not found

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

Text2= (12)

found=True

End If

k=k+1

Wend

If Not found Then

Text2="查無此人"

End If

End Sub

List1.List(k)

本題考查的是While…Wend循環(huán)格式語句，嵌套層內(nèi)使用If條件語句判斷。[10]空是讀取Text1中字符串的長(zhǎng)度，以便在Text2中進(jìn)行查找。[11]空循環(huán)條件是在列表框的項(xiàng)數(shù)之內(nèi)循環(huán)，用List1.ListCount來讀取列表框共有多少項(xiàng)。[12]空的條件語句中，如果找到該項(xiàng)，用List1.List(k)語句把結(jié)果在Text2中顯示出來。