首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
窗体上有一个名称为Combol的组合框,一个名称为Commandl的命令按钮。要求编写程序,在组合框中输入一个字符串,当单击命令按钮时,将该字符串逐项与组合框中原有列表项进行比较,若有相同列表项,则将其删除;若没有相同列表项,则将其添加到组合框中。现有人编
窗体上有一个名称为Combol的组合框,一个名称为Commandl的命令按钮。要求编写程序,在组合框中输入一个字符串,当单击命令按钮时,将该字符串逐项与组合框中原有列表项进行比较,若有相同列表项,则将其删除;若没有相同列表项,则将其添加到组合框中。现有人编
admin
2019-04-29
60
问题
窗体上有一个名称为Combol的组合框,一个名称为Commandl的命令按钮。要求编写程序,在组合框中输入一个字符串,当单击命令按钮时,将该字符串逐项与组合框中原有列表项进行比较,若有相同列表项,则将其删除;若没有相同列表项,则将其添加到组合框中。现有人编写如下程序,以期实现上述功能:
Private Sub Commandl_Click()
strl=Trim(Comb01.Text):flag=0
Ifstrl<>""Then
For i=0 To Combo1.ListCount一1
If strl=Combo1.List(i)Then
Combo1.Removeltem i:Combo1.Text=””:flag=1
End If
Next
If flag=1 Then
Combo 1.AddItem Combo 1.Text
End If
End Sub
程序中存在问题,以下关于程序问题的叙述中,正确的是
选项
A、For循环的循环初值i应该从1开始
B、语句Combo1.Removeltem i有错误
C、语句Combo1.Addltem Combo1.Text有错,Combo1.Text的内容已存在于组合框中
D、应把程序倒数第3行中的Ifflag=1改为lf flag=0
答案
D
解析
本题中首先用一个循环遍历组合框的所有列表项,依次取出每一个列表项与strl进行比较,若相同则删除该项,将flag置为1,否则flag为0:循环结束后如果flag的值为0则说明没有任何一个现有的列表项与strl相同,需要将strl添加到组合框中,否则不需添加。
转载请注明原文地址:https://kaotiyun.com/show/SGUp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
请根据以下各小题的要求设计VisualBasic应用程序(包括界面和代码)。在名称为Form1的窗体上画一个文本框,名称为Text1;再建立一个下拉菜单,菜单标题为“操作”,名称为M1,此菜单下含有两个菜单项,名称分别为Show和Hide,标题分别为
请根据以下各小题的要求设计VisualBasic应用程序(包括界面和代码)。在名称为Form1的窗体上画一个标签,名称为L1,标题为“业余爱好”,再画一个名称为Ch1的复选框数组,含三个复选框,它们的Index属性分别为0、1、2,标题依次为“体育”
在考生文件夹下有一个工程文件sjt3.vbp,在程序运行时,单击“输入整数”按钮,可以从键盘输入一个整数,并在窗体上显示此整数的所有不同因子和因子个数。如图3-137(a)是输入53后的结果,如图3-137(b)是输入100的结果。已经给出了全部控件和程序
请根据以下各小题的要求设计VisualBasic应用程序(包括界面和代码)。在名称为Form1的窗体上画一个名称为C1、标题为“改变颜色”的命令按钮,窗体标题为“改变窗体背景色”。编写程序,使得单击命令按钮时,将窗体的背景颜色改为红色(&HFF&)。
考生文件夹下的工程文件sjt5.vbp中的窗体如图3-162所示。考生文件夹下的随机文件in5.dat中有20条记录,每条记录含姓名和三个分数(均为100以内的正整数)。在程序中已经定义了类型Recordtype,此类型变量可以存放一条记录。要求如下:
考生文件夹下的工程文件sjt4.vbp中有如图3-161所示的控件。程序功能如下:程序运行时,在Text1中输入一个商品名称,在Text2中输入一个数量,单击“计算”按钮,则会在列表框中找到该商品的单价,乘以数量后显示在Text3中(如图3-161所示);
在名称为Form1的窗体中画一个名称为L1的标签,其标题为“0”,BorderStyle属性为1;再添加一个名称为Timer1的计时器。请设置适当的控件属性,并编写适当的事件过程,使得在运行时,每隔一秒钟标签中的数字加1。如图3-170所示的是程序刚启动时
下面函数的功能应该是:删除字符串str中所有与变量ch相同的字符,并返回删除后的结果。例如:若str=“ABCDABCD”,ch=“B”,则函数的返回值为:“ACDACD”Functiondelchar(strAsString,c
随机试题
某县政府发布通知,对直接介绍外地企业到本县投资的单位和个人按照投资项目实际到位资金金额的千分之一予以奖励。经张某引荐,某外地企业到该县投资500万元,但县政府拒绝支付奖励金。县政府的行为不违反的原则或要求有()。
患者,男,38岁。车祸致伤4小时,神志清醒,临床检查左小腿肿胀明显,张力大,触诊有压痛,小腿有异常活动,因疼痛患者不能配合检查。为明确诊断,此时最重要的辅助检查是
脑血栓形成最常见的病因是_______。
A.印戒细胞B.R—S细胞C.透明细胞D.组织细胞E.嗜银细胞霍奇金淋巴瘤可出现
水工建筑物的荷载按作用随时间的变异性,可分为()。
普通寿险是需要终身缴纳保费的终身寿险。下列关于普通寿险说法正确的是()。
会计职业道德中爱岗敬业的要求是会计人员热爱会计工作及()。
幼儿园大班每人发17张画片,小班每人发13张画片,大班人数是小班的3/5,小班比大班多发126张画片,那么小班有()人。
公司将于今年举办“创新产品展示说明会”,市场部助理小王需要将会议邀请函制作完成,并寄送给相关的客户。现在,请你按照如下需求,在Word.docx文档中完成制作工作:将文档中“会议议程:”段落后的7行文字转换为3列、7行的表格,并根据窗口大小自
以.txt为扩展名的文件通常是()。
最新回复
(
0
)