下面程序运行时，若输入“Visual Basic Programming”，则在窗体

问题单项选择题

下面程序运行时，若输入“Visual Basic Programming”，则在窗体上输出的是( )。
Private Sub Command1 Click()
Dim Num(25)As Integer,Chr1 As String
Chr1=UCase(InputBox("请输入字母字符串"))
For k=1 To Len(Chr1)
n=Asc(Mid(Chr1,k,1))-Asc("A")
If n＞=0 Then
Num(n)=Num(n)+1
End If
Next k
m=Num(0)
Fork=1 To 25
If m＜Num(k)Then
m=Num(k)
End If
Next k
Print m
End Sub

A．3

B．2

C．1

D．0

答案

参考答案：A

解析：该程序的第一个循环是遍历整个字符串，其中数组Num的作用是存放对应字符的出现次数；第二个循环的作用是找到数组Num中的最大值，所以整个程序的功能就是找到在输入字符串中出现次数最多的字母，并输出其出现的次数。