首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
设窗体上有Text1文本框和Commandl命令按钮,并有以下程序: Private Sub Commandl Click() tempS:“” Fork=1 ToLen(Text1) ch$=
设窗体上有Text1文本框和Commandl命令按钮,并有以下程序: Private Sub Commandl Click() tempS:“” Fork=1 ToLen(Text1) ch$=
admin
2012-05-23
22
问题
设窗体上有Text1文本框和Commandl命令按钮,并有以下程序:
Private Sub Commandl Click() tempS:“”
Fork=1 ToLen(Text1)
ch$=Mid(Text1,k,1)
If Not found(temp,ch)Then
temp=temp&【 】
End If
Next k
Text1=【 】
EndSub
Private Function found(str As String,ch As String)As Boolean
Fork=1 ToLen(str)
If ch=Mid(str,k,1)Then
found=【 】
Exit Function
End If
Next k
found=False
End Function
运行时,在文本框中输入若干英文字母,然后单击命令按钮,则可以删去文本框中所有重复的字母。例如,若文本框中原有字符串为“abcddbbc”,则单击命令按钮后文本框中字符串为“abcd”。其中函数found的功能是判断字符串str中是否有字符ch,若有,函数返回True,否则返回False。请填空。
选项
答案
ch temp True
解析
在本题的单击事件中,首先利用循环取出文本框中的每一位字符,然后依次进行比较看该字符是否在结果串temp中出现,若未出现则证明该字符尚未重复,所以将该字符ch连接到结果串temp中,当循环结束后temp中的字符必然是没有重复值的,所以要将temp的值放到Text1中进行输出;在foulld函数中判断在给定字符串str中是否存在子串cb,方法是依次取出str中每一个字符与ch进行比较,若发现相等则证明存在ch子串,此时应该返回True证明找到字串随之退出函数;若循环结束后依然没有退出循环则证明没有找到,返回False。
转载请注明原文地址:https://kaotiyun.com/show/BPhp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
在深度为5的满二叉树中,叶子结点的个数为______。
窗体文件的扩展名是
在窗体上画两个文本框,其名称分别为Text1和Text2,然后编写如下事件过程:PrivateSubForm_Load()ShowText1.Text=""TextText=""TextS
在窗体上画一个名称为Command1的命令按钮,然后编写如下代码:OPtionBaselPrivateSubCommandl_Click()d=0c=10x
窗体的MouseDown事件过程 Form_MouseDown(Button As Integer,Shift As Integer,X As SinSle,Y As Single)有4个参数,关于这些参数,正确的描述是
如果要改变窗体的标题,则需要设置的属性是
程序运行后,在窗体上单击鼠标,此时窗体不会接收到的事件是
数据结构中,与所使用的计算机无关的是数据的_________。
栈和队列通常采用的存储结构是【】。
以下关系表达式中,其值为假的是:_______。
随机试题
通过缩减政府的支出,或者减少企业和个人的可支配收入的紧缩性的财政政策是()
下列各种反应中,经治疗可得到有效逆转的是()。
A、羧甲基纤维素钠B、微晶纤维素C、滑石粉D、乙基纤维素E、乙醇润滑剂是
小剂量阿司匹林预防血栓生成的机制是
采用预制板的屋面在板面灌缝施工中要求是()
有一梯形断面的引水渠道,边坡系数m=1.5,粗糙系数n=0.025,底坡i=0.0004,底宽b=5m,渠中通过的流量Q=8m3/s,在求解渠道的正常水深h0时,下述说法和结果中正确的是()。
企业在连续提取坏账准备的情况下,“坏账准备”科目在期末结账前如为贷方余额,其反映的内容是()。
下列句子没有语病的一项是()。
IntelligentandEnergy-savingSolarHomeA)Ifsomegroupgaveoutawardsfortheleastenergy-efficientstructures—thewaythose
IsHeadphoneGoodforWork?A)MarissaYuworksinabusyoffice,surroundedby120co-workersinamostlyopenspace.Yetwhens
最新回复
(
0
)