首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
窗体上有一个名称为Combo1的组合框,一个名称为Command1的命令按钮。要求编写程序,在组合框中输入一个字符串,当单击命令按钮时,将该字符串逐项与组合框中原有列表项进行比较,若有相同列表项,则将其删除;若没有相同列表项,则将其添加到组合框中。现有人编
窗体上有一个名称为Combo1的组合框,一个名称为Command1的命令按钮。要求编写程序,在组合框中输入一个字符串,当单击命令按钮时,将该字符串逐项与组合框中原有列表项进行比较,若有相同列表项,则将其删除;若没有相同列表项,则将其添加到组合框中。现有人编
admin
2019-07-30
72
问题
窗体上有一个名称为Combo1的组合框,一个名称为Command1的命令按钮。要求编写程序,在组合框中输入一个字符串,当单击命令按钮时,将该字符串逐项与组合框中原有列表项进行比较,若有相同列表项,则将其删除;若没有相同列表项,则将其添加到组合框中。现有人编写如下程序,以期实现上述功能:
Private Sub Command1_Click()
str1=Trim(Combo1.Text):flag=0
If str1<>””Then
For i=0 To Combol.ListCount—1
If str1=Combo1.List(i)Then
Combol.Removeltem i:Combol.TeXt=””:flag=1
End If
Next
Ifflag=1 Then
Combol.Addltem Combol.Text
End If
End Sub
程序中存在问题,以下关于程序问题的叙述中,正确的是
选项
A、For循环的循环初值i应该从1开始
B、语句Combol.RemoveItem i有错误
C、语句Combol.AddItem Combol.Text有错,Combol.Text的内容已存在于组合框中
D、应把程序倒数第3行中的Ifflag=1改为Ifflag=0
答案
D
解析
本题中首先用一个循环遍历组合框的所有列表项,依次取出每一个列表项与str1进行比较,若相同则删除该项,将flag置为1,否则。flag为1;循环结束后如果flag的值为0则说明没有任何一个现有的列表项与str1相同,需要将str1添加到组合框中,否则不需添加。
转载请注明原文地址:https://kaotiyun.com/show/2lUp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
在考生目录下有一个工程文件sjt5.vbp。窗体左边的图片框名称为Picture1,框中还有六个小图片框,它们是一个数组,名称为Pic,在窗体右边从上到下有三个显示不同物品的图片框,名称分别为Picture2、Picture3、Picture4,还有一个文
请根据以下各小题的要求设计VisualBasic应用程序(包括界面和代码)。(1)在名称为Form1的窗体上画出如图3—46所示的三角形。下表给出了直线Line1、Line2的坐标值,请按此表画Line1、Line2,并画出直线Line3,从而组成如图
在考生文件夹中有一个工程文件sjt5.vbp。窗体外观如图3—169所示。运行程序,单击“读数据”按钮,文件中的数据被读入字符串变量中并显示在Label2标签中。单击“排序”按钮时,对读入的数据从小到大排序,并将排序结果显示在窗体的Label4控件中。要求
某人设计了如下程序用于计算并输出7!(7的阶乘)PrivateSubCommand1_Click()t=0Fork=7To2Step-1t=t*kNextPritetEnd
现有语句:y=IIf(x>0,xMod3,0)设x=10,则y的值是
设在窗体上有一个名称为Check1的复选框数组,并有以下事件过程:PrivateSubCheck1_Click(IndexAsInteger)…EndSub则下面叙述中错误的是
设有如下通用过程:PublicFunctionf(xAsInteger)DimyAsIntegerx=20:y=2:f=x*yEndFunction在窗体上画一个命令按钮,其名称为Comma
设窗体上有一个名称为List1的列表框,并有若干列表项。下面语句中不能在所有列表项之后追加一个列表项的是
表达式2*3^2+4*2/2+3^2的值是
随机试题
急性硬膜外血肿的手术治疗,以下哪项是错误的
旋毛虫病是严重危害公共卫生的重要人畜共患病。该病的诊断不能采取的方法是
A.阳证肿疡B.一切溃疡C.蛇串疮D.内痔E.血栓痔
A.毒性噬菌体B.温和噬菌体C.溶原性噬菌体D.前噬菌体E.L型细菌带有前噬菌体的基因的细菌称为
下列不属于对利润的审查方面的是()
根据《行政复议法》的规定,下列项目中,对行政机关作出的决定不服不能提起行政复议的有()。
DHCP协议的功能是(40)。在Linux中提供DHCP服务的程序是(41);DHCP服务将主机的MAC地址和IP地址绑定在一起的方法是在(42)文件中添加"host主机名{hardwareEthernetxx.xx.xx.xx.xx.xxfixe
TheManWiththenameJackisarunner.TheMan______isarunner.
Itissimpleenoughtosaythatsincebookshaveclasses—fiction,biography,poetry—weshouldseparatethemandtakefromeachw
Youshouldstartyouressaywithabriefdescriptionofthepictureandthendiscusswhethergoodacademicperformanceequalsto
最新回复
(
0
)