首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
下面函数的功能应该是:删除字符串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
2017-08-22
52
问题
下面函数的功能应该是:删除字符串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参数中的每一个字符,若其与ch相等,则将其连接到结果字符串中,这样显然是不合要求的,应该是若取出的字符和ch不等则将其连接到结果中,否则舍弃。因此,应将“Iftemp=ch then”改为“Iftemp<>ch Then”
转载请注明原文地址:https://kaotiyun.com/show/33Gp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
下列程序段用于计算1到20之间奇数之和与偶数之和。请填空。x=0:z=0Fori=0To20Step2x=x+i
—个二维数组可以存放—个矩阵。在程序开始有语句OptionBase0,则下面定义的数组中正好可以存放—个4×3矩阵(即只有12个元素)的是______。
在用通用对话框控件建立“打开”或“保存”文件对话框时,如果需要指定文件列表框所列出的文件类型是文本文件(即.txt文件),则正确的描述格式是
以下能判断是否到达文件尾的函数是______。
设x=4,y=6,则以下不能在窗体上显示出“A=10”的语句是()。
设计程序时,应采纳的原则之一是()。
在窗体上画一个名为Command1的命令按钮。下列程序的功能是:从输入对话框输入一个正整数n。用随机函数产生n个1~100范围的随机数,然后求出去掉一个最大数和最小数的平均数。根据题意,请完善下列程序:PrivateSubCommand1_Click
过程语句中,使用的<参数表>可以是下列哪种()。
刚建立一个新的标准EXE工程后,不在工具箱中出现的控件是()。
随机试题
A.霍乱弧菌B.副溶血弧菌C.两者均是D.两者均不是耐碱不耐酸()
有关使用避孕药的注意事项,下列描述错误的是
如上哪项是有机磷农药中毒机制如上哪项是安眠药中毒的机制
A、奎尼丁B、利多卡因C、普萘洛尔D、维拉帕米E、阿托品房室交界区异常引起的阵发性室上性心动过速首选( )。
某产品在5个地区的销售量分别为:1500、2000、1000、3000、5000。则该销售量的极差为()。
某企业年初未分配利润为10000元,当年净利润为40000元,按15%的比例提取盈余公积。该企业可供投资者分配的利润为()元。
防止软盘感染病毒的有效方法是()。
()对于效益相当于经营对于()
JusthowmuchdoestheConstitutionprotectyourdigitaldata?TheSupremeCourtwillnowconsiderwhetherpolicecansearchthe
()promisetostreamlinetheon—demandprovisioningofsoftware,hardware,anddataasaservice,achievingeconomiseofscalei
最新回复
(
0
)