函数fun如下: Private Function fun(ch As String)As Integer Dim n%,st$,c$ For k=1To Len(ch) c=Mid(ch,k,1) If c<>"A"Then st=st&c Else n

admin2018-06-20  47

问题 函数fun如下:
Private Function fun(ch As String)As Integer
Dim n%,st$,c$
For k=1To Len(ch)
c=Mid(ch,k,1)
If c<>"A"Then
st=st&c
Else
n=n+1
End If
Next k
ch=st
fun=n
End Function
函数的功能是(    )。

选项 A、从字符串ch中删除所有字符“A”,返回值为删除的个数
B、从字符串ch中删除所有字符“A”,返回值为删除后的字符串
C、统计宁符串ch中字符“A”的个数并返回
D、把字符串ch中不等于“A”的字符都改成“A”,返回值为修改的个数

答案A

解析 fun函数中字符串变量ch作为形参,函数的返回值类型为整型,For循环中循环变量k的初始值为1终止值为字符串的长度,每当循环执行一次时,将字符串ch中的一个字符取出赋值给字符变量c,然后使用if语句判断取出的字符是否等于字符“A”,若取出的字符不是“A”,则将该字符放人字符串st中,若取出的字符是“A”,则将变量n的值加1;由程序可知for循环的功能是:将字符串ch中非“A”字符存放到字符串变量st中,并对字符串ch中“A”字符的个数进行计数,故本题A选项叙述正确。本题选择A选项。
转载请注明原文地址:https://kaotiyun.com/show/riGp777K
0

随机试题
最新回复(0)