WORD格式
If min > Text1(k) Then min = Text1(k) End If
sum = sum + Text1(k) Next k
Text2 = (【 13】 End Sub
（10）如图所示，在列表框 List1 中已经有若干人的简单信息，运行时在 Text1 文本框（即 “查找对象”右边的文本框）输入一个姓或姓名，单击“查找”按钮，则在列表框中进行查 找，若找到，则把该人的信息显示在 Text2 文本框中。若有多个匹配的列表项，则只显示第 1 个匹配项；若未找到，则在 Text2 中显示“查无此人” 。请填空。
) / 5
Private Sub Command1_Click()
Dim k As Integer, n As Integer, found As Boolean found = False n = Len( k = 0
【 14】
)
While k < List1.ListCount And Not found If Text1 = Left$(List1.List(k), n) Then
Text2 = End If k = k + 1 Wend
If Not found Then Text2 = \查无此人 \End If End Sub
【15】
found = True
专业资料整理
WORD格式
12
专业资料整理
WORD格式
2005 年 9 月全国计算机等级考试二级 VB 笔试试卷（含参考答案）
1- 5】 CACDC 【 6-10】 DAABB 11-15】 BCCDC 【 16-20】 CABBA 21-25】 DAADC 【 26-30 】 ADBAC 31-35】 CCDAB 填空题
1】数据库系统 【 2】空间 【 3】驱动模块 4】 32 【 5】存储结构
【 6】 30
7】 s&c 【 8】 -1 【 9】 n-r 10】 t=1 【 11】 text1(0) 【 12】 1
13】（ sum-max-min ） 【 14】 text1.text 【 15】 list1.list(k)
专业资料整理
WORD格式
人与人之间的距离虽然摸不着，看不见，但的的确确是一杆实实在在的秤。真与假，善与恶，美与丑，尽在秤杆上可以看出；人心的大小，胸怀的宽窄，拨一拨秤砣全然知晓。 人与人之间的距离，不可太近
。
与人太近了，常常看人不清。一个人既有优点，也有缺点，所谓人无完人，金无赤足是也。初识时，走得太近就会模糊了不足，宠之；时间久了，原本的美丽之处也成了瑕疵，嫌之。
与人太近了，便随手可得，有时得物，据为己有，太过贪财；有时得人，为己所用，也许贪色。贪财也好，贪色亦罢，都是一种贪心。
与人太近了，最可悲的就是会把自己丢在别人身上，找不到自己的影子，忘了回家的路。
这世上，根本没有零距离的人际关系，因为人总是有一份自私的，人与人之间太近的距离，易滋生事端，恩怨相随。所以，人与人相处的太近了，便渐渐相远。 人与人之间的距离也不可太远。 太远了，就像放飞的风筝，过高断线。 太远了，就像南徙的大雁，失群哀鸣。 太远了，就像失联的旅人，形单影只。
专业资料整理
WORD格式
14
专业资料整理
全国计算机等级考试二级VB语言笔试试题及答案
