2005年9月第22次全国计算机等级考试二级VB考试真题

　　min=【11】

　　Fork=【12】To6

　　Ifmax<Text1(k)Then

　　max=Text1(k)

　　EndIf

　　Ifmin>Text1(k)Then

　　min=Text1(k)

　　EndIf

　　sum=sum+Text1(k)

　　Nextk

　　Text2=(【13】)/5

　　EndSub

　　（10）如图所示，在列表框List1中已经有若干人的简单信息，运行时在Text1文本框（即“查找对象”右边的文本框）输入一个姓或姓名，单击“查找”按钮，则在列表框中进行查找，若找到，则把该人的信息显示在Text2文本框中。若有多个匹配的列表项，则只显示第1个匹配项；若未找到，则在Text2中显示“查无此人”。请填空。

　　PrivateSubCommand1_Click()

　　DimkAsInteger，nAsInteger，foundAsBoolean

　　found=False

　　n=Len(【14】)

　　k=0

　　Whilek<List1。ListCountAndNotfound

　　IfText1=Left$(List1。List(k)，n)Then

　　Text2=【15】

　　found=True

　　EndIf

　　k=k+1

　　Wend

　　IfNotfoundThen

　　Text2="查无此人"

　　EndIf

　　EndSub