如何优化 VB 的循环性能 超过 70,000 次循环

这个过程当然是没有效率的。

1.你的readlen（txt）太业余了，你应该使用正则表达式。

2.你有一个假设，就是这样。 com 显示在同一行中。 如果c 出现在第一行的末尾，om 出现在第二行的开头，并被省略。

arr = split(, vbcrlf)hang = (ubound(arr))

msgbox hang

hangdim str1 as string '搭。

for l = 0 to hang

st = arr(l) '修改。

if st = "" then exit forif reallen(mid(st, 1, instr(1, st, ".") -1)) 6 and instr(st, ".com") >0 then

str1 = str1 & st & vbcrlf '修改。

end if

ldoevents

next l

str1 '搭。

删除 doevent 应该快一点。

1.正确的循环次数应为：x=

0fori=ato

bstepcx

x+1next

ix 是循环总数。

2. 我认为你的：“总周期数 = （b-a）”。

例如，c+1“应为：

fori=1

to10step

3 的总循环数 = （10-1） 3+1=3+1=4。

3. 再次：“步长值如何随着循环次数而变化？ “在我看来，步长是不变的，它始终是设定的步长值，而变化的是周期的初始值，即

i=atobstepc。

i，分别是 1、4、7 和 10。

当 i = 1 且 j = 1 时，k 循环 3 次。

当 i = 2 时，j = 1 或 2

当 J=1 时，k 循环 3 次。

当 J=2 时，k 循环 2 次。

当 i = 3 时，j = 1 或 2 或 3

当 J=1 时，k 循环 3 次。

当 J=2 时，k 循环 2 次。

当 j = 3 时，k 循环 1

a 的初始值为 0，每个周期一次，a 加 1，循环为 14 次，因此 a = 14 完成......