题目

编写VB应用程序，当用户输入的一串由字母、数字等字符组成的字符串，统计其中每个字母出现的次数(不分大小写)。程序运行时界面如图a所示。 图a （1） 设计应用程序界面时，为添加标签对象“输入字串：”，应使用图b所示的“控件工具箱”中的(填写相应编写)，并在图c所示的“属性窗口”中，将属性设置为“输入字串：”。 （2） 程序运行时，在Text1中输入字符串，单击“统计”按钮，在List1中显示统计结果。请在划线处填入合适代码。 函数 IsLetter(x)功能，若 x 是字母，则返回值为字母 x 在字母序列“A”～“Z”中的序号，如字母“A”的序号为 0，字母“D”的序号为 3。若 x 不是字母，则返回值为－1。 Function IsLetter(x As String) As Integer   If ”A” <＝ x And x <＝ ”Z” Then     IsLetter ＝ Asc(x) － Asc(”A”)   ElseIf ”a” <＝ x And x <＝ ”z” Then     IsLetter ＝ Asc(x) － Asc(”a”)   Else        ①     End If End Function Private Sub Command1_Click()   Dim f(25) As Integer, m As Integer, n As Integer   Dim s As String, c As String   List1.Clear   For m ＝ 0 To 25 '初始化数组 f     f(m) ＝ 0   Next m   s ＝ Text1.Text   For m ＝ 1 To Len(s)     c ＝ Mid(s, m, 1) '依次读取字符串中的每个字符进行判断        ②       If n <> －1 Then f(n) ＝ f(n) ＋ 1   Next m   For m ＝ 0 To 25     If   ③  Then '输出统计结果，没有出现的字母不输出     List1.AddItem(Chr(m ＋ Asc(”a”)) & ”：” & f(m))     End If   Next m End Sub ① ② ③ 答案： 【1】1【2】caption 【1】isLetter=-1【2】n= isLetter(c)【3】f(m)<>0

查看本题答案和解析