首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
下面函数的功能应该是:删除字符串str中所有与变量Ch相同的字符,并返回删除后的结果。例如:若str="ABCDABCD",oh="B",则函数的返回值为:"ACDACD" Function delchar(str As String,ch As
下面函数的功能应该是:删除字符串str中所有与变量Ch相同的字符,并返回删除后的结果。例如:若str="ABCDABCD",oh="B",则函数的返回值为:"ACDACD" Function delchar(str As String,ch As
admin
2018-09-29
58
问题
下面函数的功能应该是:删除字符串str中所有与变量Ch相同的字符,并返回删除后的结果。例如:若str="ABCDABCD",oh="B",则函数的返回值为:"ACDACD"
Function delchar(str As String,ch As String)
As String
Dim k As Integer,temp As String,ret As String
ret=""
For k=1 To Len(str)
temp=Mid(str,k,1)
Iftemp=ch Then
ret=ret&temp
End If
Next k
delchar=ret
End Function
但实际上函数有错误,需要修改。下面的修改方案中正确的是( )。
选项
A、把ret=ret&temp改为ret=temp
B、把Iftemp=ch Then改为Iftemp<>ch Then
C、把delchar=ret改为delchar=temp
D、把ret=""改为temp=""
答案
B
解析
题干中给出的函数作用为删除参数字符串中与ch相同的字符,而在给出的程序段中,每次遍历str参数中的每一个字符,若其与cb相等,则将其连接到结果字符串中,这样显然是不合要求的,应该是若取出的字符和ch不等则将其连接到结果中,否则舍弃。因此,应将“If temp=ch Then”改为“If temp<>ch Then”
转载请注明原文地址:https://kaotiyun.com/show/HQFp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
有以下通用过程:Functionfun(NAsInteger) s=0 Fork=1ToN s=s+k*(k+1) Nextk fun=sEndFunction该过程的功能是( )。
窗体上有1个名称为Command1的命令按钮,事件过程如下:PrivateSubCommand1_Click() m=-3.6 IfSgn(m)Then n=Int(m) Else n=Abs(m) EndIf
下面不属于软件设计阶段任务的是
(1)考生文件夹中有工程文件sjt3.vbp。窗体上有一个名称为Label1标题为“标签控件”的标签;有一个名称为Command1、标题为“命令按钮”的命令按钮。单击上述两控件中的任一控件,则在标签Label2中显示所单击控件的标题内容(标题内容前添加“单
下列不属于计时器控件属性的是
编写如下程序:PrivateSubCommand1_Click()Dima(3,3)AsIntegerDimb(3,3)AsIntegerFori=1To3Forj=1To3
下面不属于对象基本特点的是
设窗体文件中有下面的事件过程:PrivateSubCommand1_Click() Dims a%=100 PrintaEndSub其中变量a和s的数据类型分别是( )。
随机试题
关于无吊顶场所配水管两侧的配水支管设置标准流量洒水喷头数量的说法,正确的是()。
所谓营运资本周转率,是指企业一定时期产品或商品的销售成本与平均营运资本之间的比率。()
Ican’tgetmycarAstarted.BSomethingmustChavegoneDwronglywiththeengine.
甲保险公司是一家中外合资的股份制保险公司,现由于经营不善欲进入破产程序。那么甲公司首先要经过( )的同意,才可由人民法院宣告其破产。
持仓量是指其交易者所持有的()的数量。
资本是投资者为开展生产经营活动而投入的资金。会计上的资本专指所有者权益中的()。
咨询师:我有什么可以帮助你的吗?求助者:嗯……我想退学,可是老师和朋友们都劝我,我心里很矛盾,老师建议我来咨询。咨询师:这种想法有多久了,能说说为什么要退学吗?求助者:有一个多月了,我扁桃体发炎了,想做个扁桃体手术咨
下列选项中,不属于普通高中美术课程“书法·篆刻”内容系列成就标准的是()。
何谓主题班会?主题班会的形式主要有哪些?
工农产品“剪刀差”’
最新回复
(
0
)