作业帮关于等待的语句!
来源：学生作业帮助网 编辑：作业帮 时间：2024/04/24 06:31:33
关于等待的语句!
关于等待的语句!
关于等待的语句!
做一个延时函数,自己调一下数值就可以了
Private Sub WaitTime(t As Single)
Dim starttime As Single
starttime = Second(Now)
Do Until (60 + Second(Now) - starttime) Mod 60 > t
Loop
End Sub
想不到
等等夏天等秋天，等下个季节，要等到月亮变缺你才会回到我身边
桐木等待了千年，只为凤凰那暂作栖息；
大海等待了千年，只为流水那戏后归处；
蓝天等待了千年，只为白云那回眸一笑；
我等待了千年，只为你那偶然记起。