我们在实际开发中,常常要求对用户输入的数据类型进行判断,确认用户输入的数据是否合法,那么如何判别一个数据是数字还是字母呢?
本节课程,我们就一起来看下如何实现。
步骤一,
首先,按照上图创建程序界面
步骤二,
编写代码
IsNumeric函数用于检测数据是否是数值型,是则返回True。
更多的函数用法见以下文章:
![319ea6e9b88d3383aee5505cdfb601eb.png](https://i-blog.csdnimg.cn/blog_migrate/cc24093bbe285c2a0d6264ae600d46a8.png)
Private Sub Command1_Click() Dim userInput userInput = Text1 If IsNumeric(userInput) Then MsgBox "数字" ElseIf userInput Like "[a-z]" Then MsgBox "是小写字母" ElseIf userInput Like "[A-Z]" Then MsgBox "大写字母" Else MsgBox "其它类型" End IfEnd Sub
这段代码基本思想:是通过if-else语句,分别进行判断,利用isNumeric函数判断是否为数值型数据,在用like函数判断是大写还是小写字母。
这里要注意的是,本例代码只能判断一个字符,如果多个字符判断结果可能出错,比如输入"abc",则结果会是"其它类型",这是因为like后面的语法只有一个字符,读者需要根据实际运用场景修改like后面的判断条件。
步骤三, 运行并测试 分别输入数字、小写字母、大写字母和汉字,查看运行结果。![a73717d050d46fef8bc5534eb9ffddfd.png](https://i-blog.csdnimg.cn/blog_migrate/f1d10982fc74d8987d0b66ce06b55a29.png)