VB中自动数数字求解

来源：百度知道 编辑：UC知道 时间：2024/04/30 02:36:43
同上．比如一个复选框里面输入100
那么每隔一秒自动print一个数字／
要递增或都递减的！！
谢谢了！！

在窗体上有三个控件。command1 timer1 text1 程序运行的时候在文本框中输入一个数字。单击按钮。那么将从1开始每隔一秒递增输出一个数字
直到输出的这个数字等于你输入的这个数字。代码如下

Dim i, j As Integer

Private Sub Command1_Click()
i = Val(Text1.Text)
Timer1.Interval = 1000
End Sub

Private Sub Form_Load()
j = 1
End Sub

Private Sub Timer1_Timer()

If j = i Then Timer1.Interval = 0
Print j
j = j + 1
End Sub