下面程序运行时,若输入“Visual Basic Programming”,则在窗体上输出的是( )。 Private Sub Command l_Click() Dim Num(25)As Integer,Chrl As Stri

admin2020-06-30  19

问题 下面程序运行时,若输入“Visual Basic Programming”,则在窗体上输出的是(    )。
    Private  Sub Command l_Click()
    Dim Num(25)As Integer,Chrl As String
          Chrl=UCase(lnputBox("请输入字母字符串”))
          For k=1 To Len(Chrl)
               n=Asc(Mid(Chr 1,k,1))-Asc(”A”)
               Ifn>=0 Then
                    Num(n)=Num(n)+1
               End If
          Next k
          m=Num(0)
          For k=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中的最大值,所以整个程序的功能就是找到在输入字符串中出现次数最多的字母,并输出其出现的次数。
转载请注明原文地址:https://jikaoti.com/ti/2XS0FFFM
0

随机试题
最新回复(0)