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

Private Sub Form_Load()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
End Sub

Private Sub Text1_Change()
Text2.Text = LCase(Text1.Text)
Text3.Text = UCase(Text1.Text)
End Sub