首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
窗体上有一个名称为Combo1的组合框,一个名称为Command1的命令按钮。要求编写程序,在组合框中输入一个字符串,当单击命令按钮时,将该字符串逐项与组合框中原有列表项进行比较,若有相同列表项,则将其删除;若没有相同列表项,则将其添加到组合框中。现有人编
窗体上有一个名称为Combo1的组合框,一个名称为Command1的命令按钮。要求编写程序,在组合框中输入一个字符串,当单击命令按钮时,将该字符串逐项与组合框中原有列表项进行比较,若有相同列表项,则将其删除;若没有相同列表项,则将其添加到组合框中。现有人编
admin
2019-03-14
69
问题
窗体上有一个名称为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/wZFp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
下面对对象概念描述正确的是
在VisualBasic标准工具栏中,"菜单编辑器"的图标是
如果在窗体模块中所有程序代码的前面有语句:Dimx,则x是( )。
为把圆周率的近似值3.14159存放在变量pi中,应该把变量pi定义为( )。
执行以下程序段:a$="VisualBasicProgramming"b$="C++"c$=UCase(Left$(a$,7))&b$&Right$(a$,12)后,变量c$的值为( )。
编写如下程序:PrivateSubForm_Click()Dimaa=Array(1,2,3,4,5,6,7,8,9,10)n=InputBox("请输入一个小于10的正整数")i
有如下数据定义语句:Dima,bAsIntegerDimx%,yasInteger执行上述语句后,不是整型变量的是
考生文件夹下有一个工程文件sjt5.vbp,窗体上有两个文本框,名称分别为Text1、Text2,都可以多行显示。还有三个命令按钮,名称分别为C1、C2、C3,标题分别为“取数”、“排序”、“存盘”。“取数”按钮的功能是将考生文件灾下的in5.dat文件中
下面对对象概念描述正确的是
下面的数写成普通十进制数是()。8.6787E+8
随机试题
Anumberofrecentbookshavereworkedsubjects,formsandwritingtechniques.Today’schildrenreadstoriesaboutdivorce,deat
文件有两种类型,可执行文件和非可执行文件。下列()不是可执行文件的扩展名。
产生ADH分泌异常增多症的原因是
文件命名时可以出现在文件名中的是
常用的不确定性决策方法包括()等。
依据施工合同通用条款的规定,竣工工程必须符合的基本要求有( )。
稳态火灾的热释放速率可以用()的第一个洒水喷头启动时的火灾规模来判断。
企业财产清查后,据以填制待处理财产盘盈、盘亏记账凭证的原始凭证是( )。
在分布式数据库中,查询处理和优化比集中式数据库要复杂得多,其中查询优化需要考虑的主要因素包括L/O代价、CPU代价和通信代价。一般而言,分布式数据库查询优化的首要目标是()。
DearMr.Brown.Thankyouforyourletterof6SeptemberregardingMr.JohnGreenwhohasbeenemployedbythiscompanyfort
最新回复
(
0
)