Dim iPrivate Sub Form_Click() i = i + 1 Text1.Text = iEnd SubPrivate Sub Form_Load() i = 0End Sub
Dim a As IntegerPrivate Sub Form_Click()a = a + 1Text1.Text = aEnd Sub只要有个TEXTBOX就可以了