有关速度的测试

[cqcpl]

写入下面一段代码。
Private Declare Function GetTickCount Lib "kernel32" () As Long

Private Sub Command9_Click()
Dim lsa As Long, i As Long, j as string
lsa = GetTickCount
j = "asfds"
For i = 0 To 10000000
j = j
Next
MsgBox (GetTickCount - lsa)
End Sub

改变j的变量类型，用来测试变量的读写速度。结果令人疑惑。
String 竟然比Variant慢的多，不是说Variant是最慢的吗？

[Tiger_Zhao]

将 j = j 更改为 j = "asfds"，变量自己对自己赋值有可能被优化。

[cqcpl]

再问一个问题。如何把分给你啊。

[Tiger_Zhao]

页面菜单：管理

[嗷嗷叫的老马]

晕

[熊孩子开学喽]

当你给J赋值之后，J就从Variant变成long了，当然就比STRING快了