vb 想让text1.text从 0 到10再变到0重复（间隔1s变一次）怎么...

添加一个timer控件
设置初始属性：
Timer1.Interval = 1000
Text1.Text = 0
Form1的代码：
Dim sd As Integer
Private Sub Form_Load()
sd = 1
End Sub
Private Sub Timer1_Timer()
If Text1 = "10" Then sd = -1
If Text1 = "0" Then sd = 1
Text1 = Val(Text1) + sd
End Sub

代码正在写....稍等

添加TEXT1,TIMER1
Dim i As Integer, flag As Boolean
Private Sub Form_Load()
Me.Text1.Text = "0"
Me.Timer1.Interval = 1000
End Sub
Private Sub Timer1_Timer()
If CInt(Me.Text1.Text) = 10 Then
flag = True
ElseIf CInt(Me.Text1.Text) = 0 Then
flag = Not True
End If
If flag Then
Me.Text1.Text = CInt(Me.Text1.Text) - 1
Else
Me.Text1.Text = CInt(Me.Text1.Text) + 1
End If
End Sub

i=-1
j=1
private sub timer1_Timer()
i=i+j
me.text1.text=i
if i=10 then j=-1
if i=0 then j=1
end sub