下面程序的功能是:先输入一个字符串,再输入3个字符,然后统计这3个字符分别在字符串中出现的次数并输出 Private Sub Command1_Click() Dim ch$(3), str$, prompt$, count%(3) str

admin2015-06-30  31

问题 下面程序的功能是:先输入一个字符串,再输入3个字符,然后统计这3个字符分别在字符串中出现的次数并输出
Private Sub Command1_Click()
    Dim ch$(3), str$, prompt$, count%(3)
    str = InputBox("请输入一个字符串")
    For k = 1 To 3
        prompt = "请输入要查找的第" & k & "个字符"
        ch(k) = InputBox(prompt)
    Next k
    For j = 1 To Len(str)
        For k = 1 To 3
            If ch(k) =                        Then
                count(k) = count(k) + 1
            End If
        Next k
    Next j
    Print str
    For k = 1 To 3
        Print ch(k); "出现的次数为"; count(k)
    Next k
End Sub
程序不完整,在横线上应该填写的是

选项 A、Mid(str, k, 1)
B、Mid(str, j, 1)
C、str(k)
D、str(j)

答案B

解析 将输入对话框中输入的第一个字符串赋值给str,第一个For循环,将输入3个字符复制到数组ch(3)中;第二个For的多重循环,利用数组count记录字符串str中出现ch(3)数组元素的个数;最后一个For循环输出记录的次数。则在第二个for的多重循环中,If条件语句应为检验待查找的字符ch(k)和字符串str中的每个字符是否相同,相同时,条件为真。故应该与Mid(str,j,1),即与str的j后的第一个字符比较,看是否相同。由于在For循环中,保证了ch(k)每个元素和str的每个字符都进行了比较。
转载请注明原文地址:https://kaotiyun.com/show/m0Qp777K
0

随机试题
最新回复(0)