首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
窗体上有一个名称为Combo1的组合框,一个名称为Command1的命令按钮。要求编写程序,在组合框中输入一个字符串,当单击命令按钮时,将该字符串逐项与组合框中原有列表项进行比较,若有相同列表项,则将其删除;若没有相同列表项,则将其添加到组合框中。现有人编
窗体上有一个名称为Combo1的组合框,一个名称为Command1的命令按钮。要求编写程序,在组合框中输入一个字符串,当单击命令按钮时,将该字符串逐项与组合框中原有列表项进行比较,若有相同列表项,则将其删除;若没有相同列表项,则将其添加到组合框中。现有人编
admin
2015-08-28
51
问题
窗体上有一个名称为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/ldQp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
在设计应用程序时,通过______窗口可以查看到应用程序工程中的所有组成部分。
执行下列语句后整型变量a的值是______。If(3-2)>2Thena=10ElseIf(10/2)=6Thena=20Elsea=30EndIf
如果要向工具箱中加入控件和部件,可以利用“工程”菜单中的______命令。
一棵二叉树第6层(根结点为第一层)的结点最多为______个。
下列程序运行后在立即窗口输出结果是()。PrivateSubForm_Click()x="a":y="b"z=1:u=2Debug.Printx;y,z;u
在窗体上画一个命令按钮,然后编写如下事件过程:OptionBase1PrivateSubCommand1_Click()Dimaa=Array(1,2,3,4)j=1Fori=4To1Step-1s=s+a(i)*j
结构化程序设计主要强调的是______。
开发软件时对提高开发人员的工作效率至关重要的是______。
表达式Len(Str(1.3))Mod2的值为______。
下列关于复选框的说法,正确的是()。
随机试题
新民主主义革命总路线的主要内容是什么?
根据思维探索答案的方向不同可以把思维分为()、()。
广义的信息资源包罗了信息运动中的各个要素,包括
女,35岁。局麻下行右乳房脓肿切开术,术中病人突然烦躁,呼吸快,脉快,血压160/90mmHg。首项工作是
关于仲裁的争端解决方式,下列说法不正确的是()。
城市给水管网中,平行的干管间距和连通管间距分别为()m和()m。
评估受训人员对培训开发的主观感受和看法,属于培训与开发效果评估中的()。
甲企业为增值税一般纳税人,向乙企业销售货物8万件,每件不含税销售价格为60元。由于乙企业购买量大,甲企业给予乙企业7折优惠,并在同一张发票的“备注”栏分别注明了销售额和折扣额,则甲企业此项业务的增值税销项税额是()万元。
摄氏温度是一种()。
ArecurringcriticismoftheU.K.’suniversitysectorisitsperceivedweaknessintranslatingnewknowledgeintonewproducts
最新回复
(
0
)