全部转换成小写：Lcase(英文字符串)
全部转换成大写：Ucase(英文字符串)还可以复原的那个怎么弄呀那更简单了，用一个变量暂时存储一下输入的英文，还原的时候=这个变量即可可不可以帮我写一下那个变量呀我是才学的都不太懂谢谢了哈Private Sub Command1_Click() Dim a$, b$ a = InputBox("输入一段英文") b = a a = UCase(a) Print "全部大写: " & a a = LCase(a) Print "全部小写: " & a a = b Print "还原: "; a End Sub谢谢了哟非常感谢哟