修改时间:2024-07-13 浏览次数:95 类型:月考试卷
请回答下列问题:
Private Sub CmdTJ_Click()
Dim count(25) As Integer
Dim ch, ch2 As String
Dim m As Integer
ch = Text1.Text
For k = 1 To Len(ch)
n = Asc(ch2)-Asc(“a”)
If n >= 0 And n <= 25 Then
count(n) = count(n) + 1
List1.AddItem "字母" + ch2 + "出现" + Str(count(n)) + "次"
End If
Next k
m = count(0)
For k = 1 To 25
If Then m = count(k)
Next k
Label1.Caption = "字母最高出现" + Str(m) + "次"
End Sub
试题篮