以下是引用ioriliao在2007-4-11 10:14:58的发言：
又改进了程序...现在产生一万条字符串用时28秒!
又改进了程序...现在产生一万条字符串用时28秒!
和以前的相比，你的程序真的是飞速进展（从几个小时到几十秒），看来你一直在不断改进算法。你的精神值得我们学习
VB QQ群：47715789
和以前的相比，你的程序真的是飞速进展（从几个小时到几十秒），看来你一直在不断改进算法。你的精神值得我们学习
2007-04-11 12:37
[此贴子已经被作者于2007-4-11 13:23:41编辑过]
2007-04-11 13:19
2007-04-11 20:29
2007-04-11 20:41
2007-04-11 21:34
2007-04-11 21:55
2007-04-11 22:53
2007-04-11 23:02
2007-04-12 08:50
For k = 1 To 16
intTmp = Rnd * 1000 Mod 61 + 1
Print #1, Mid(strALl, intTmp, 1);
Next k
再加上后面的一次不就是写了17次文件吗？
下面的是确定后缀，并不是输出一个记录，所以不会是17次，我验证过一次（代价惨重），没有重复的
2007-04-12 09:18
一万而已
运行时间是我的十倍。我十万条七秒。