Question

vb小问题 每单击一次"确定"text1.text中的数值就加1

我的意思是用for i=1 to n

Answer 1

如果是用For的话,这个是循环,就不存在点一次+1了,是一次性直接加上去

Answer 2

Option Explicit
Dim i As Integer
Dim n As Integer

Private Sub Command1_Click()
For i = n To 100
i = i + 1
n = i
If n = i Then
Text1 = i
Exit For
End If
Next
End Sub

Answer 3

Private Sub Command1_Click()
text1.text=val(text1.text)+1
End Sub

Answer 4

Private Sub Command1_Click()
text1.text= text1.text +1
End Sub

Answer 5

是啊。