如何将一段字符串中的小写字母转成大写?

Question

这是一个笔试的题目,要求自己写函数,不用系统函数.我不知道怎么解决。呵

Answer 1

Function UCaseStr(ByVal str As String) As String
    Dim s As String
    str = Trim(str)
    If str = "" Then Exit Function
    For i = 1 To Len(str)
        s = Mid(str, i, 1)
        If s Like "[a-z]" Then
            UCaseStr = UCaseStr & Chr(Asc(s) - 32)
        Else
            UCaseStr = UCaseStr & s
        End If
    Next
End Function

Answer 2

Function LtoU(L As String) As String
LtoU = Chr(Asc(L) - 32)
End Function

Answer 3

ynsmcn(茫茫) 的回答是正解.
不用系统函数.用自己建的函数.呵

Answer 4

最保险的做法：
s+A-a
ACSII码是-32，但非ACSII码呢？这个问题在《C陷阱与缺陷》中有讲解，我们应该尽量保证不出错和可移值性问题。