Question

vb 在text1输入字符串，text2，text3分别显示大小写字母

Answer 1

Private Sub Text1_Change()
Text2 = ""
Text3 = ""
For I = 1 To Len(Text1)
If IsNumeric(Mid(Text1, I, 1)) = False Then
If LCase(Mid(Text1, I, 1)) = Mid(Text1, I, 1) Then Text3 = Text3 & Mid(Text1, I, 1)
If UCase(Mid(Text1, I, 1)) = Mid(Text1, I, 1) Then Text2 = Text2 & Mid(Text1, I, 1)
End If
Next
End Sub

Answer 2

Text2.Text=Ucase(Text1.Text)
Text3.Text=Lcase(Text1.Text)