Question

第四题，求大神讲解

Answer 1

VB我没学，学的C，不过大体思路差不多，根据ASCII码来区分。
数字0-9是ASCII码的48-57

小写a-z是ASCII码的97-122（大写字母与其对应的小写字母的值相差32，利用这点转换大小写，也可以直接用那些upper（）、lower（）方法，如果有这方法的话）
大写A-Z是ASCII码的65-90
我找了个差不多的，后面几句我没明白，你自己参考下改改吧
Private Sub CommandButton1_Click()
Dim myt As String
Dim myret As String
myt = Text1.Text
' asc(0)=48 asc(A)=65 , asc(a)=97
If Asc(myt) >= 97 And Asc(myt) <= 122 Then
myret = "小写" Asc(myt)=Asc(myt)-32 //这里再加一句转换大写的
Else
If Asc(myt) >= 65 And Asc(myt) <= 90 Then
myret = "大写" Asc(myt)=Asc(myt)+32 //这里再加一句转换小写的
Else

If Asc(myt) >= 48 And Asc(myt) <= 57 Then
myret = "数字"
Else
myret = "其"
End If
End If
End If
Label1.caption = myret
End Sub