作业帮 > 综合 > 作业

关于等待的语句!

来源:学生作业帮 编辑:拍题作业网作业帮 分类:综合作业 时间:2024/04/29 13:01:15
关于等待的语句!
做一个延时函数,自己调一下数值就可以了
Private Sub WaitTime(t As Single)
Dim starttime As Single
starttime = Second(Now)
Do Until (60 + Second(Now) - starttime) Mod 60 > t

Loop
End Su