首页 > 计算机 > 计算机考试 正文

[填空题] 如图所示,在列表框List1中已经有若干人的简单信息,运行时在Text1文本框(即“查 找对象”右边的文本框)输入一个姓或姓名,单击“查找”按钮,则在列表框中进行查 找,若找到,则把该人的

时间:2021-07-20 18:48:41 解答: 98 次

[填空题] 如图所示,在列表框List1中已经有若干人的简单信息,运行时在Text1文本框(即“查 找对象”右边的文本框)输入一个姓或姓名,单击“查找”按钮,则在列表框中进行查 找,若找到,则把该人的信息显示在Text2文本框中。若有多个匹配的列表项,则只显 示第1个匹配项;若未找到,则在Text2中显示“查无此人”。请填空。Private Sub Command1_Click()Dim k As Integer, n As Integer, found As Boolean found = Falsen = Len( _________)k = 0While k < List1.ListCount And Not foundIf Text1 = Left$(List1.List(k), n) ThenText2 = _________found = True End If k = k + 1Wend If Not found ThenText2 = "查无此人" End If End Su

正确答案:

TextA , ListA.List(k)

参考解析:

本题是把 Text1 中的内容与 List1 中的项目逐个比较,而比较的时候,是先求出 Text1 中内容的长度,即 n = Len(Text1),再从 List1 的项目中取出相同长度的内容与 Text1 的值进 行比较,如果找到,则把项目显示到 Text2 中,即 Text2 = List1.List(k)。

  • 相关题库

请充值VIP继续使用(未注册用户支付后会自动注册登录)

×

95元 29元

VIP截止日期:2024-12-31 11:24:25

←请使用支付宝扫码支付

95元 29元

VIP截止日期:2024-12-31 11:24:25

←请使用微信扫码支付