得知一字串是否出現重複的字元

Question

如何得知一字串是否出現重複的字元？
Text2
16個字

Answer 1

Private Sub Command1_Click()
Dim i As Integer, j As Integer
Dim Rep As String, Check As String

For i = 1 To Len(Text1.Text) - 1
Rep = UCase(Mid(Text1.Text, i, 1))
For j = i + 1 To Len(Text1.Text)
If Rep = UCase(Mid(Text1.Text, j, 1)) Then
Check = Check + " " + Rep
End If
Next
Rep = ""
Next
MsgBox "重覆字元:" + Check
End Sub

Answer 2

Private Sub Command1_Click()    Dim S As String    Dim R As String    Dim M As String    Dim i As Integer    S = ""    For i = 1 To Len(Text2.Text)        M = Mid(Text2.Text, i, 1)        If InStr(R, M) = 0 Then            If Len(Replace(Text2.Text, M, "")) <> Len(Text2.Text) - 1 Then                S = S & M & " 重複 " & Len(Text2.Text) - Len(Replace(Text2.Text, M, "")) - 1 & " 次" & vbCrLf            End If        End If        R = R + M    Next    If Len(S) = 0 Then        MsgBox "無重複字元"    Else        MsgBox S    End IfEnd Sub

Answer 3

大大們都好厲害...能不能幫我看一下這題...
http://tw.knowledge.yahoo.com/question/?qid=1206041519170

拜託~ 要交作業了,所以很急...><

Answer 4

Private Sub Command1_Click()Dim I%, S$, S1$For I = 1 To Len(Text1) - 1    S1 = Mid$(Text1, I, 1)    If InStr(I + 1, Text1, S1, vbTextCompare) Then       If InStr(S, S1) = 0 Then S = S & S1 & ","    End IfNextIf Len(S) Then   MsgBox "有重複字元 : " & Left$(S, Len(S) - 1)Else   MsgBox "無重複字元"End IfEnd Sub