首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
窗体上有一个名称为Combo1的组合框,一个名称为Command1的命令按钮。要求编写程序,在组合框中输入一个字符串,当单击命令按钮时,将该字符串逐项与组合框中原有列表项进行比较,若有相同列表项,则将其删除;若没有相同列表项,则将其添加到组合框中。现有人编
窗体上有一个名称为Combo1的组合框,一个名称为Command1的命令按钮。要求编写程序,在组合框中输入一个字符串,当单击命令按钮时,将该字符串逐项与组合框中原有列表项进行比较,若有相同列表项,则将其删除;若没有相同列表项,则将其添加到组合框中。现有人编
admin
2016-09-19
39
问题
窗体上有一个名称为Combo1的组合框,一个名称为Command1的命令按钮。要求编写程序,在组合框中输入一个字符串,当单击命令按钮时,将该字符串逐项与组合框中原有列表项进行比较,若有相同列表项,则将其删除;若没有相同列表项,则将其添加到组合框中。现有人编写如下程序,以期实现上述功能:
Private Sub Command1_Click()
str1=Trim(Combo1.Text)
flag=0
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.AddItem Combo1.TeXt
End If
End Sub
程序中存在问题,以下关于程序问题的叙述中,正确的是
选项
A、For循环的循环初值i应该从1开始
B、语句Combo1.RemoveItem i有错误
C、语句Conabo1.AddItemCombo1.Text有错,Combo1.Text的内容已存在于组合框中
D、应把程序倒数第3行中的If flag=1改为If flag=0
答案
D
解析
本题中首先用一个循环遍历组合框的所有列表项,依次取出每一个列表项与str1进行比较,若相同则删除该项,将flag置为1,否则flag为0;循环结束后如果flag的值为0则说明没有任何一个现有的列表项与str1相同,需要将str1添加到组合框中,否则不需添加。
转载请注明原文地址:https://kaotiyun.com/show/EdLp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
窗体的Enable属性的值是()类型的数据。
执行以下程序段后,x的值为()。DimxAsInteger,iAsIntegerx=0Fori=20To0Step-2 x=x+i\5Nexti
单击命令按钮时,下列程序代码的执行结果为()。PrivateFunctionFirProc(xAsInteger,yAsInteger,zAsInteger) FirProc=2*x+y+3*zEndF
有以下程序:SubsubP(b()AsInteger) Fori=1To4 b(i)=2*i NextiEndSubPrivateSubCommand1_Click()Dim
将一个窗体设置为MDI子窗体的方法是
单击命令按钮时,下列程序的运行结果为PrivateSubCommand1_Click() PrintFun(23,18)EndSubPublicFunctionFun(mAsInteger,nAsInte
编写如下事件过程:PrivateSubForm_KeyDown(KeyCodeAsInteger,ShiftAsInteger)If(ButtonAnd3)=3ThenPrint“AAAA”EndIf
下列叙述中正确的是()。
在程序运行时,下面的叙述中正确的是()。
下列方法中,不属于软件调试方法的是()。
随机试题
Withanappropriateconjunct:Itrainedheavilylastnight,_______alltheflowersaregone.
对粘膜下注射法治疗脱肛的描述不正确的是:
既能测量各种土或路面材料的密实度,又能测量其含水量的试验方法是()。
下列情景中,当事人对债权请求权提出的诉讼时效抗辩,法院予以支持的是()。
中国资产评估协会于()年加人国际评估准则委员会。
根据《中华人民共和国银行业监督管理法》规定,银行业监督管理的目标是()。
()在物流活动转换中起承上启下的联结作用。
教育就是指学校教育。
以下程序的运行结果是【】。#include<iostream.h>func(inta,intb){statlCintm=0,i=2;i+=m+1;m=i+a+b;returnm;
Whatdoesthespeakermean?
最新回复
(
0
)