首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
窗体上有一个名称为Combo1的组合框,一个名称为Commandl的命令按钮。要求编写程序,在组合框中输入一个字符串,当单击命令按钮时,将该字符串逐项与组合框中原有列表项进行比较,若有相同列表项,则将其删除;若没有相同列表项,则将其添加到组合框中。现有人编
窗体上有一个名称为Combo1的组合框,一个名称为Commandl的命令按钮。要求编写程序,在组合框中输入一个字符串,当单击命令按钮时,将该字符串逐项与组合框中原有列表项进行比较,若有相同列表项,则将其删除;若没有相同列表项,则将其添加到组合框中。现有人编
admin
2016-06-23
41
问题
窗体上有一个名称为Combo1的组合框,一个名称为Commandl的命令按钮。要求编写程序,在组合框中输入一个字符串,当单击命令按钮时,将该字符串逐项与组合框中原有列表项进行比较,若有相同列表项,则将其删除;若没有相同列表项,则将其添加到组合框中。现有人编写如下程序,以期实现上述功能:
Private Sub Command1_Click()
str1=Trim(Combo1.Text)
flag=O
If str1< >""Then
For i=0 To Combo1.ListCount-1
If str1=Combo1.List(i) Then
Combo1.RemoveItem i
Combo1.Text=""
flag=1
End If
Next
If flag=1 Then Combo1.Addhem
Combo1.Text
End If
End Sub
程序中存在问题,以下关于程序问题的叙述中,正确的是
选项
A、For循环的循环初值i应该从1开始
B、语句Combo1.Removeltem i有错误
C、语句Combo1.Addltem Combo1.Text有错,Combo1.Text的内容已存在于组合框中
D、应把程序倒数第3行中的If flag=1改为If flag=0
答案
D
解析
组合框的LastCount从0开始;RemoveItem和AddItem后面跟的是索引。根据题意,在没有相同列表项时需要添加,所以语句应该为flag=0。选D。
转载请注明原文地址:https://jikaoti.com/ti/q9J0FFFM
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
在窗体上画一个命令按钮(其Name属性为Command1),然后编写如下代码:PrivateSubCommand1_Click()Dima(5,5) Fori=1To3 Forj=1To4
能触发滚动条Scorll事件的操作是()。
在KeyPress事件过程中,KeyAscii是所按键的______值。
阅读程序:OptionBase1Dimart()AsIntegerPrivateSubForm_Click()DimiAsInteger,jAsIntegerReDimarr(3,2)
当循环队列非空且队尾指针等于队头指针时,说明循环队列已满,不能进行人队运算,这种情况称为______。
下列关于DO…Loop语句的叙述不正确的是()。
在窗体上画一个名为Command1的命令按钮,其Command1_Click事件过程如下:SubCommand1_Click()DimstudentAsstudtypeDimrecord_noAsInteger
在窗体上画一个名称为Command1的命令按钮,然后编写如下事件过程:PrivateSubCommand1_Click() Forn=1To20 IfnMod3<>0Thenin=m+n/3 N
需求分析阶段的任务是确定
数据库设计的四个阶段是:需求分析、概念设计、逻辑设计和()。
随机试题
Theteacher,with6girlsand8boysofherclass,______visitingamuseumwhentheearthquakestruck.
对于毒性弥漫性甲状腺肿患者下列治疗错误的是
债券收益率曲线通常表现的形态包括()。
关于导游中整体介绍部分,下列表述有误的是()。
人格心理学的主要研究领域有()。
阿伏伽德罗提出了原子-分子论。自从用原子-分子论研究化学反应后,化学才开始成为一门真正的科学。阿伏伽德罗的国籍是()。
技能学习最基本的条件是讲解。()
从重从快惩处严重刑事犯罪分子的前提是()。
在一棵表示有序集S的二叉搜索树(binarysearchtree)中,任意一条从根到叶结点的路径将S分为3部分:在该路径左边结点中的元素组成的集合S1;在该路径上的结点中的元素组成的集合S2;在该路径右边结点中的元素组成的集合S3。S=S1∪S2∪S3
A、 B、 C、 D、 B
最新回复
(
0
)