单选题 下面程序的功能是：先输入一个字符串，再输入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 kEnd Sub程序不完整，在横线上应该填写的是
【正确答案】 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的每个字符都进行了比较。