BR> 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 Sub2005年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)
[ 结 束 ]
上一页 [1] [2] [3] [4] [5] [6] [7]
责任编辑:小草