2. 计算机
  3. 在考生文件夹下有一个工程文件sjt4．vbp，其窗体上有两个标题分别为“添加”和“退出”的命令按钮，一个内容为空的列表框List1。请画一个标签，其名称为Label1，标题为“请输入编号”；再画一个名称为Text1，初始值为空的文本框，如图7所示。程序功能

在考生文件夹下有一个工程文件sjt4．vbp，其窗体上有两个标题分别为“添加”和“退出”的命令按钮，一个内容为空的列表框List1。请画一个标签，其名称为Label1，标题为“请输入编号”；再画一个名称为Text1，初始值为空的文本框，如图7所示。程序功能

admin2019-06-20  77
问题 在考生文件夹下有一个工程文件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://www.kaotiyun.com/show/GfUp777K
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

相关试题推荐
随机试题
最新回复(0)