首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
阅读以下说明和Visual Basic代码,将应填入(n)处的字句写在对应栏内。 【说明】 在一些应用场合中,需要对用户的输入数据进行检查监控。以下VisualBasic程序实现了对新添加到 List列表的内容进行监控,拒绝向List列表添加重复信息
阅读以下说明和Visual Basic代码,将应填入(n)处的字句写在对应栏内。 【说明】 在一些应用场合中,需要对用户的输入数据进行检查监控。以下VisualBasic程序实现了对新添加到 List列表的内容进行监控,拒绝向List列表添加重复信息
admin
2009-02-15
78
问题
阅读以下说明和Visual Basic代码,将应填入(n)处的字句写在对应栏内。
【说明】
在一些应用场合中,需要对用户的输入数据进行检查监控。以下VisualBasic程序实现了对新添加到 List列表的内容进行监控,拒绝向List列表添加重复信息。例如,在List列表中存在元素“a01001;a01002”,如果用户输入数据为“a01001”或“a01002”,系统则弹出提示信息,拒绝将新数据加入List列表;如果用户输入的数据不同于List列表中的任何一个元素,则作为新元素加入List中。VisualBasic界面显示如图所示。根据程序功能说明,完成程序代码。
【代码5-1】
Begin VB.Form Forml
Caption = "List 列表拒绝添加重复信息"
//...窗体描述(略)
Begin VB.CommandButton Command2
Caption = "退出"
//...窗体描述(略)
End
Begin VB.CommandButton Commandl
Caption = "添加"
//...窗体描述(略)
End
Begin VB.TextBox Text1
//...窗体描述(略)
End
Begin VB.ListBox List1
Height = 1860
ItemData = "Form1.fix": 0000
Left = 1020
List = "Form1.fix": 0002
TabIndex = 0
Top = 525
Width = 2580
End
Begin VB.Labe1 Labe11
BackStyle = 0 ’Transparent
Caption = "请输入编号"
//...窗体描述(略)
End
End
【代码5-2】
Attribute VB Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB Creatable = False
Attribute VB PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Form Load ()
List1.AddItem "a01001"
List1.AddItem "a01002"
End Sub
Private Sub Cormnand1 Click ()
Dim Myval As Long
For i=0 To (1)
(2)
If (3) Then
MsgBox "系统不允许重复输入,请重新输入"
Exit Sub
End If
(4)
(5)
End Sub
选项
答案
为所有的列表个数;(2)、(3)实现了List列表的内容进行监控,避免重复;(4)为循环控制变量i更新;(5)Lis列表的内容进行监控时数据合格,没有重复,接受。 (1)List1.ListCount-1 (2) List1.ListIndex = i (3) List1.Text = Text1.Text Then (4) Next i (5) List1.Addltem Text1.Text
解析
转载请注明原文地址:https://kaotiyun.com/show/esjZ777K
本试题收录于:
程序员下午应用技术考试题库软考初级分类
0
程序员下午应用技术考试
软考初级
相关试题推荐
在数据库中能够唯一标识一个元组的属性或属性的组合称为()。
某单位需要使用浓度为15%的盐水750克,但只有浓度20%和5%的两种盐水。经过计算,将浓度20%和5%的盐水分别取()克混合后就能达到要求。
在某机床上加工一批零件,要求其直径控制在1.5±0.2cm。检验员定时抽查测量了产品的直径,并绘制了如下的质量控制图。检验结论是:有()次检查发现质量问题,需要进一步查明原因并改进。
PowerPoint内置的动画效果中,不包括(60)。
某年级有甲乙两班,在最近举行的全年级数学考试中,甲班平均成绩为P,乙班平均成绩为Q,甲班人数占全年级的比例为α,则全年级的平均成绩为()。
在信息收集过程中,需要根据项目的目标把握数据(7)________________要求,既不要纳入过多无关的数据,也不要短缺主要的数据;既不要过于简化,也不要过于烦琐。
在WPS文字中,由“字体”“字号”“粗体”“斜体”“两端对齐”等按钮组成的工具栏是________________。
操作系统的资源管理功能不包括________________。
在Excel2010中,设单元格A1、B1、C1、A2、B2、C2中的值分别为1、2、3、4、5、6,若在单元格D1中输入函数“=MAX(A1:A2,B1:C2)”,按回车键后,则D1单元格中的值为(
某班级有40名学生,本次数学考试大多在80分上下。老师为了快速统计平均分,对每个学生的分数按80分为基准,记录其相对分(多出的分值用正数表示,减少的分值用负数表示,恰巧等于80分时用0表示),再统计出各种相对分的人数,如下表:根据上表可推算出,这次考试
随机试题
企业培训的主要形式是()
肾盂肾炎患者的饮食护理应是()。
A.MCV正常,MCH正常,MCHC正常B.MCV>正常,MCH>正常,MCHC正常C.MCV>正常,MCH>正常,MCHC>正常D.MCV<正常,MCH<正常,MCHC<正常E.MCV<正常,MCH<正常,MCHC正常急性失血性贫血
哪种食物中的铁容易被人体吸收
中等卫校毕业生林某,在乡卫生院工作,2000年取得执业助理医师执业证书。他要参加执业医师资格考试,根据《执业医师法》规定,取得执业助理医师执业证书后,在医疗机构中工作满
根据工程、系统生命周期和评价的目的,安全评价分为()。
以下不属于员工信息内容的是()。
()是影响教师成长的深层心理活动,是其教学行为的基本理性支点,它在教师选择教学目标和认知策略以完成工作任务中起导向作用。
Envyandjealousyofotherpeopleandtheirlivesbecome______onceyoustartbelievinginyourself.
()政府议案()人权()罪犯()著作权法
最新回复
(
0
)