删除输入的字符串中的大小写字母和数字 并统计有重复的字符及其重复次数

Question

如题所述

Answer 1

用一个多行显示的text1来输入字符串，加一个命令按钮

Private Sub Command1_Click()
Dim myOutputStr As String, myInputStr As String, i As Integer, j As Integer, myTemp As String
myInputStr = Text1.Text
For i = 0 To 9
myInputStr = Replace(myInputStr, i, "")
Next
myInputStr = UCase(myInputStr)
For i = 65 To 90
myInputStr = Replace(myInputStr, Chr(i), "")
Next
Text1.Text = Text1.Text & vbCrLf & vbCrLf & myInputStr
For i = 1 To Len(myInputStr)
myTemp = Mid(myInputStr, 1, 1)
If myTemp <> "" Then
j = Len(myInputStr) - Len(Replace(myInputStr, myTemp, ""))
myOutputStr = myOutputStr & myTemp & ": 重复" & j & "次" & vbCrLf
myInputStr = Replace(myInputStr, myTemp, "")
End If
Next

Text1.Text = Text1.Text & vbCrLf & vbCrLf & myOutputStr
End Sub