程序代码如下：实际VB源程序看附件
Option Explicit
Dim a As Integer
Private Sub Timer1_Timer()
   a = a + 1
If a > 6 Then a = 1
If a Mod 2 = 0 Then
    Text1.ForeColor = vbRed '数字颜色为红色
Else
    Text1.ForeColor = vbBlue '数字颜色为蓝色
End If
    Text1.Text = a
Timer1.Enabled = True
Timer1.Interval = 300
Text1.Text = a
End Sub

Private Sub 启动_Click()
Timer1.Enabled = True
End Sub

Private Sub 清空重新开始_Click()
Text2.Text = "" '点击清空键清空TEXT2里的内容
Timer1.Enabled = True '重新启动循环
End Sub

Private Sub 读数_Click()
Text2.Text = Text2.Text & Text1.Text & " "
End Sub

Private Sub 退出_Click()
End
End Sub

'说明如下：
'程序初始启动后为1-6个数顺序从小到大重复循环，现在得到的结果是从顺序循环数中读出一个或者几个数，循环数未减少，仍为1-5个数顺序循环。
'希望能修改得到如下结果：
'1：循环初始还是设定的1-6个数顺序从小到大循环。点击读数按钮取出一个或者几个数，剩下的数继续反复按顺序从小到大循环，即取出一个数就少一个数剩下的数仍然继续反复顺序从小到大循环如：
'取出1.3.5后剩下的2.4.6继续反复循环；取出1.5后剩下的2.3.4.6继续反复循环；取出2后剩下的1.3.4.5.6继续反复循环。
'2：取出数后，点击清空重新开始按钮程序恢复到初始状态即1到6的顺序循环
'希望帮忙改写一下代码实现这种效果。
附件：

请问Artless在Timer1_Timer怎么用？谢谢

弄了一天，终于自己搞定了。

搞定了

用While  Wend语句比较一下前后就好了。

收到的鲜花

• Artless 于 2010-12-05 18:40 送鲜花  20朵   附言：我很赞同