判断字符的大小写。

搞装修的 · 发表于 2021-6-15 19:32:59

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

三级认证的题，要写一个函数判断字符的大小写。
开头我是想用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

紫猫 · 发表于 2021-6-16 12:01:26

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

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

463925799 · 发表于 2021-6-17 16:34:21

1111111111111

ripleyzimao · 发表于 2021-7-11 18:17:11

66666666666666

		自动登录	找回密码
密码			立即注册

[求助] 判断字符的大小写。

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。