Dim x as string Private Sub form _load() X=Text1.Text End Sup Private Sub command1_Click Text1.Text=Ucase(x) End Sup Private Sub command2_Click Text1.Text=Lcase(x) End Sup Private Sub command1_Click Text1.Text=x End Sup 总结:转大写为Ucase,转小写为Lcase