3个回答
展开全部
XOooZzz 谢谢 我第一次看到这个 受益匪浅
有用..
我的是:
Dim str As String
str = inputBox("Input","Input a String") '字符
Select Case str
Case "a" To "z"
MsgBox "小写"
Case "A" To "Z"
MsgBox "大写"
Case 0 to 9
MsgBox "数字"
Case Else
Msgbox "不是字母也不是数字!"
End Select
这个可能用途广泛一点也好用一点
有用..
我的是:
Dim str As String
str = inputBox("Input","Input a String") '字符
Select Case str
Case "a" To "z"
MsgBox "小写"
Case "A" To "Z"
MsgBox "大写"
Case 0 to 9
MsgBox "数字"
Case Else
Msgbox "不是字母也不是数字!"
End Select
这个可能用途广泛一点也好用一点
展开全部
private sub command1_click()
temp=inputbox("输入一个字母")
if ucase(temp)=temp then
msgbox "大写字母"
else
mesbox "小写字母"
end if
end sub
temp=inputbox("输入一个字母")
if ucase(temp)=temp then
msgbox "大写字母"
else
mesbox "小写字母"
end if
end sub
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
if str like "*[a-z]*" then print "包含小写字母"
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询