单选题函数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选项。