UC知道请教一段VB小程序，请问以下程序错在哪里？
来源：百度知道 编辑：UC知道 时间：2024/05/16 13:14:54
我的意思是建立一个文本框，当输入文字后，点击“清除”按钮，文本框的文字被清除，当然后“清除”按钮变成“恢复”，当点击“恢复”的时候，被删除的文字重新恢复。。。打对才给分的噢 ：）
Private Sub Command1_Click()
Dim a As String
If Command1.Caption = "清除" Then
a = Text1.Text
Text1.Text = ""
Command1.Caption = "复原"
Else
Text1.Text = a
Command1.Caption = "清除"
End If
End Sub
提示：在运行程序时，可以清除，但不能恢复。
Private Sub Command1_Click()
Dim a As String
If Command1.Caption = "清除" Then
a = Text1.Text
Text1.Text = ""
Command1.Caption = "复原"
Else
Text1.Text = a
Command1.Caption = "清除"
End If
End Sub
提示：在运行程序时，可以清除，但不能恢复。
你又没有说你这个程序运行错在什么地方。运行的结果是什么
我个人感觉你的程序点复原后，文本框里面出现的是 a 吧？！
好像是这样的，想给你用vs写一个，但是用的平台软件不一样，代码就不一样
你的那个dim a 应该是个全局变量才可以吧？？
就是dim a as string 应该在command事件的上面。
试试吧。如果不可以，把你的程序的结果说下。看看具体什么问题！
我没安装vb，没办法看结果。
a要定义为全局变量或者静态变量，如下
Dim a As String
Private Sub Command1_Click()
If Command1.Caption = "清除" Then
a = Text1.Text
Text1.Text = ""
Command1.Caption = "复原"
Else
Text1.Text = a
Command1.Caption = "清除"
End If
End Sub
只是把Dim a As String这句移动到外面就行了