单选题有如下程序：
Private Sub Form_Click( )
Dim n As Integer, a As String
Dim L As Integer, C As Integer
n = InputBox("请输入一个整数")
For i = 1 To n
a = InputBox("请输入一个字符串")
L = Len(A)
C = 0
For j = 1 To L
If Mid(a, j, 1) = "D" Then
C = C+1
End If
Next j
Print a; C
Next i
End Sub
以上程序的功能是______。

A、输出从键盘上输入的字符串，计算其长度并输出
B、输出从键盘上输入的字符串，统计字符串中字符“D”的个数并输出
C、输出从键盘上输入的字符串，找出其中的字符“D”并输出
D、把从键盘上输入的字符串中的所有字符换成字符“D”并输出

【正确答案】 B

【答案解析】[解析] InputBox函数可以产生一个对话框，作为输入数据的界面，等待用户输入数据，并且返回输入的内容。求字符串长度函数Len(s)，返回字符串的长度，即所包含的字符个数。字符串截取函数Mid$(s，n1，n2)，从s第n1个字符开始，向后截取n2个字符。当程序开始执行时，等待用户从键盘输入整数，用于控制第一个循环执行次数。进入第一个For循环，等待用户输入字符串，计算该字符串长度，进入第二个For循环，主要作用是从上述字符串逐一查找字符串中字符D出现的个数，最后将其输出。故本题正确答案为选项B。