''另一方法转换大小写
''其实VB本来就有函数
''UCASE(STRING) LCASE(STRING)
''来实现大小写的转换
''我也只是那天偶然看书,发现这样的函数一样能转换大小写
Public Function XiaoXie(zimu As String) As String
XiaoXie = Format(zimu, "<")
End Function
Public Function DaXie(zimu As String) As String
DaXie = Format(zimu, ">")
End Function
''其实VB本来就有函数
''UCASE(STRING) LCASE(STRING)
''来实现大小写的转换
''我也只是那天偶然看书,发现这样的函数一样能转换大小写
Public Function XiaoXie(zimu As String) As String
XiaoXie = Format(zimu, "<")
End Function
Public Function DaXie(zimu As String) As String
DaXie = Format(zimu, ">")
End Function