找回密码
 立即注册

QQ登录

只需一步,快速开始

查看: 4780|回复: 3

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

[复制链接]
  • 打卡等级:无名新人

3

主题

24

回帖

30

积分

按键电脑班学员

鲜花
0
猫粮
205
发表于 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

楼主热帖
  • 打卡等级:行侠仗义

1080

主题

2100

回帖

4280

积分

院长

鲜花
6
猫粮
7390
QQ
发表于 2021-6-16 12:01:26 | 显示全部楼层
a1 = asc("a")     得到参数的啊丝克码
TracePrint a1
a2 = asc(ucase("a"))得到参数的大写形式的那啥啊丝克码

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

0

主题

1

回帖

1

积分

学前班

鲜花
0
猫粮
0
发表于 2021-6-17 16:34:21 | 显示全部楼层
1111111111111

0

主题

1

回帖

1

积分

学前班

鲜花
0
猫粮
2
发表于 2021-7-11 18:17:11 | 显示全部楼层
66666666666666
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

QQ|Archiver|手机版|小黑屋|紫猫编程学园

GMT+8, 2024-3-28 18:59

Powered by Discuz! X3.5

© 2001-2024 Discuz! Team.

快速回复 返回顶部 返回列表