private sub form_click()
dim i as integer
i=i+1
text1.text=val(text1)+1
end sub
Private Sub Form_Click()
Static N As Integer
N = N + 1
text1.Text = N
End Sub
可以
Private Sub Form_Load()
Text1 = 0
End Sub
Private Sub Form_click()
Text1 = Val(Text1) + 1
End Sub
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024