首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
阅读以下说明和Visual Basic代码,将应填入(n)处的字句写在对应栏内。 【说明】 在一些应用场合中,需要对用户的输入数据进行检查监控。以下VisualBasic程序实现了对新添加到 List列表的内容进行监控,拒绝向List列表添加重复信息
阅读以下说明和Visual Basic代码,将应填入(n)处的字句写在对应栏内。 【说明】 在一些应用场合中,需要对用户的输入数据进行检查监控。以下VisualBasic程序实现了对新添加到 List列表的内容进行监控,拒绝向List列表添加重复信息
admin
2009-02-15
82
问题
阅读以下说明和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://www.kaotiyun.com/show/esjZ777K
本试题收录于:
程序员下午应用技术考试题库软考初级分类
0
程序员下午应用技术考试
软考初级
相关试题推荐
在Access中,如果想要查询所有姓名为2个汉字的学生记录,在准则中应输入______。
计算机采用__________来处理数据。
以下叙述中,针对应用需求,(68)选用了不适当的信息处理方法。
人机交互界面有多种方式,不包括______。
Excel中,快捷功能按钮的功能是(51)。
社会问卷调查是一种常见的调查方法。设计问卷的注意事项中不包括(31)。
假设“EXAM.DOC”文件夹存储在“EXAM1”文件夹中,“EXAM1”文件夹存储在“EXAM2”文件夹中,“EXAM2”文件夹存储在F盘的根文件夹中,当前文件夹为“EXAM1”。那么,正确描述“EXAM.DOC”文件的绝对路径表示为(37)。
在Excel2003中,A1到E6单元格的值如下图所示,若在A7单元格中输入函数“=COUNTA(A1:E6)”,按回车键后,则A7单元格显示的值为(44)。
以下关于数字经济的叙述中,________________并不正确。
在Excel2010中,设单元格A1、B1、C1、A2、B2、C2中的值分别为1、2、3、4、5、6,若在单元格D1中输入函数“=MAX(A1:A2,B1:C2)”,按回车键后,则D1单元格中的值为(
随机试题
SomeUnusualCelebrationsWorriedaboutwhatpeoplearesayingaboutyou?Concernsaboutgossipcouldinfluencebehavior,i
A.浓缩白蛋白液B.新鲜冷冻血浆(FFP)C.浓缩红细胞D.浓缩粒细胞E.右旋糖酐治疗细菌性败血症
恶性肿瘤的临床和病理标志是
同一台水泵在选择管径时,吸水管比压水管要求的流速低,主要是考虑减小吸水管的水头损失,增加水泵的()。
工程项目风险识别,一般可按()途径进行风险分解。
全空气空调系统又分为()系统等。
某增值税一般纳税人,2014年7月1日,税务机关在检查时发现,企业将5月份销售粮食时另外收取的价外费用10000元,计入了营业外收入核算,要求企业在当月未补缴税款及滞纳金。该企业2014年7月销售收入为150000元,则在7月份的增值税纳税申报表中第1行“
______,______。______,______。盘餐市远无兼味,樽酒家贫只旧醅。肯与邻翁相对饮,隔篱呼取尽馀杯。—杜甫《客至》
InSeptember,morethanadozenwhalesbeachedthemselvesintheCanaryIslands.Rescuerstriedtowaterdownthewhalesandkee
PatrickBlackburnthinkssoftwaretestingis______.AccordingtoPatrickBlackburn,whatittakestosucceedatMicrosoftis
最新回复
(
0
)