可以如下改:Private Sub Command1_Click()Dim a As String '模块级变量不能再过程内部定义a = "我"MsgBox aEnd Sub或者:Private a As String ' 公共声明部分声明模块级变量Private Sub Command1_Click()a = "我"MsgBox aEnd Sub...
vb6,winxp下测试通过,不能运行也许和你的防火墙有关系比如记事本notepad.exePrivate Sub Command1_Click()Timer1.Enabled = TrueTimer1.Interval = 1000End SubPrivate Sub Timer1_Timer()Static t As ...
这样就可以了Private Sub Command1_Click()Dim a As Stringa = "我"MsgBox aEnd SubPrivate要在模块中定义而且这个不需要定义变量,直接Private Sub Command1_Click()a = "我"MsgBox aEnd Sub...