首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
设窗体上有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
41
问题
设窗体上有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全国计算机二级
相关试题推荐
程序流程图(PFD)中的箭头代表的是______。
下列各选项说法错误的一项是
当滚动条位于最左端或最上端时,Value属性被设置为
当用【】方式打开文件时,如果对文件进行与操作,则写入的数据附加到原来文件的后面。
设有如下通用过程:PublicSubFun(a(),ByValxAsInteger)Fori=1To5x=x+a(i)NextEndSub在窗体上
以下能判断是否到达文件尾的函数是
数据库系统阶段的数据具有较高独立性,数据独立性包括物理独立性和【】两个含义。
表达式3^2Mod36\2^5的值是【】
假设A="GoodMorning.",B="Afternoon,Boys.",则下列表达式的结果等于"GoodBoys."的是()。
随机试题
关于原发性视网膜脱离下列哪项是正确的
一、两级除尘器,第一级效率为70%,第二级效率为80%,则总的除尘效率为__________。
多层砌体房屋的抗震可以采取的构造措施有()。
根据《建设工程工程量清单计价规范》,招投标时不能作为竞争性费用的是()。
下列说法中正确的是()。
下列各项中,都是战国纵横家鼻祖鬼谷子学生的一组是()。
人本主义在()中得到了深入的应用。
webmercial
下列有关成本预算过程的说法中,错误的是()。
Earthobservationsshouldprovide"valueadded"applicationsfromexistingenvironmentalservices,propertytitleholdersand
最新回复
(
0
)