二、字符（单词）操作
1、统计文本框中数字、大写字母、小写字母个数
每次取出一个字符，利用ASCII码值进行判断，
数值0～9的ASCII值范围是：48～57 或 Asc("0")~Asc("9")
大写字母A～Z的ASCII值范围是：65～90 或 Asc("A")~Asc("Z")
小写字母a～z的ASCII值范围是：97～122 或 Asc("a")~Asc("z")
For i = 1 To Len(Text1)
s = Mid(Text1, i, 1)
If Asc(s) >= 48 And Asc(s) <= 57 Then
’是数值
ElseIf Asc(s) >= 65 And Asc(s) <= 90 Then
’是大写字母
ElseIf Asc(s) >= 97 And Asc(s) <= 122 Then
’是小写字母
End If
Next i
注意：与该题类似的还有，统计给定字母的出现次数，此时循环中的if判断条件改成s与该字母的比较即可；判断文本框中输入的是数字信息还是非数字信息等。
2、统计文本中某单词出现的次数、平均长度、最长单词见上机教程第十三讲考点2单词操作
’统计文本s中单词this出现的次数
For i = 1 To Len(s) ’对字符串内所有字符处理
c = Mid(s, i, 1) ’取字符
If c <> " " Then ’不为空格字符
word = word + c ’将该字符连接在单词中
Else ’若为空格字符
If word= "this" then ’如果是this单词，对该单词个数计数
n = n + 1 ’单词个数计数
End if
word = "" ’存下一个单词前，将变量word清空
End If
Next i
’循环退出后，还有最后出现一个单词未处理
If word= "this" then ’如果是this单词，对该单词个数计数
n = n + 1 ’单词个数计数
End if
3、统计文本中同时含有某几个字母的单词个数（instr函数）
要求统计包含了字母“m”，“n”和“p”的单词个数
For i = 1 To Len(s) ’对字符串内所有字符处理
c = Mid(s, i, 1) ’取字符
If c <> " " Then ’不为空格字符
word = word + c ’将该字符连接在单词中
Else ’若为空格字符
’利用instr函数判断单词word中有没有包含m、n和p字母
If instr(word, "m")>0 and instr(word, "n")>0 and instr(word, "p")>0 then
n = n + 1 ’单词个数计数
End if
word = "" ’存下一个单词前，将变量word清空
End If
Next i
’循环退出后，还有最后出现一个单词未处理
If instr(word, "m")>0 and instr(word, "n")>0 and instr(word, "p")>0 then
n = n + 1 ’单词个数计数
End if
4、编写函数判断回文
思路：将第一个字符和最后一个字符进行比较，如果相同，继续判断第二个字符和倒数第二个字符是否相同，若不相同比较结束，该字符串不满足回文。
Function foundhuiwen(p As String) ’判断p是否满足回文条件
foundhuiwen = True
For i = 1 To Len(p) / 2
If Mid(p, i, 1) <> Mid(p, Len(p) - i + 1, 1) Then
foundhuiwen = False
Exit For
End If
Next i
End Function
上一页 [1] [2] [3] [4] 下一页
