我想做一个小程序，功能很简单就是点击一下按钮，计数就增加一个，在文本框中显示出来，我自己写的代码如下，不知道为什么实现不了这个效果？请大虾帮忙看一下是怎么回事？


Private Sub Command1_Click()
Text1.Text = i
i = i + 1
End Sub

Private Sub Form_Load()
Dim i As Integer
End Sub
界面如下


[[it] 本帖最后由 adsdomain 于 2008-10-1 21:07 编辑 [/it]]

但是定义为public提示出错

本问题已经解决，原来是过程级变量和模块级变量的问题啊～
把代码改成
Dim i As Integer
Private Sub Command1_Click()
Text1.Text = i
i = i + 1
End Sub
就行了！
谢谢multiple1902 的提示了！