Question

一个字母表有26个字母，求在一个字符串中没有出现的字母？

Answer 1

Public Function Fc(ByVal s As String) As String
    Dim ts As String
    Dim rs As String
    rs = ""
    Dim r(65 To 90) As Boolean
    Dim n As Integer
    For i = 65 To 90
        r(i) = False
    Next i
    ts = UCase(s)
    For i = 1 To Len(ts)
        n = Asc(Mid(ts, i, 1))
        If n > 64 And n < 91 Then
            r(n) = True
        End If
    Next i
    For i = 65 To 90
        If r(i) = False Then
            rs = rs & Chr(i)
        End If
    Next i
    Fc = rs
End Function