展开全部
text1里输入变量
Private Sub Command1_Click()
Select Case Asc(Text1.Text)
Case 48 To 57
Print "这是数字"
Case 65 To 90, 97 To 122
Print "这是字母"
Case Is < 0
Print "这是汉字"
End Select
End Sub
Private Sub Command1_Click()
Select Case Asc(Text1.Text)
Case 48 To 57
Print "这是数字"
Case 65 To 90, 97 To 122
Print "这是字母"
Case Is < 0
Print "这是汉字"
End Select
End Sub
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
Select Case Asc(CharS)'求asc码
Case 48 To 57 '范围
Print "这是数字"
Case 65 To 90, 97 To 122
Print "这是字母"
Case < 0
Print "这是汉字"
End Select
Case 48 To 57 '范围
Print "这是数字"
Case 65 To 90, 97 To 122
Print "这是字母"
Case < 0
Print "这是汉字"
End Select
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询