以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  关于Do...Loop语句的问题  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=117318)
--  作者：ap9709130
--  发布时间：2018/4/10 16:56:00
--  关于Do...Loop语句的问题
老师

我的代码如下：

Dim dt As Date = Date.now

Dim ms As Integer

Do While ms < 5 

    Dim t As TimeSpan = dt - Date.now

ms = t.Seconds

Loop


为什么是死循环？5秒后不是应该停止循环的吗？
--  作者：有点甜
--  发布时间：2018/4/10 17:22:00
--  

参考

 

Dim sdt As Date = Date.Now
While Date.Now < sdt.AddSeconds(10)
    Application.DoEvents
End While

msgbox("10秒后执行")