哪位大哥有小写转大写的函数源码，帮帮我好吗？

Question

MSDN: 
UCase 函数
      返回 Variant (String)，其中包含转成大写的字符串。语法UCase(string)必要的 string 参数为任何有效的字符串表达式。如果 string 包含 Null，将返回 Null。说明只有小写的字母会转成大写；原本大写或非字母之字符保持不变。

Answer 1

VB内部函数
LCase() 转换成小写
UCase() 转换成大写

Answer 2

UCase函数：全部转换成大写。
LCase函数：全部转换成小写。如果你想把大写字母变小写而同时又把小写字母变大写(而不是都变大写或者都变小写）那……嘿嘿！楼上的你们傻了吧？Function GetString(pStr as String) As String
  tStrLong=Len pStr
  For tByte=1 To tStrLong
    tGetByte=Asc(Mid(pStr,tByte,1)
    Select Case tGetByte
      Case 65 To 90
        tGetByte=tGetByte+32
      Case 97 To 122
        tGetByte=tGetByte-32
    End Select
    tOutStr=tOutStr & Chr(tGetByte)
  Next
  GetString=tOutStr
End Function哈哈！

Answer 3

她指的是阿拉伯数字转汉字的大小写转换怎么办？小仙妹也没想到给答案吧？我写过这个函数，不过是PB中的，要看吗。其实PB和VB的语法很像的