Question

VB大小写转换，请大神指教

大小写转换：在窗体上添加一个文本框Text1，三个命令按钮Command1、 Command2和Command3，实现的功能是：在文本框Text1中输入英文字母，单击“转大写”按钮Command1后，文本框中字符变成大写；单击“转小写”按钮Command2后，文本框中字符变成小写，单击“复原”按钮Command3后，文本框中显示原来字符串。
Option Explicit
Dim a As String

Private Sub Command1_KeyPress(KeyAscii As Integer)
a = Text1.Text
End Sub

Private Sub Command1_Click()
Text1.Text = UCase(Text1.Text)
End Sub

Private Sub Command2_Click()
Text1.Text = LCase(Text1.Text)
End Sub

Private Sub Command3_Click()
Text1.Text = a
End Sub

这是我写的代码，转换大小写都可以，但是无法复原，我是想在按下键之后就可以保存a的值，总而言之，运行时，大小写没问题，点击“复原”无法实现，求指教

Answer 1

 Dim a As String
Private Sub Command1_Click() '大写
If a = "" Then a = Text1.Text
Text1.Text = UCase(Text1.Text)
End Sub

Private Sub Command2_Click() '小写
If a = "" Then a = Text1.Text
Text1.Text = LCase(Text1.Text)
End Sub

Private Sub Command3_Click() '复原
If a = "" Then a = Text1.Text
Text1.Text = a
End Sub

Answer 2

问题是什么啊，这是科普的？