作业帮 > 综合 > 作业

统计英文字符串中以各种字母为首的单词数量(单词之间用空格或其他非字母字符分隔),不区分大小写

来源:学生作业帮 编辑:搜搜做题作业网作业帮 分类:综合作业 时间:2024/05/07 16:07:15
统计英文字符串中以各种字母为首的单词数量(单词之间用空格或其他非字母字符分隔),不区分大小写
vb
统计英文字符串中以各种字母为首的单词数量(单词之间用空格或其他非字母字符分隔),不区分大小写
Option Explicit
Private Sub Command1_Click()
Dim s As String,i As Integer,L As Integer
Dim ch(1 To 26) As Integer,flag As Boolean
Dim s1 As String * 1,j As Integer
s = Text1
flag = True
For i = 1 To Len(s)
s1 = Mid(s,i,1)
If s1 >= "A" And s1 = "a" And s1