VB编程：UCase转大写，LCase转小写

VB编程：UCase转大写，LCase转小写

Private Sub Text1_Change()
Text2.Text = LCase(Text1.Text)    '转换成小写字母
Text3.Text = UCase(Text1.Text)   '转换成大写字母
End Sub

Private Sub Command1_Click()
End
End Sub