單項(xiàng)選擇題
（35 ）下面程序運(yùn)行時(shí)，若輸入 “ Visual Basic Programming ” ，則在窗體上輸出的是
Private Sub Comand1_Click （）
Dim count （25 ） As Integer, ch As String
ch=U c ase （InputBox （" 請(qǐng)輸入字母字符串 " ） ）
For k=1 To Len （ch ）
n=Asc （Mid （ch,k,1 ） ） -Asc （" A " ）
If n＞=0 Then
Count （n ） =Count （n ） + 1
End If
Next k
m=count （0 ）
For k=1 To 25
If m
m=count （k ）
End If
Next k
Print m
End Sub
A ） 0
B ） 1
C ） 2
D ） 3
（35 ）下面程序運(yùn)行時(shí)，若輸入 “ Visual Basic Programming ” ，則在窗體上輸出的是
Private Sub Comand1_Click （）
Dim count （25 ） As Integer, ch As String
ch=U c ase （InputBox （" 請(qǐng)輸入字母字符串 " ） ）
For k=1 To Len （ch ）
n=Asc （Mid （ch,k,1 ） ） -Asc （" A " ）
If n＞=0 Then
Count （n ） =Count （n ） + 1
End If
Next k
m=count （0 ）
For k=1 To 25
If m
m=count （k ）
End If
Next k
Print m
End Sub
A ） 0
B ） 1
C ） 2
D ） 3