vb中的一段看不懂

来源：百度知道 编辑：UC知道 时间：2024/05/25 01:23:17
Dim I, OpenForms
For I = 1 To 1 ' 循环开始。
If I Mod 1 = 0 Then ' 如果循环一已完成了 1000 次。
OpenForms = DoEvents ' 将执行让给操作系统。
End If
Next I ' 将循环计数器加一。

这段是垃圾代码,没意义的
---------------------------------
循环1到1 也就是循环一次....
代码等效与
If 1 Mod 1 = 0 Then ' 如果循环一已完成了 1000 次。
OpenForms = DoEvents ' 将执行让给操作系统。
End If

由于 1 Mod 1 =1 与条件不满足
中间代码不会被执行

这代码等价于 什么也没干(占了点点而已时间)

这代码等价于 什么也没干(占了点点而已时间) ,其实就是程序新手写的 延时功能。