15问答网 > VB编程输入一字符，判断其是否是字母，若是字母，再判断是“大写字母”还是“小写字母”

VB编程输入一字符，判断其是否是字母，若是字母，再判断是“大写字母”还是“小写字母”

若不是字母，则输出：“非字母”。

2025-02-26 23:37:15

推荐回答（5个）

回答1：

Dim a As String
a = InputBox("输入一个字符，如果过位，系统将截取第一位，如果留空，系统取小写a")
If Len(a) = 0 Then
a = "a"
ElseIf Len(a) > 1 Then
a = Mid(a, 1, 1)
End If
If Asc(a) >= Asc("a") And Asc(a) <= Asc("z") Then MsgBox "字符 " & a & " 为小写字母"
If Asc(a) >= Asc("A") And Asc(a) <= Asc("Z") Then MsgBox "字符 " & a & " 为大写字母"

回答2：

这个可以
Private Sub Form_Load()
Dim a As String
a = Right(InputBox("输入"), 1)
Select Case Asc(a)
Case Asc("a") To Asc("z")
MsgBox "小写字母"
Case Asc("A") To Asc("Z")
MsgBox "大写字母"
Case Else
MsgBox "非字母"
End Select
End Sub

回答3：

Dim
a
As
String
a
=
InputBox("输入一个字符，如果过位，系统将截取第一位，如果留空，系统取小写a")
If
Len(a)
=
0
Then
a
=
"a"
ElseIf
Len(a)
>
1
Then
a
=
Mid(a,
1,
1)
End
If
If
Asc(a)
>=
Asc("a")
And
Asc(a)
<=
Asc("z")
Then
MsgBox
"字符
"
&
a
&
"
为小写字母"
If
Asc(a)
>=
Asc("A")
And
Asc(a)
<=
Asc("Z")
Then
MsgBox
"字符
"
&
a
&
"
为大写字母"

回答4：

Private Sub Form_Load()
Dim a As String
a = Left(InputBox("输入"), 1)
Select Case Asc(a)
Case Asc("0") To Asc("9")
MsgBox "数字"
Case Asc("a") To Asc("z")
MsgBox "小写字母"
Case Asc("A") To Asc("Z")
MsgBox "大写字母"
Case Else
MsgBox "其他字符"
End Select
End Sub

回答5：

Private Sub Command1_Click()
Dim strTmp As String
Err1:
strTmp = InputBox("请输入一个字符：")
If Len(strTmp) > 1 Then GoTo Err1
If Len(strTmp) < 1 Then Exit Sub
If Not IsNumeric(strTmp) Then
If Asc(strTmp) >= Asc("a") And Asc(strTmp) <= Asc("z") Then
MsgBox "小写字母！"
ElseIf Asc(strTmp) >= Asc("A") And Asc(strTmp) <= Asc("Z") Then
MsgBox "大写字母！"
Else
MsgBox "非字母！"
End If
Else
MsgBox "非字母！"
End If
End Sub

最新问答

天上多少星星亮晶晶这首歌的歌名是什么

win7重装是不是把以前的win7系统覆盖了?

我男朋友天天在看抖音，和抖音上的美女合拍，不打理我

有哪些听一句就惊艳了你的歌？

从郑州火车站怎么坐114路公交车

从北京紫竹桥到天津火车站怎么走?我想走高速在哪下高速？过路费是多少？请详细些谢谢!

VB编程 输入一字符，判断其是否是字母，若是字母，再判断是“大写字母”还是“小写字母”

VB编程输入一字符，判断其是否是字母，若是字母，再判断是“大写字母”还是“小写字母”