比如说
for i = 1 to 10
....
next i
如果想要控制每次循环的时间(比如说每天循环一次),该怎么做?

Private Sub Command2_Click()
Dim t
t = Time
Dim i As Integer
For i = 1 To 10
    DoEvents
    If Time - t < 1 Then
        i = i - 1
    Else
        t = Time
        '想干什么就写在这里
    End If
Next i
End Sub

一天中每个时间点对应的值是当天唯一的,判断时间即可.

忙了一天终于有时间来看看了，其实我刚刚学编程不久，想测试一下自己的水平写个电子日历之类的东西玩玩。
谢谢大家了

想做循环操作,不一定要用循环语句的.

api里有timeGetTime,不过很不好用,不如timer+计数器