首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生文件夹下有一个工程文件sjt4.vbp,其窗体上有两个标题分别为“添加”和“退出”的命令按钮,一个内容为空的列表框List1。请画一个标签,其名称为Label1,标题为“请输入编号”;再画一个名称为Text1,初始值为空的文本框,如图7所示。程序功能
在考生文件夹下有一个工程文件sjt4.vbp,其窗体上有两个标题分别为“添加”和“退出”的命令按钮,一个内容为空的列表框List1。请画一个标签,其名称为Label1,标题为“请输入编号”;再画一个名称为Text1,初始值为空的文本框,如图7所示。程序功能
admin
2019-06-20
52
问题
在考生文件夹下有一个工程文件sjt4.vbp,其窗体上有两个标题分别为“添加”和“退出”的命令按钮,一个内容为空的列表框List1。请画一个标签,其名称为Label1,标题为“请输入编号”;再画一个名称为Text1,初始值为空的文本框,如图7所示。程序功能如下:
①系统启动时,自动向列表框添加一个编号信息“a0001”。
②系统运行时,在文本框Text1中输入一个编号,并单击“添加”按钮时,如果该编号与已存在于列表框中的其他编号不重复,则将其添加到列表框List1已有项目之后;否则,将弹出“不允许重复输入,请重新输入!”对话框,单击该对话框中的“确定”按钮,可以重新输入。
③单击“退出”按钮,则结束程序运行。
要求:请去掉程序中的注释符,把程序中的?改为正确的内容,使其实现上述功能,但不能修改窗体文件中已经存在的控件和程序。最后把修改后的文件按原文件名存盘。
选项
答案
[操作步骤] 步骤1:打开考生文件中的本题工程文件sjt4.vbp,如表12—5在窗体中画出控件并设置其相关属性。 [*] 步骤2:在代码编辑窗口,去掉程序中的注释符“’”,将问号“?”改为正确的内容。 参考代码: List1.AddItem"a0001" For i=0 To List1.ListCount-1 Lfist1.ListIndex=I:List1.AddItem Text1.Text End 步骤3:按要求将文件保存至考生文件夹中。
解析
若要在系统启动时,自动向列表框添加一个编号信息“a0001”,需要在窗体的Load事件中调用列表框的AddItem方法向列表框中添加列表项。
在“添加”按钮的单击事件中,需要判断输入的值是否在列表框中已存在,为了实现这个功能,需要遍历整个列表框,其循环条件为For i=0 To List1.ListCount-1;在循环中首先令ListIndex属性值为i,这样第i个列表项的内容就是列表框的Text属性值,可以与文本框中的内容进行比较,若已经存在则弹出提示信息,并退出事件过程,若循环结束后还没有重复,则调用列表框的AddItem方法将文本框的内容加入列表框。
在“退出”按钮的单击事件过程中,使用End语句结束整个程序的运行。
转载请注明原文地址:https://kaotiyun.com/show/GfUp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
有数据定义语句:DimX,YAsInteger以上语句表明
假设用复制、粘贴的方法建立了一个命令按钮数组Command1,以下对该数组的说法错误的是()。
从工程管理角度看,软件设计一般分为两步完成,它们是
设有如下Command1的单击事件过程及fun过程:PrivateSubCommand1_Click()DimxAsIntegerx=Val(InputBox("请输入一个整数"))fun(x)EndSubPrivateSub
在数据库设计中,将E-R图转换成关系数据模型的过程属于
设窗体上有1个水平滚动条,已经通过属性窗口把它的Max属性设置为1,Min属性设置为100。下面叙述中正确的是
以下关于VB对象属性的叙述中,错误的是
设a=2,b=3,c=4,d=5,下列表达式的值是()。3>2*bOra=cAndb<>cOrb<>a+c
在窗体上有一个名称为Drive1的驱动器列表框,一个名称为Dir1的目录列表框,一个名称为File1的文件列表框,两个名称分别为Label1、Label2的标签(标题分别为空白和“共有文件”)。要使得驱动器列表框与目录列表框、目录列表框与文件列表框同步变化
检查软件产品是否符合需求定义的过程称为
随机试题
男、女两名运动员在长120米的斜坡上练习跑步(坡底为A,坡顶为B)。两人同时从A点出发,在A、B之间不停地往返奔跑。如果男运动员上坡速度是3米/秒,下坡速度是5米/秒;女运动员上坡速度是2米/秒,下坡速度是3米/秒,那么两人第二次迎面相遇的地点离A点多少米
适当减小铰刀(主要指标准机用铰刀)的切削锥角(2φ),是降低孔表面粗糙度的重要条件。()
如果你想胜任未来的工作,就必须掌握一门外语。
为恶意和憎恨所局限的观察者,即使具有敏锐的观察力,也只能见到表面的东西;而只有当敏锐的观察力同善意和热爱相结合,才能探到人的最深处,并且才有希望达到最崇高的目标。 由此可以推出()。
有位心理障碍的病人对自己的评价消极,总是从坏的方面去看待自己以往的经历,认为过去的生活充满了失败,对未来也消极预期,认为将来没有希望,痛苦将一直延续。患者的这些负性自动想法被称为()。A.抑郁想法三联征B.抑郁认知三联征C.消极解释三联征D
小儿神经性皮炎一直被认为是由母乳过敏引起的。但是,如果我们让患儿停止进食母乳而改用牛乳,他们的神经性皮炎并不能因此消失。因此,显然存在别的某种原因引起小儿神经性皮炎。下列哪项如果为真,最能削弱上面的论证?
华东公司财务部长和副部长都是硕士研究生,公司45岁以下的职员中,硕士研究生超过91%,45岁以上的有6名硕士研究生。如果上述陈述都是真的,以下哪项可以从中推导出来?
从技术上讲,一种保险单如果其索赔额及管理费用超过保金收入,这种保险单就属于折价发行。但是保金收入可以用来投资并产生回报,因而折价发行的保单并不一定总是亏本的。上述论断建立在以下哪项假设基础之上?
Whatisthenationalityoftheresearchers?
Westerndoctorsarebeginningtounderstandwhattraditionalhealershavealwaysknown,thatthebodyandthemindareinseparab
最新回复
(
0
)