【讨论】为什么VB除错会这么慢,怎样提高VB除错的速度?(如果讨论有结果,我会加到200分)

laisiwei laisiwei 墨衍会员 · AI 创作全网分发 墨衍智能分发 通过墨衍一键同步至各平台 可同步平台 CSDN微信公众号微博知乎掘金百家号博客园抖音小红书 你的文章也可以这样分发 墨衍会员 ¥399起/年,写一次发全网 我也要 + 加入社区
Option Explicit
Private Declare Function timeGetTime Lib "winmm.dll" () As Long

Private Sub Form_Click()
Dim t As Long, i As Long, a As Long
On Error Resume Next

t = timeGetTime
For i = 1 To 10000
a = Sqr(-1)
Next

Me.Caption = timeGetTime - t
End Sub

以上是测试代码
测试以后发现了一个问题:

用a = Sqr(-1)测试,比a = Sqr(1)要多花10倍时间

更 奇 怪 的 是
上面的代码在VB里执行比编译后快近10倍!
看清楚了,是VB环境里快,而不是编译后快。


大家知道为什么吗?
应该怎样解决?
...全文
评论 35
收藏 已收藏
分享
返回顶部
laisiwei
VB基础类 7,788 成员 197,583 内容