Question

在VB,如何将大写字母转换成小写字母,而且在输入数字是会报错

我是初学着,肯请各位高手尽快帮忙解决,小弟感激万分

Answer 1

Sub A()
Dim AAA As String
AAA=Inputbox("输入一串字符")
AAA=LCase(AAA)
If AAA Like "*[0-9]*" Then Msgbox "包含数字",vbCritical,"Notice!"
Msgbox AAA
'只报错，不要求重新输入
'报错且要求重新输入可以改成
'Dim AAA As String
'InputBytes: AAA=Inputbox("输入一串字符")
'AAA=LCase(AAA)
' If AAA Like "*[0-9]*" Then Msgbox "包含数字，请重新输入",vbCritical,"Notice!":Goto InputBytes Else Msgbox AAA

End Sub

Answer 2

查一下asc码表，具体多少记不得了，好像是差26吧，假设是26，那么比如大写字母A要转换就将它减去26就行了。当然要转换类型之类的操作。