首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
窗体上有一个名称为Combo1的组合框,一个名称为Command1的命令按钮。要求编写程序,在组合框中输入一个字符串,当单击命令按钮时,将该字符串逐项与组合框中原有列表项进行比较,若有相同列表项,则将其删除;若没有相同列表项,则将其添加到组合框中。现有人编
窗体上有一个名称为Combo1的组合框,一个名称为Command1的命令按钮。要求编写程序,在组合框中输入一个字符串,当单击命令按钮时,将该字符串逐项与组合框中原有列表项进行比较,若有相同列表项,则将其删除;若没有相同列表项,则将其添加到组合框中。现有人编
admin
2015-10-23
29
问题
窗体上有一个名称为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/oHLp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
在窗体上画一个图片框,再在图片框中画一个命令按钮,位置如图所示,则命令按钮的Top属性值是()。
一个变量未被显式定义,末尾没有类型说明符,则该变量的隐含类型是______类型。
启动VB6.0默认的工程类型是______。
结构化程序设计主要强调的是
下面的数组声明语句中正确的是
下面程序的功能是产生10个小于100(不含100)的随机正整数,并统计其中5的倍数所占比例,但程序不完整,请补充完整。SubPR()RandomizeDima(10)Forj=1To10a(i)=Int(【】)If【
双击窗体中的对象后,VisualBasic将显示的窗口是
在VisualBasic的立即窗口内输入以下语句X=97?Chr$(X)在窗口中显示的结果是【】。
声明一个变量为局部变量应该用
Print方法可以在对象上输出数据,这些对象包括
随机试题
临床上颈部皮肤浸润麻醉的阻滞点是()。
旋压一般用于加工厚度在2mm以下的碳钢或厚度在3mm以下的有色金属零件。对于较厚的零件必须采用________施压。
关于机械进风系统,下列叙述错误的是()。
2011年1月1日,A公司销售产品一批给B公司,价税合计为1000万元,款项尚未收到。因B公司发生财务困难,至12月31日A公司仍未收到款项,A公司为该应收账款计提坏账准备100万元。2011年12月31日,B公司与A公司协商,达成重组协议如下:(
我们宣传思想工作,必须以科学的理论____________人,以正确的舆论____________人,以高尚的精神____________人,以优秀的作品____________人,不断培养和适就一代又一代有文化,有纪律的社会主义新人。依次填入横线部分
防火墙是设置在可信任网络和不可信任网络之间的—道屏障,其目的是______。
下列选项中,值为1的表达式是()。
Readthearticlebelowaboutstaffsurveys.ChoosethecorrectwordtofilleachgapfromA,BorContheoppositepage.Fo
positiondefineforgetfulfancykeybalanceimportanceunhealthylacksubjectope
Youradvicewouldbe_______valuabletohim,whoisnowatalossastowhattodofirst.
最新回复
(
0
)