实现英文的大小写转换

Dim x As string

点击Text编写如下程序：

Private Sub Form_load()

x=text1.text

End Sub

点击command1按钮，编写程序语言如下：

Private sub command1_Click（）

Text1.text=Ucase(x)

End sub

点击command2按钮，编写程序语言如下：

Private sub command2_Click（）

Text1.text=Lcase(x)

End sub

点击command3按钮，编写程序语言如下：

Private sub command3_Click（）

Text1.text=x

End sub