判断字符的大小写。

搞装修的

三级认证的题，要写一个函数判断字符的大小写。
开头我是想用asc来搞比如下边这样
Call 判断大小写("M")
Function 判断大小写(a)
       

a1 = asc("a")     得到参数的啊丝克码
TracePrint a1
a2 = asc(ucase("a"))得到参数的大写形式的那啥啊丝克码
TracePrint a2
  If a1 = a2 Then 比一下二个码
          MsgBox "大写"
  Else
          msgbox"小写"
  End If


End Function
后来发现参数传不进去。那a是形参，m是实参。不是吗？这是错在了哪里？


接下来我通过别的地方找来答案。可是 If 大写 = 判断的字母 Then 这句，字符之间的比较我搞不明白了。麻烦各位老师给我说说字符之间的比较是咋回事。
Function 判断字母大小写(判断的字母)
    i=0
    大写数组="A|B|C|D|E|F|G|H|I|J|K|L|M|N|O|P|Q|R|S|T|U|V|W|X|Y|Z|"
    小写数组="a|b|c|d|e|f|g|h|i|j|k|l|m|n|o|p|q|r|s|t|u|v|w|x|y|z|"
    d = Split(大写数组, "|")
    x = Split(小写数组, "|")
    For 26
        大写=Cstr(d(i))
        小写 = Cstr(x(i))
        TracePrint
        If 大写 = 判断的字母 Then
            MessageBox "大写"
            Exit For
        ElseIf 小写 = 判断的字母 Then
            MessageBox "小写"
            Exit For
        End If
        i=i+1
    Next
End Function

紫猫

a1 = asc("a")     得到参数的啊丝克码
TracePrint a1
a2 = asc(ucase("a"))得到参数的大写形式的那啥啊丝克码

因为你写了字符串a了, 你把双引号去掉就OK了, 另外你可以直接通过A到Z的ASCII码范围做比较, 这样更加直观一点, 因为你这样比较是否相等, 假如用户传入了数值1, 那么不管转大写还是小写, 都是相同的

463925799

1111111111111

ripleyzimao

66666666666666