函数fun如下: Private Function fun(ch As String)As Integer Dim n%,st$,c$ For k=1 To Len(ch) c=Mid(ch,k

admin2020-08-10  44

问题 函数fun如下:
    Private Function fun(ch As String)As Integer
        Dim n%,st$,c$
        For k=1 To 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://jikaoti.com/ti/p4S0FFFM
0

随机试题
最新回复(0)