首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
窗体上有一个名称为Combo1的组合框,一个名称为Command1的命令按钮。要求编写程序,在组合框中输入一个字符串,当单击命令按钮时,将该字符串逐项与组合框中原有列表项进行比较,若有相同列表项,则将其删除;若没有相同列表项,则将其添加到组合框中。现有人编
窗体上有一个名称为Combo1的组合框,一个名称为Command1的命令按钮。要求编写程序,在组合框中输入一个字符串,当单击命令按钮时,将该字符串逐项与组合框中原有列表项进行比较,若有相同列表项,则将其删除;若没有相同列表项,则将其添加到组合框中。现有人编
admin
2019-04-29
31
问题
窗体上有一个名称为Combo1的组合框,一个名称为Command1的命令按钮。要求编写程序,在组合框中输入一个字符串,当单击命令按钮时,将该字符串逐项与组合框中原有列表项进行比较,若有相同列表项,则将其删除;若没有相同列表项,则将其添加到组合框中。现有人编写如下程序,以期实现上述功能:
Private Sub Command1_Click()
str1=Trim(Combo1.Text)
flag=0
If str1<>""Then
For i=0 To Combo1.ListCount-1
If str1=Combo1.List(i)Then
Combo1.RemoveItemi:Combo1.Text=""
flag=1
End If
Next
If flag=1Then
Combo1.AddItem Combo1.Text
End If
End Sub
程序中存在问题,以下关于程序问题的叙述中,正确的是
选项
A、For循环的循环初值i应该从1开始
B、语句Combo1.RemoveItemi有错误
C、语句Combo1.AddItemCombo1.Text有错,Combo1.Text的内容已存在于组合框中
D、应把程序倒数第3行中的If flag=1改为If flag=0
答案
D
解析
本题中首先用一个循环遍历组合框的所有列表项,依次取出每一个列表项与str1进行比较,若相同则删除该项,将flag置为1,否则flag为0;循环结束后如果flag的值为0则说明没有任何一个现有的列表项与str1相同,需要将str1添加到组合框中,否则不需添加。
转载请注明原文地址:https://kaotiyun.com/show/thUp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
在窗体上有两个名称分别为Text1、Text2的文本框.一个名称为Command1的命令按钮运行后的窗体外观如图所示。设有如下的类型和变量声明:PrivateTypePersonNameAsString*8:MajorAsStri8ng*
窗体上有一个名称为Commandl的命令按钮,要求编写程序,把文件f1.txt的内容写到文件f2.txt中,然后将f1.txt删除。命令按钮的单击事件过程如下:PrivateSubCommandlClick()Open“carl.txt”For
以下关于文件的叙述中,错误的是
设窗体上有2个文本框Textl和Text2,并有下面的事件过程:DimnPrivateSubText1.KeyPress(KeyAsciiAsInteger)If“A”
窗体上有一个Textl文本框,一个Cornmandl命令按钮,并有以下程序:PrivateSubCommandlclick()DimnIfText1.Text<>“123456”Thenn=n+1:Print“口令输入错误”&n&”次”
以下叙述中错误的是
下面()不是VB的文件系统控件。
在考生文件夹下有一个工程文件sjt5.vbp,窗口有2个名称分别为Command1和Command2、标题分别为“读数据”和“排序”的命令按钮,有2个标题分别为“数组A”和“数组B”的标签。请将窗体标题设置为“完全平方数排序”:再画2个名称分别为Text1
设数据集合为D={1,2,3,4,5},下列数据结构B=(D,R)中为非线性结构的是()。
表达式5^5\5*5/5Mod5的值是()。
随机试题
Theoutsideworldbeginscreepingintotheschoolwhenthechildrenreachtheageof13andolder,theagewhentheybegintoma
舌强不能言,足废不能用,口干不欲饮,足冷面赤,脉沉细弱,宜选用
患者女,8岁。不自主的舞蹈样动作,语音不清,走路不稳,眼角膜边上形成黄绿色沉积环。该病可能与下列哪种元素代谢异常有关
A.2kcalB.4kcalC.7kcalD.9kcalE.11kcal
患儿女,2岁。流涕伴发热1天,发热38.5℃左右,今起出疹,由面颊迅速扩展到躯干四肢。T37.8℃,P112次/分,R50次/分。皮疹为红色斑丘疹,颜面、四肢皮疹较稀疏,背部皮疹较密集,有部分融合。咽充血,扁桃体稍大,充血。耳后及颈部数个淋巴结黄豆大小
患者,男性,72岁。吸烟指数1200,近半年有咳嗽,痰中带血丝,近2个月出现声嘶。查体:右锁骨上窝触及一肿大淋巴结,质硬,无压痛。则可能的诊断为
按照速度对称原理,下列情况中,属于商业银行资产运用不足的是()。
《香港特别行政区基本法》为香港社会的长治久安和繁荣发展提供了有力保障。下列有权修改《香港特别行政区基本法》的是()。
决策支持系统的特点之一是
ComputerandSchoolEducationTherewasatimewhenparentswhowantedaneducationalpresentfortheirchildrenwouldbuya
最新回复
(
0
)