Private Sub Text1_Change()
Text2.Text = LCase(Text1.Text) '转换成小写字母
Text3.Text = UCase(Text1.Text) '转换成大写字母
End Sub
Private Sub Command1_Click()
End
End Sub
界面效果
VB编程：UCase转大写，LCase转小写-4_彭世瑜_新浪博客
阅读 123
2022-04-06
Private Sub Text1_Change()
Text2.Text = LCase(Text1.Text) '转换成小写字母
Text3.Text = UCase(Text1.Text) '转换成大写字母
End Sub
Private Sub Command1_Click()
End
End Sub
界面效果
相关推荐
精彩评论（0）
