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

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

admin2015-10-23  80
问题 下面程序的功能是：先输入一个字符串，再输入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://www.kaotiyun.com/show/8PLp777K
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

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