首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
设窗体上有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
47
问题
设窗体上有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全国计算机二级
相关试题推荐
数据的【】结构在计算机存储空间中的存放形式称为数据的存储结构或物理结构。
下列程序段的执行结果为 a=75 Ifa>60ThenI=1 Ifa>70ThenI=2 Ifa>80ThenI=3 Ifa
数据库管理系统常见的数据模型有层次模型、网状模型和【】三种。
在窗体上画一个名称为Command1的命令按钮,然后编写如下事件过程:PrivateSubCommand1_Click()DimnumAsIntegernum=1DOUnti
下面叙述中不正确的是_______。
有如下函数过程: FunctionHFC(ByValxASInteger,ByValyAsInteger)AsInteger DoWhiley<>0 sic=x/y X=y y=sic
在属性窗口中设置何属性,可以把指定的图形放入当前对象中?
软件结构是以【】为基础而组成的一种控制层次结构。
按条件f对关系R进行选择,其关系代数表达式为_________。
随机试题
骨折急救的目的是用简单而有效的方法,抢救生命,保护患肢,使伤者能够被安全迅速地运送至医院。骨折急救的原则是()。
若广义积分∫0+∞dx=1,其中k为常数,则k=()
A.《纽伦堡法典》B.《赫尔辛基宣言》C.《希波克拉底誓言》D.《大医精诚》E.《伤寒杂病论》反映孙思邈的医德思想和境界的是
缺铁性贫血的主要原因是
一患者上颌局部义齿修复。义齿初戴时,发现上腭后部弯制的腭杆离开腭黏膜2mm。处理方法是
上消化道大出血的常见原因除外
吗啡禁用于分娩止痛的原因是
产后6天,腹痛,发热39℃,恶露混浊有臭味,检查子宫复旧不佳,不压痛。乳房胀痛,该产妇最大可能是:
当设计无要求时,无组织排水的散水宽度可按檐口线放出()mm。
某钢厂生产螺丝钉。已知螺丝钉的质量服从正态分布,标准规定螺丝钉的质量为5克,标准差不超过0.1克。随机抽查20个螺丝钉,平均质量为=4.98克,样本的方差为s2=0.8l。检验均值采用()。
最新回复
(
0
)