编程问题

放置一个文本框text1，两个命令按钮command1/command2，放好位置和大小，代码如下：

Private Sub Command1_Click()

Text1.Text = UCase(Text1.Text)

End Sub

Private Sub Command2_Click()

Text1.Text = LCase(Text1.Text)

End Sub

Private Sub Form_Load()

Text1.Text = "/question/95249618.html?fr=rpy_push"

Command1.Caption = "大写"

Command2.Caption = "小写"

End Sub

已经运行过。