首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
要求函数的功能是:从参数str字符串中删除所有参数ch所指定的字符,返回实际删除字符的个数,删除后的字符串仍在str中,为此某人编写了函数DelChar如下: Function DelChar(str As String, ch As String) As
要求函数的功能是:从参数str字符串中删除所有参数ch所指定的字符,返回实际删除字符的个数,删除后的字符串仍在str中,为此某人编写了函数DelChar如下: Function DelChar(str As String, ch As String) As
admin
2020-04-18
69
问题
要求函数的功能是:从参数str字符串中删除所有参数ch所指定的字符,返回实际删除字符的个数,删除后的字符串仍在str中,为此某人编写了函数DelChar如下:
Function DelChar(str As String, ch As String) As Integer
Dim n%, st$, c$
st = ""
n = 0
For k = 1 To Len(str)
c = Mid(str, k, 1)
If c = ch Then
st = st & c
Else
n = n + 1
End If
Next k
str = st
DelChar = n
End Function
并用下面的Command1_Click()过程观察函数调用结果
Private Sub Command1_Click()
ch$ = Text1.Text
Print DelChar(ch, "x"), ch
End Sub
发现结果有错误,程序代码需要修改,以下正确的修改方案是( )。
选项
A、把语句If c = ch Then 改为If c <> ch Then
B、把语句Print DelChar(ch, "x"), ch改为Print DelChar(ch, "x") :Print ch
C、把语句DelChar = n 改为 DelChar = st
D、删掉语句str = st
答案
A
解析
DelChar函数中,使用For循环,依次取出str字符串中的字符。然后通过if语句判断取出的字符是否为要删除的字符,若不是则将该字符保存到字符串变量st中,若是则将计数变量n的值加1。观察if条件判断语句可知,"If c = ch Then st = st & c else n=n+1"逻辑有错误,应该改为"If c <> ch Then st = st & c else n=n+1"。故选项A正确。
转载请注明原文地址:https://kaotiyun.com/show/duTp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
已知在4行3列的全局数组score(4,3)r}1存放了4个学生3门课程的考试成绩(均为整数)。现需要计算每个学生的总分,某人编写程序如下:OptionBase1PrivateSubCommandI_Click()D
设循环队列为Q(1:m),初始状态为front=rear=m。现经过一系列的入队与退队运算后,front=rear=1,则该循环队列中的元素个数为
在窗体上画一个名称为Command1的命令按钮,并编写如下程序:PrivateTypeRecord IDAsInteger NameAsString*20EndTypePrivateSubCommand1_Click()
窗体上有一个名称为Text1的文本框,一个名称为Command1的命令按钮。要求编写一个程序,统计文本框中0-9各数字字符的个数。某人编写如下程序:PrivateSubCommand1_Click()Dimcount(10)AsInt
在窗体(Name属性为Forml)上画两个文本框(Name属性分别为Text1和Text2)和一个命令按钮(Name属性为Command1),然后编写如下两个事件过程()。PrivateSubCommand1_Click()
窗体上有一个名称为Text1的文本框,一个名称为Command1的命令按钮。命令按钮的单击事件过程如下:Dimx1AsInteger,x2AsInteger,x3AsIntegers=Trim(Text1.Text
有如下的一个函数过程:Functionfn(ByValnumAsLong)DimkAsLongk=1:mlm=Abs(num)DoWhilehumk=k*(numMod10)nuln=num|10Loopfn=kEn
下面说法中错误的是
下列操作说明中,错误的是( )。
以下关于VB的叙述中,错误的是()。
随机试题
亲戚补察,瞽史教诲。
以下为不典型的二度Ⅰ型房室传导阻滞的心电图表现,但应除外
蛛网膜下腔出血患者,采集的三管脑脊液呈现下列何种变化
痰热咳嗽的首选方剂是()
药品质量的指标包括
企业应当自固定资产投入使用月份的次月起计算折旧;停止使用的固定资产,应当自停止使用月份的当月起停止计算折旧。()
一般而言,声音的掩蔽主要是()。
设f(χ)二阶连续可导,且f(0)=1,f(2)=3,f′(2)=5,则∫01χf〞(2χ)dχ=_______.
Theenergycrisis,whichisbeingfeltaroundtheworld,hasdramatizedhowthecarelessuseoftheearth’sresourceshasbrough
He______unwisely,buthewasatleasttryingtodosomethinghelpful.(1999年考试真题)
最新回复
(
0
)