首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
窗体上有一个名称为Combo1的组合框,一个名称为Command1的命令按钮。要求编写程序,在组合框中输入一个字符串,当单击命令按钮时,将该字符串逐项与组合框中原有列表项进行比较,若有相同列表项,则将其删除;若没有相同列表项,则将其添加到组合框中。现有人编
窗体上有一个名称为Combo1的组合框,一个名称为Command1的命令按钮。要求编写程序,在组合框中输入一个字符串,当单击命令按钮时,将该字符串逐项与组合框中原有列表项进行比较,若有相同列表项,则将其删除;若没有相同列表项,则将其添加到组合框中。现有人编
admin
2018-05-08
15
问题
窗体上有一个名称为Combo1的组合框,一个名称为Command1的命令按钮。要求编写程序,在组合框中输入一个字符串,当单击命令按钮时,将该字符串逐项与组合框中原有列表项进行比较,若有相同列表项,则将其删除;若没有相同列表项,则将其添加到组合框中。现有人编写如下程序,以期实现上述功能:
Private Sub Command1_Click()
str1 = Trim(Combo1.Text)
flag=0
If str1
= 0 To Combo1.ListCount - 1
If str1 = Combo1.List(i) Then
Combo1.RemoveItem i
Combo1.Text = ""
fl<> "" Then
For i ag=1
End If
Next
If flag=1 Then Combo1.AddItem Combo1.Text
End If
End Sub
程序中存在问题,以下关于程序问题的叙述中,正确的是
选项
A、For循环的循环初值i应该从1开始
B、语句Combo1.RemoveItem i有错误
C、语句Combo1.AddItem Combo1.Text有错,Combo1.Text的内容已存在于组合框中
D、应把程序倒数第3行中的If flag=1 改为 If flag=0
答案
D
解析
组合框的ListCount从0开始;RemoveItem和AddItem后面跟的是索引。根据题意,在没有相同列表项时需要添加,所以语句应该为flag = 0。选D)。
转载请注明原文地址:https://kaotiyun.com/show/ycGp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
数据库设计包括两个方面的设计内容,它们是
单击命令按钮时,下列程序的执行结果是PrivateSubCommand1_Click()DimaAsInteger,bAsInteger,cAsIntegera=
在窗体上画一个名称为Command1的命令按钮,然后编写如下事件过程:PrivateSubCommand1_Click()DimkAsIntegerFori=1To3k=i
编写如下事件过程:PrivateSubFormKeyDown(KeyCodeAsInteger,ShiftAsInteger)PrintChr(KeyCode)EndSubPr
下列关于菜单的说法错误的是()。
软件按功能可以分为应用软件、系统软件和支撑软件(或工具软件)。下面属于应用软件的是
将E-R图转换为关系模式时,实体和联系都可以表示为
执行下面的程序段后,变量S的值为()。S=5Fori=2.6To4.9Step0.6S=S+lNexti
若实体A和B是一对多的联系,实体B和C是一对一的联系,则实体A和C的联系是
一间宿舍可住多个学生,则实体宿舍和学生之间的联系是( )。
随机试题
一般认为角膜缘的后界止于
急性期血吸虫病最常见的临床特征是有症状型慢性期血吸虫病最常见的临床症状是
麻醉药品包括
专家认为最符合现代经销观念的组织是()。
下列哪个场所或部位,可以不考虑设置可燃气体报警装置?
冲刷防护中丁坝的横断面一般为()。
下列井道防火分隔要求中,说法错误的有()。
违反会计法律制度规定行为应承担的法律责任包括( )。
巨额赎回是指开放式基金单个开放日基金净赎回申请超过基金总份额的()。
假如我和你辩论,我们之间能够分出真假对错吗?我和你都不知道,而所有其他的人都有成见,我们请谁来评判?请与你观点相同的人来评判。他既然与你观点相向,怎么能评判?请与我观点相同的人来评判。他既然与我观点相同,怎么能评判?请与你、我的观点都不相同的人来评判。他既
最新回复
(
0
)