2. 计算机
  3. 函数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

函数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

admin2016-08-24  57
问题 函数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://kaotiyun.com/show/z4Lp777K
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

相关试题推荐
随机试题
最新回复(0)