关于等待的语句!

来源:学生作业帮助网 编辑:六六作业网 时间:2024/12/22 19:47:22
关于等待的语句!关于等待的语句!关于等待的语句!做一个延时函数,自己调一下数值就可以了PrivateSubWaitTime(tAsSingle)DimstarttimeAsSinglestarttim

关于等待的语句!
关于等待的语句!

关于等待的语句!
做一个延时函数,自己调一下数值就可以了
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

想不到

等等夏天等秋天,等下个季节,要等到月亮变缺你才会回到我身边

桐木等待了千年,只为凤凰那暂作栖息;
大海等待了千年,只为流水那戏后归处;
蓝天等待了千年,只为白云那回眸一笑;
我等待了千年,只为你那偶然记起。