下面程序运行时,若输入“Visual Basic Programming”,则在窗体上输出的是( )。 Private Sub Command1_C1ick() Dim Ntim(25)As Integer,Chrl As String Chr1=U

admin2016-09-18  95

问题 下面程序运行时,若输入“Visual Basic Programming”,则在窗体上输出的是(    )。
Private Sub Command1_C1ick()
Dim Ntim(25)As Integer,Chrl As String
Chr1=UCase(InputBox("请输入字母字符串"))
For k=1To Len(Chr1)
n=Asc(Mid(Chr1,k,1))-Asc("A")
If n>=0then
Num(n)=Num(n)+1
End If
Next k
m=Num(0)
For k=1To25
If m<Nam(k)Then
m=Num(k)
End If
Next k
Print m
End Sub

选项 A、3
B、2
C、1
D、0

答案A

解析 该程序的第一个循环是遍历整个字符串,其中数组Num的作用是存放对应字符的出现次数;第二个循环的作用是找到数组Num中的最大值,所以整个程序的功能就是找到存输入字符串中出现次数最多的字母,并输出其出现的次数。
转载请注明原文地址:https://kaotiyun.com/show/vZLp777K
0

最新回复(0)