初级程序_员填空考试卷模拟考试题_第1页
初级程序_员填空考试卷模拟考试题_第2页
初级程序_员填空考试卷模拟考试题_第3页
全文预览已结束

下载本文档

版权说明：本文档由用户提供并上传，收益归属内容提供方，若内容存在侵权，请进行举报或认领

文档简介

1、姓名：_ 班级：_ 学号：_-密-封 -线- 初级程序_员填空考试卷模拟考试题考试时间：120分钟 考试总分：100分题号一二三四五总分分数遵守考场纪律，维护知识尊严，杜绝违纪行为，确保考试结果公正。1、【说明】在一些应用场合中，需要对用户的输入数据进行检查监控。以下visualbasic程序实现了对新添加到 list列表的内容进行监控，拒绝向list列表添加重复信息。例如，在list列表中存在元素“a01001；a01002”，如果用户输入数据为“a01001”或“a01002”，系统则弹出提示信息，拒绝将新数据加入list列表；如果用户输入的数据不同于list列表中的任何一个元素，则作为新

2、元素加入list中。visualbasic界面显示如图所示。根据程序功能说明，完成程序代码。【代码5-1】begin vb.form formlcaption = “list 列表拒绝添加重复信息”/.窗体描述(略)begin vb.commandbutton command2caption = “退出”/.窗体描述(略)endbegin vb.commandbutton commandlcaption = “添加”/.窗体描述(略)endbegin vb.textbox text1/.窗体描述(略)endbegin vb.listbox list1height = 1860itemdata

3、= “form1.fix”: 0000left = 1020list = “form1.fix”: 0002tabindex = 0top = 525width = 2580endbegin vb.labe1 labe11backstyle = 0 transparentcaption = “请输入编号”/.窗体描述(略)endend【代码5-2】attribute vb name = “form1”attribute vb_globalnamespace = falseattribute vb creatable = falseattribute vb predeclaredid = trueattribute vb_exposed = falseprivate sub form load （ ）list1.additem “a01001”list1.additem “a01002”end subprivate sub cormnand1 click （ ）dim myval as longfor i=0 to(1)(2)if(3)thenmsgbox “系统不允

人人文库> 全部分类> 生活休闲 > 科普知识

温馨提示

  • 1. 本站所有资源如无特殊说明，都需要本地电脑安装OFFICE2007和PDF阅读器。图纸软件为CAD,CAXA,PROE,UG,SolidWorks等.压缩文件请下载最新的WinRAR软件解压。
  • 2. 本站的文档不包含任何第三方提供的附件图纸等，如果需要附件，请联系上传者。文件的所有权益归上传用户所有。
  • 3. 本站RAR压缩包中若带图纸，网页内容里面会有图纸预览，若没有图纸预览就没有图纸。
  • 4. 未经权益所有人同意不得将文件中的内容挪作商业或盈利用途。
  • 5. 人人文库网仅提供信息存储空间，仅对用户上传内容的表现方式做保护处理，对用户上传分享的文档内容本身不做任何修改或编辑，并不能对任何下载内容负责。
  • 6. 下载文件中如有侵权或不适当内容，请与我们联系，我们立即纠正。
  • 7. 本站不保证下载资源的准确性、安全性和完整性, 同时也不承担用户因使用这些下载资源对自己和他人造成任何形式的伤害或损失。

最新文档

评论

0/150

提交评论