作业帮 > 综合 > 作业

统计英文字符串中以各种字母为首的单词数量(单词之间用...

来源:学生作业帮 编辑:作业帮 分类:综合作业 时间:2024/05/06 19:51:09
统计英文字符串中以各种字母为首的单词数量(单词之间用...
Private Sub Command1_Click()
Dim i,c,a(1 To 26) As Integer
For i = 1 To Len(Text1.Text)
c = Asc(UCase(Mid(Text1.Text,i,1)))
If c >= 65 And c