首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
如图16-10所示.在列表框List1中已经有若干人的简单信息,运行时在Text1文本框(即“查找对象”右边的文本框)输入一个姓或姓名,单击“查找”按钮,则在列表框中进行查找,若找到,则把该人的信息显示在Text2文本框中。若有多个匹配的列表项,则只显示第
如图16-10所示.在列表框List1中已经有若干人的简单信息,运行时在Text1文本框(即“查找对象”右边的文本框)输入一个姓或姓名,单击“查找”按钮,则在列表框中进行查找,若找到,则把该人的信息显示在Text2文本框中。若有多个匹配的列表项,则只显示第
admin
2010-09-11
61
问题
如图16-10所示.在列表框List1中已经有若干人的简单信息,运行时在Text1文本框(即“查找对象”右边的文本框)输入一个姓或姓名,单击“查找”按钮,则在列表框中进行查找,若找到,则把该人的信息显示在Text2文本框中。若有多个匹配的列表项,则只显示第1个匹配项;若未找到,则在Text2中显示“查无此人”。请填空。
Private Sub Conmlandl_Click()
Dim k As Integer, n As Integer, found As Boolean
found=False
n=Len(【 】)
k=0
While k<List1. ListCount And Not found
If Text1=Left $(List1. List(k), n)Then
Text2=【 】
found=True
End If
k=k+1
Wend
If Not found Then
Text2="查无此人"
End If
End Sub
选项
答案
Text1. text或Text1 ,List1. list(k)
解析
变量n记录文本框Text1中的字符串长度,作为读取列表框List1中字符串使用,使得在比较文本框和列表框的字符串时具有相同的长度。一旦在列表框中找到与文本框相匹配的字符串,就将列表框中该段字符串赋给文本框Text2。变量found的作用是确认是否查找到有匹配的字符串,在初始时假定殴有匹配的字符串,当查找到有匹配的字符串时,将found赋值True。
转载请注明原文地址:https://kaotiyun.com/show/Ffmp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
一个Applet被浏览器加载后,是从______方法开始执行的。
数据库设计中,用E-R图来描述信息结构但不涉及信息在计算机中的表示,它属于数据库设计的
在下面程序的空白处,填上适当的内容。Importjava.io.*:importjava.util.*;classBufferTest{ publicstaticvoidmain(Stringargs[]
Swing的事件处理机制包括______、事件和事件监听者。
算法复杂度主要包括时间复杂度和______复杂度。
下列叙述中,错误的是
数据库DB、数据库系统DBS、数据库管理系统DBMS之间的关系是
多线程是Java语言的______机制,只能够处理同步共享数据和各种不同的事件。
随机试题
律师协会应接受司法行政部门
成年牛滑倒后不能起立,强行站立后患后肢不能负重,比健肢缩短,抬举困难,以蹄尖拖地行走。髋关节他动运动,有时可听到捻发音。若直肠检查在闭孔内摸到股骨头,该病牛可诊断为
男,48岁,周期性上腹痛2年余。最近1周持续左季肋部局限性疼痛、压痛;钡剂造影提示胃角部龛影,直径lcm;胃酸分泌正常偏低。内科保守治疗8周后疼稍减轻,进一步处理首选
外伸梁AB的弯矩图如右下图所示,梁上载荷(右上图)F、m的值为()。
我某公司进口某商品,下述报价中表述正确的是()。
2016年1月,某事业单位启动一项科研项目。2016年共收到上级主管部门拨付的非财政补助专项资金1000万元,为该项目发生事业支出700万元。2016年11月份,该项目结项,经上级主管部门批准,该项目的结余资金留归该单位使用。要求:根据上述资料,不考虑其
简述高校教师的社会地位和作用。
规范责任论认为,法律体现社会的价值观念,是指引和评价人的行为的规范,法律责任的本质是()。
A、Therestaurantisveryexpensive.B、Therestaurantoffersquietsurroundings.C、Therestaurantservesgoodfood.D、Therestaur
18-to24-year-oldsMostatRiskforIDTheft[A]RyanThomas,anairmanintheAirForceHonorGuard,boughtsomeDVDsontheInt
最新回复
(
0
)