Private Sub Text1_Change()
Dim c As Integer, i As Integer
i=0
c = Val(Text1.Text)
Do While c >= 0
c = c - i
i = i + 1
Loop
Text1.Text = Str(c)
End Sub
在文本框输入“6”,执行该程序段后, 其中c >= 0执行的次数是( )