VB 输入一行字符串,将其中的非字母字符剔除,然后将字母全部转换为大写字母
来源:百度知道 编辑:UC知道 时间:2024/05/06 01:15:12
还要统计每个字母出现的次数! 加解释
Dim str As String, str2 As String, n As Integer
'定义str,str2 为字符串变量,n为整型变量
str = InputBox("", "输入一行字符串!")
'将输入框内容付给str
n = Len(str)
'取str长度
Dim ar(n) As String, i As Integer
'定义一数组和一整型变量
For i = 0 To n - 1
ar(i) = Mid(str, i + 1, 1)
'将字符串中的每一个字符付给数组每一个元素
If Asc(ar(i)) < 65 Or Asc(ar(i)) > 122 Or (90 < Asc(ar(i)) And Asc(ar(i)) < 97) Then
ar(i) = ""
'不为字母则为空
ElseIf 90 < Asc(ar(i)) Then
ar(i) = Chr(Asc(ar(i)) - 32)
'小写转大写
End If
Next
For i = 0 To n
str2 = str2 + ar(i)
Next
MsgBox(str2)
'弹出窗体输出
程序已调试,有问题再联系...