首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生文件夹下有一个工程文件sjt4.vbp,其窗体上有两个标题分别为“添加”和“退出”的命令按钮,一个内容为空的列表框List1。请画一个标签,其名称为Label1,标题为“请输入编号”;再画一个名称为Text1,初始值为空的文本框,如图7所示。程序功能
在考生文件夹下有一个工程文件sjt4.vbp,其窗体上有两个标题分别为“添加”和“退出”的命令按钮,一个内容为空的列表框List1。请画一个标签,其名称为Label1,标题为“请输入编号”;再画一个名称为Text1,初始值为空的文本框,如图7所示。程序功能
admin
2019-06-20
73
问题
在考生文件夹下有一个工程文件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全国计算机二级
相关试题推荐
下面描述中错误的是
窗体上有一个图片控件和一一个按钮控件,下.列程序执行的结果是()。PrivateSubCommand1Click()Picturel.Picture=LoadPicture("c:\picture.jpg")Pi
为达到把a、b中的值交换后输出的目的,某人编程如下:PrivateSubCommand1_Click()a%=10:b%=20Callswap(a,b)Printa,bEndSubPri
以下能从字符串“VisualBasic”中直接取出子字符串“Basic”的函数:是()。
某系统总体结构图如下图所示:该系统总体结构图的深度是
双精度浮点数的类型说明符为
设:a=2,b=8,c=6,d=3,表达式a>bAndNot(c>d)Ord>c的值是
以下描述中,不是线性表顺序存储结构特征的是()。
(1)在名称为Form1,标题为“选课”的窗体上添加一个复选框数组,名称为CH1,共有四个复选框,按顺序其标题分别是“数学”、“语文”、“外语”、“计算机”,其中“语文”、“计算机”复选框处在选中状态下,程序运行时的窗体如图所示。请按要求添加控件并设置相应
为了验证一个正整数n(n>3)是否为素数,最直观的方法是,看在2~n/2范围内能否找到一个整数m将n整除,若m存在,则n不是素数;若找不到m,则n为素数。在考生文件夹下有一个工程文件sjt5.vbp,其窗体上有1个名称为Text1的文本框。请根据上面的算法
随机试题
下列关于会计估计变更的说法中,不正确的是()。
胃溃疡疼痛时间多发生在()。
早期肝癌,目前最有效的治疗方案是()
治疗结核性脑膜炎首选药物是
A:HBsAg(+)、抗-HBs(-)、HBeAg(+)、抗-HBe(-)、抗-HBC(+);B:HBsAg(+)、抗HBs(-)、HBeAg(-)、抗-Be(+)、抗-HBC(+);C:HBsAg(-)、抗一HBs(+)、HBeAg(-
国家对危险化学品的生产和储存实行统一规划、合理布局和严格控制,并对危险化学品生产、储存实行();未经(),任何单位和个人都不得生产、储存危险化学品。
货币市场基金投资于同一公司发行的短期企业债券的比例,不得超过基金资产净值的20%。()
以下不是GB/T19001—2000标准所要求必编制的程序文件是_________。
下列对VLAN标识的描述中,错误的是()。
Arequestforfurthernegotiationsletterismuchlikeyouracceptanceorrejectionofletter.Thedifferenceisthatthereques
最新回复
(
0
)