'本程序实现功能为:在文本框内输入一串字符后,统计并显示各字母出现的次数 ' 不区分大小写字母。 '------------------------------------------------------- Private Sub Command1_Click() Dim a(1 To 26) As Integer, c As String * 1 '**********SPACE********** 【?】 = Len(Text1) For I = 1 To l1 '**********SPACE********** c = 【?】(Mid(Text1, I, 1)) If c >= "a" And c <= "z" Then '**********SPACE********** j = Asc(c) - 【?】 + 1 a(j) = a(j) + 1 End If Next I Picture1.Cls For j = 1 To 26 If a(j) > 0 Then Picture1.Print " "; Chr(j + 96); "="; a(j); End If Next j End Sub